Es posible proteger y desproteger un archivo con una Macros?

22/01/2008 - 18:33 por sergiomho | Informe spam

Necesito Proteger ciertas columnas para que el usuario no las
modifique y pero al hacer esto, la macro tampoco puede modificarlas.

¿Hay forma de que en el momento de que la Macro haga sus operaciones,
quitar el blockeo y una vez modificada la columna, blockarla con el
mismo macro?

De antemano muchas gracias.

Sergio~

Siga el debate

4 respuestas

Tengo una respuesta

Preguntas similare

Leer las respuestas

#1 Abraham

22/01/2008 - 18:49 | Informe spam

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

Responder a este mensaje

#2 AnSanVal

23/01/2008 - 00:41 | Informe spam

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:

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

Responder a este mensaje

#3 sergiomho

23/01/2008 - 22:28 | Informe spam

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:

> 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?

Responder a este mensaje

#4 Duck-pet

23/01/2008 - 22:51 | Informe spam

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

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?

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida