GUARDAR COMO ???

27/11/2009 - 06:14 por ORFAO | Informe spam
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.

Preguntas similare

Leer las respuestas

#1 Héctor Miguel
28/11/2009 - 02:24 | Informe spam
hola, moises !

(yo que tu, aunque sea "por probar", le haria algo de caso al comentario final a tu consulta sobre el screenupdating)...
_____
5) (adicional)...
- me parece excesiva la "liga" de los "codename" (VBAProject.Hoja7) si ya trabajas sobre la "hoja activa" (?)
- demasiadas variables declaradas como tipo Variant (explicita o implicitamente)
consulta en la ayuda en linea los temas de las variables y sus tipos (p.e.)
- son memoria reservada que NO siempre es liberada "de inmediato"

saludos,
hector.
¨¨¨¨¨¨¨¨¨¨

__ OP __
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 ??
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida