Desbloquear Hoja y Volverla a Bloquear Respetando Los Permisos.
Tengo una hoja que protegí manualmente, dando determinados atributos. Cuando la macro la desprotege para grabar y nuevamente la protege, los atributos iniciales no son respetados. ¿Qué puedo hacer?.
H o l a:
En tu macro debes tener una línea similar a esto:
Sheets("Hoja1"). Protect "clave"
Lo que puedes hacer es desproteger la hoja, ahora activa la grabadora de macros, protege la hoja, activa los atributos que necesitas, presiona aceptar, detén la grabadora de macros. Entonces la grabadora de macros te generó un código así:
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _ False, AllowFormattingCells:=True, AllowFormattingRows:=True, _ AllowInsertingRows:=True, AllowDeletingColumns:=True, AllowSorting:=True _ , AllowUsingPivotTables:=True
Cambia en tu macro esta línea:
sheets("Hoja1").protect "clave"
Por esto:
Sheets("Hoja1").Protect "clave", DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowFormattingCells:=True, AllowFormattingRows:=True, _
AllowInsertingRows:=True, AllowDeletingColumns:=True, AllowSorting:=True _
, AllowUsingPivotTables:=TrueEs decir, tienes que cambiar la hoja, el password y respetar todo lo demás que te creó la grabadora de macros.
Si tienes dudas, pon los 2 códigos, tu macro y lo que te generó la grabadora de macros; y realizo la unión de las macros.
