Bienvenido a la mayor comunidad de usuarios EXCEL

Regístrate gratis ahora para ver contenidos y descargas sin restricciones!

Regístrate gratis

Desproteger y proteger 41 hojas

SwordfishCerberos

New member
Registrado
19 Oct 2005
Mensajes
132
Hola no se si habra una macro para desproteger 41 hojas con un boton y con otro volver a protegerlas

se me ocurrio esta macro

Sub Desprotege41hojas()

For i = 2 To 41
If i = Then...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes
iniciar sesión aquí
 
Prueba esto:
Código:
<i>
</i>Sub Desprotege() 
For i =1 to worksheets.count
unprot(i, "elperfectoasesino")
next i
end sub

Sub Protege() 
For i =1 to worksheets.count
prot(i, "elperfectoasesino")...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes
iniciar sesión aquí
 
Ya está solucionado el error. Basta con copiar todo el código en un módulo, eliminar "Opción Explicit" si aparece por defecto en tu editor de VBA y optar por:

1. Asignar a un Botón la macro...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes
iniciar sesión aquí
 

Adjuntos

Volver
Arriba