Desproteger hojas
Me gustaría conocer cual es el código que debo generar si quiero automatizar la desprotección de mis hojas de calculo que tienen clave... (cuando las hojas tienen clave no me deja, o al menos seria interesante que me preguntara la clave) También viceversa, gracias por su colaboración
1 Respuesta
Respuesta de villaju
1
¿Cómo va todo?
Vamos a suponer que la contraseña es 123. Para proteger la hoja, el código es:
Sub Proteger()
ActiveSheet.Protect password:="123", DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Para desprotegerla:
Sub Desproteger()
ActiveSheet.Unprotect ("123")
End Sub
Para algo más de detalle, mira la ayuda de excel, escribiendo primero Protect, y luego Unprotect.
Vamos a suponer que la contraseña es 123. Para proteger la hoja, el código es:
Sub Proteger()
ActiveSheet.Protect password:="123", DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Para desprotegerla:
Sub Desproteger()
ActiveSheet.Unprotect ("123")
End Sub
Para algo más de detalle, mira la ayuda de excel, escribiendo primero Protect, y luego Unprotect.
