bueno gracias 3pies, hice lo que me dijiste... poniendolo dentro de una funcion en macro
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Cells.Select
ActiveSheet.Unprotect
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("A1").Select
End Sub
Aunque como dije eso lo tenia en una plantilla, y hay que tener el cuidado que al cerrar la plantilla original no darle guardar cambios sino me cambia todo a valores y se pierden las formulas...
No me gusta mucho esta solucion pero funciona... si existiese alguien que de sepa otra forma avisan...
gracias...
