GUARDAR COMO ???

Hola Grupo !

En un libro con varias hojas coloco en cada una de ellas:

Private Sub Worksheet_Activate()
Me.Protect UserInterfaceOnly:=True
End Sub

Private Sub Worksheet_Deactivate()
Me.Unprotect
End Sub

y en ThisWorkbook coloco:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)

VBAProject.Hoja25.Activate
Application.ScreenUpdating = False
Application.ActiveWorkbook.Unprotect
Application.DisplayAlerts = False
VBAProject.ThisWorkbook.BuiltinDocumentProperties(1) VBAProject.Hoja23.[d22]
VBAProject.ThisWorkbook.BuiltinDocumentProperties(5) VBAProject.Hoja23.[d24]
VBAProject.ThisWorkbook.BuiltinDocumentProperties(7) VBAProject.Hoja23.[d14]
VBAProject.ThisWorkbook.BuiltinDocumentProperties(18) VBAProject.Hoja23.[H58]
VBAProject.ThisWorkbook.BuiltinDocumentProperties(9) = "SESIOM OBRAS
V1.0"
VBAProject.Hoja24.Activate
End Sub

pero cuando trato de guardar como ...
me aparece un menjase diciendo que las celdas controles o graficos que
intento modificar estan protegidos

aunque en las opciones tenga deshabilitada la casilla calcular antes
de guadar.

esto no pasa si efectuo cambios en el libro y guardo (simplemente)

porque aparece el mensaje si tengo DisplayAlerts=False ?

y ... si verifico en el editor de vba cada una de las hojas del libro
estas aparecen
con la propiedad enableselection = XlNoRestrictions

sI coloco un pto de interrupcion en el evento BeforeSave
y ejecuto paso a paso todo esta bien hasta el end sub y ... luego es
donde me pide el nuevo nombre y comienzan a aprarecer el mensajes
antes mencionado por varias veces entre 6 y 14 no se a cuenta de
que ??

que puede estar pasando ??
como evito los mensajes ??
que tengo que desproteger ??

Gracias de antemano.