Es posible proteger y desproteger un archivo con una Macros?

ActiveSheet.Unprotect "clave"
codigo aqui
ActiveSheet.Protect "clave"

Abraham

PD: me parece que para la version 2000 y anteriores, no es necesario
colocar la clave

Otra opción que solo necesita ser ejecutada una vez (p.e. al abrir el
libro).

En el módulo ThisWorkbook:
Private Sub Workbook_Open()
Sheets(1).Protect Password:="abracadabra", UserInterfaceOnly:=True
End Sub

Este este ejemplo permite escribir en la Hoja 1 desde VBA estando protegida.
Obviamente debes sustituir :="abracadabra" por tu contraseña.

Saludos desde Tenerife.
************************

"Abraham" escribió en el mensaje
news:
Mostrar la cita

ActiveSheet.Unprotect "clave"
codigo aqui
ActiveSheet.Protect "clave"

Abraham

PD: me parece que para la version 2000 y anteriores, no es necesario
colocar la clave

On 22 ene, 17:41, "AnSanVal" wrote:
Mostrar la cita

Otra opción que solo necesita ser ejecutada una vez (p.e. al abrir el
libro).

En el módulo ThisWorkbook:
Private Sub Workbook_Open()
Sheets(1).Protect Password:="abracadabra", UserInterfaceOnly:=True
End Sub

Este este ejemplo permite escribir en la Hoja 1 desde VBA estando protegida.
Obviamente debes sustituir :="abracadabra" por tu contraseña.

Saludos desde Tenerife.
************************

"Abraham" escribió en el mensajenews:

> ActiveSheet.Unprotect "clave"
> codigo aqui
> ActiveSheet.Protect "clave"

> Abraham

> PD: me parece que para la version 2000 y anteriores, no es necesario
> colocar la clave

Hola Abraham, gracias por tu respuesta pero no me quedó claro dónde
poner el código, dices que en el módulo pero... ¿Debo hacer un módulo
aparte o a que te refieres? ¿Podrías ser mas específico?

Hola

el codigo que te dieron va en ThisWorkbook, abres VBA (alt + F11)
por lo general esta visible desde en el explorador de proyectos (como
el explorer, lo encuentras a la derecha mas o menos por la mitad de la
pantalla) justo debajo de las hojas 1,2,3 lo ubicas, ahi en ver codigo
pegas la macro

Saludos


Mostrar la cita

On Jan 23, 3:28 pm, wrote:
On 22 ene, 17:41, "AnSanVal" wrote:



> Otra opción que solo necesita ser ejecutada una vez (p.e. al abrir el
> libro).

> En el módulo ThisWorkbook:
> Private Sub Workbook_Open()
> Sheets(1).Protect Password:="abracadabra", UserInterfaceOnly:=True
> End Sub

> Este este ejemplo permite escribir en la Hoja 1 desde VBA estando protegida.
> Obviamente debes sustituir :="abracadabra" por tu contraseña.

> Saludos desde Tenerife.
> ************************

> "Abraham" escribió en el mensajenews:daf8ee6f-6e53-4388-

> > ActiveSheet.Unprotect "clave"
> > codigo aqui
> > ActiveSheet.Protect "clave"

> > Abraham

> > PD: me parece que para la version 2000 y anteriores, no es necesario
> > colocar la clave

Hola Abraham, gracias por tu respuesta pero no me quedó claro dónde
poner el código, dices que en el módulo pero... ¿Debo hacer un módulo
aparte o a que te refieres? ¿Podrías ser mas específico?