Obligar a habilitación de macros

hola, Giancarlo !

... a fin de obligar a los usuarios a "Habilitar Macros" al abrir el archivo
... he logrado ocultar las hojas que ... solo se muestran al abrir el libro activando macros.
... para que ... funcione es necesario grabar el libro al cerrarlo
... las opciones ... permiten no grabar los cambios al salir.
... que cuando ... decida cerrar un libro sin grabar los ultimos cambios, las hojas ... se oculten
... asumir que ya se grabaron otros cambios ... interesa descartar los ultimos
(El macros para ocultar las hojas solo se activa al cerrar el libro).
No conozco mucho de Visual Basic ... agradecere a quien me conteste que sea bastante explicito [...]

-> como 'paso #1' [te sugiero]... 'llamar' al codigo que oculta las hojas en el evento '_beforsave'
[de esta manera, la 'grabacion' del archivo mantendra ocultas 'esas' hojas ->siempre<-] ;)
-> como 'paso #2'... usar una variable que 'le indique' a excel 'cuando se inicia' el proceso de 'cierre'
[mientras el archivo 'permanezca' abierto... 'llamas' a OTRA macro que 'vuelva' a presentar las hojas]
-> como 'paso #3'... 'mantener' en una matriz los nombres de dichas hojas [la puedes modificar a voluntad]
-> ANTES de que 'intentes' guardar/cerrar el archivo [una vez 'copiados' los codigos]...
=>'ejecuta' el evento '_open'<= [en el editor de vba] -> 'parate' en el evento -> pulsa {F5} ;)

espero que la 'secuencia' y la 'logica' del codigo siguiente sea... 'secuencialmente logica' :DD
[probablemente] habra 'cosas' que te interese 'conservar' [entre ocultar/mostrar hojas] como...
¿conservar la hoja 'donde estaba' el usuario?... 'pero'... ya 'comentaras' las modificaciones que 'faltan' ;)
saludos,
hector.
en el modulo de codigo del libro [¿ThisWorkbook?] ==Private Ocultas, Cerrando As Boolean
Private Sub Workbook_Open()
Definir_Ocultas
Mostrar_Ocultas True
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Cerrando = True
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Application.EnableEvents = False
Mostrar_Ocultas xlSheetVeryHidden
If Not Cerrando Then Mostrar_Ocultas True
Cancel = Not Cerrando
Application.EnableEvents = True
End Sub
Private Sub Definir_Ocultas()
Ocultas = Array("Hoja2", "Hoja3", "Hoja4")
End Sub
Private Sub Mostrar_Ocultas(ByVal Mostrar)
Application.ScreenUpdating = False
Dim Sig As Integer
For Sig = LBound(Ocultas) To UBound(Ocultas)
Worksheets(Ocultas(Sig)).Visible = Mostrar
Next
If Mostrar = xlSheetVeryHidden Then Me.Save
If Mostrar = True Then Me.Saved = True
End Sub