Una sencilla Pregunta......

Hola JR,

Es realmente una pregunta sencilla, lo que pasa es que la respuesta no lo es
tanto. Revisa el siguiente enlace que contiene una leccion magistral de
Hector Miguel sobre el tema:

http://www.sistemaslym.net/vba/excel/exarc1.html

Un saludo,
KL


"JR" wrote in message
news:

Como le puedo hacer para que cuando abran un archivo en excel que tieme
macros, si le dan boton "Habilitar macros" se pueda trabajar en el, pero
si le dan al boton "Deshabilitar macros" no se visualice nada
Gracias.

Yo hago esto:
En ThisWorkBook:
Private Sub Workbook_Open()
Application.DisplayAlerts = False
Worksheets("Menu").Visible = True -> La/s hoja/s que se verán
al abrir el libro
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Worksheets("Nombre de la/s hoja/s que no quieres que vean al abrir
sin habilitar macros").Visible = xlVeryHidden
End Sub
Espero te sirva. Saludos

"JR" escribió en el mensaje
news:

Como le puedo hacer para que cuando abran un archivo en excel que tieme
macros, si le dan boton "Habilitar macros" se pueda trabajar en el, pero
si le dan al boton "Deshabilitar macros" no se visualice nada
Gracias.

A mi me funciona con este código, en la pagina, que siempre tiene que estar
visible, puede poner un mensaje diciendo que si no aceptas la macro no podrá
acceder al libro de datos. Protege el proyecto con contraseña, pero recuerda
que no existe la seguridad total, si se empeñan te revientan todas las
protecciones.

Coloca el siguiente código en el objeto ThisWorkbook:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Worksheets("Hoja1").Visible = xlVeryHidden
End Sub

Private Sub Workbook_Open()
Worksheets("HOJA1").Visible = xlSheetVisible
Application.Goto [HOJA1!A1], True
Worksheets("Hoja1").Protect _
Password:="aqui tu contraseña", _
UserInterfaceOnly:=True
End Sub



"JR" escribió en el mensaje
news:

Como le puedo hacer para que cuando abran un archivo en excel que tieme
macros, si le dan boton "Habilitar macros" se pueda trabajar en el, pero
si le dan al boton "Deshabilitar macros" no se visualice nada
Gracias.

Hola Malaquias,

?Y que pasa si el usuario abre tu libro habilitando los macros, introduce un
pequeno cambio, salva los cambios y al salir dice que no quiere salvar
cambios? La proxima vez no tendra que habilitar macros para ver la hoja
protegida.

Saludos,
KL


"Malaquias" wrote in message
news:dcdkoa$snp$

A mi me funciona con este código, en la pagina, que siempre tiene que estar
visible, puede poner un mensaje diciendo que si no aceptas la macro no
podrá
acceder al libro de datos. Protege el proyecto con contraseña, pero
recuerda
que no existe la seguridad total, si se empeñan te revientan todas las
protecciones.

Coloca el siguiente código en el objeto ThisWorkbook:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Worksheets("Hoja1").Visible = xlVeryHidden
End Sub

Private Sub Workbook_Open()
Worksheets("HOJA1").Visible = xlSheetVisible
Application.Goto [HOJA1!A1], True
Worksheets("Hoja1").Protect _
Password:="aqui tu contraseña", _
UserInterfaceOnly:=True
End Sub



"JR" escribió en el mensaje
news:

Como le puedo hacer para que cuando abran un archivo en excel que tieme
macros, si le dan boton "Habilitar macros" se pueda trabajar en el, pero
si le dan al boton "Deshabilitar macros" no se visualice nada
Gracias.

Upssssssss!!

La ignorancia me hacer ser osado, lo desconocía :((


"KL" escribió en el mensaje
news:%

Hola Malaquias,

?Y que pasa si el usuario abre tu libro habilitando los macros, introduce
un pequeno cambio, salva los cambios y al salir dice que no quiere salvar
cambios? La proxima vez no tendra que habilitar macros para ver la hoja
protegida.

Saludos,
KL


"Malaquias" wrote in message
news:dcdkoa$snp$

A mi me funciona con este código, en la pagina, que siempre tiene que
estar
visible, puede poner un mensaje diciendo que si no aceptas la macro no
podrá
acceder al libro de datos. Protege el proyecto con contraseña, pero
recuerda
que no existe la seguridad total, si se empeñan te revientan todas las
protecciones.

Coloca el siguiente código en el objeto ThisWorkbook:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Worksheets("Hoja1").Visible = xlVeryHidden
End Sub

Private Sub Workbook_Open()
Worksheets("HOJA1").Visible = xlSheetVisible
Application.Goto [HOJA1!A1], True
Worksheets("Hoja1").Protect _
Password:="aqui tu contraseña", _
UserInterfaceOnly:=True
End Sub



"JR" escribió en el mensaje
news:

Como le puedo hacer para que cuando abran un archivo en excel que tieme
macros, si le dan boton "Habilitar macros" se pueda trabajar en el, pero
si le dan al boton "Deshabilitar macros" no se visualice nada
Gracias.