Como proteger y desproteger una hoja
Pregunta para dante
Dante tengo esta macro se me genera un conflicto al final de la macro cuando protege
No se si esta bien así o hay alguna otra manera necesito que la protección habilie filtros y objetos gracias
Sub IrGxDia()
ActiveSheet.Unprotect
Sheets("GxDia").Select
u = Range("A" & Rows.Count).End(xlUp).Row + 1
Range("A" & u).Select
Do While Selection.EntireRow.Hidden = True
ActiveCell.Offset(1, 0).Select
Loop
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=True _
, AllowFiltering:=True
ActiveSheet.EnableSelection = xlUnlockedCells
End Sub
1 Respuesta
Dante disculpa no entiendo lo que me mandaste no funciona así
Te anexo la macro completa. Son todos los permisos que se tienen cuando la hoja está protegida, con estas opciones están habilitados los filtros y los objetos
AllowFiltering:=True, DrawingObjects:=False
Son todos los permisos que existen, si no puedes realizar algo, tendrás que crear la macro para lo que necesites, es decir, si requieres filtrar, tendrás que crear una macro que: 1, desproteja, 2 filtre, 3 proteja
Sub IrGxDia()
ActiveSheet.Unprotect
Sheets("GxDia").Select
u = Range("A" & Rows.Count).End(xlUp).Row + 1
Range("A" & u).Select
Do While Selection.EntireRow.Hidden = True
ActiveCell.Offset(1, 0).Select
Loop
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
:=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
AllowDeletingRows:=True, AllowSorting:=True, AllowFiltering:=True, _
AllowUsingPivotTables:=True
ActiveSheet.EnableSelection = xlNoRestrictions
End Sub
