Proteger en el LIBRO: Estructura y Ventanas con MACRO
Tengo el siguiente problema:
- Al ejecutar lo siguiente solo PROTEGER/DESPROTEGE en el LIBRO la estructura.
1----------------------------------------------------------------
Private Sub PROTEGERLIBRO_Click()
ThisWorkbook.Protect "123"
End Sub
2-----------------------------------------------------------------
Private Sub DESPROTEGERLIBRO_Click()
ThisWorkbook.Unprotect"123"
End Sub
-------------------------------------------------------------------
Necesito lo siguiente:
- Mediante una instrucción (EXCEL/MACRO) PROTEGER/DESPROTEGE en el LIBRO la estructura y VENTANAS.
- Al ejecutar lo siguiente no hace nada.
1-------------------------------------------------------
Private Sub PROTEGERLIBRO_Click()
With ActiveWorkbook
.Protect Structure:=True, Windows:=True
.Unprotect ("123")
.Protect ("123")
End With
End Sub
2-----------------------------------------------------
Private Sub PROTEGERLIBRO_Click() With ActiveWorkbook .Protect Structure:=True, Windows:=True '.Unprotect ("123") .Protect ("123") End With End Sub
Agradecería de antemano su ayuda.
1 Respuesta
Para desproteger alcanza con Unprotect y la clave si la tiene:
Sub desprotegeLibro()
'x Elsamatilde
ActiveWorkbook.Unprotect "123"
End Sub
Para protegerlo sería así:
Sub protegeLibro()
'x Elsamatilde
ActiveWorkbook.Protect "123", Structure:=True, Windows:=True
End Sub
Y si necesitas desprotegerlo para protegerlo nuevamente, por ej: con otra clave sería así:
Sub protegeLibro()
'x Elsamatilde
ActiveWorkbook.UnProtect "123",
ActiveWorkbook.Protect "GENOSUKI", Structure:=True, Windows:=True
End Sub
Sdos y no olvides finalizar la consulta
