Macro que proteja hojas de libro y permita insertar comentarios
Cuando protejo libro con macro, se deshabilita la posibilidad de insertar comentarios en celdas desbloqueadas. ¿Existe alguna macro que me permita proteger libro con algunas de las restricciones que se pueden seleccionar manualmente?
1 respuesta
La macro para proteger la hoja y poder insertar comentarios:
Sub Macro1() ' ' Macro1 Macro ' ' ActiveSheet.Protect _ DrawingObjects:=False, _ Contents:=True, _ Scenarios:=True End Sub
Muchas gracias por tu respuesta. Trate de insertar la corrección que me envías a la macro con la que trabajo en el libro y me da error de sintaxis.
Esta es la macro que utilizo:
Private Sub Workbook_Open()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.Protect Password:="1234"
UserInterfaceOnly = True
ws.EnableAutoFilter = True
ws.EnableOutlining = True
Next ws
End Sub
¿Cómo puedo hacerlo? Desde ya muchas gracias por tu ayuda.
Quedaría así:
Private Sub Workbook_Open() Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets ws.Protect Password:="1234", _ DrawingObjects:=False, _ Contents:=True, _ Scenarios:=True UserInterfaceOnly = True ws.EnableAutoFilter = True ws.EnableOutlining = True Next ws End Sub
sal u dos
