¿Cómo proteger todas las hojas de un libro de excel con código vba?
Tengo como éste alrededor de 15 libros de excel (algunos de hasta 80 hojas), a los cuales necesito protegerle todas sus hojas y tengo este código que hasta el momento me funciona para una sola hoja individual, la intención no es pegarle el código a cada hoja, quiero hacerlo de manera automática que me funcione para todas las hojas del libro de una vez ¿cómo pueden ayudarme?
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _ , AllowFormattingCells:=True, AllowFormattingColumns:=True, _ AllowFormattingRows:=True, AllowSorting:=True, AllowFiltering:=True
1 Respuesta
Respuesta de Dante Amor
1
Ejecuta la macro proteger para hacerlo con todas las hojas del libro.
También te pongo la macro des_proteger, en caso de que la necesites, para desproteger todas las hojas.
Sub proteger() Dim sh As Worksheet For Each sh In Sheets sh.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, _ AllowFormattingCells:=True, AllowFormattingColumns:=True, _ AllowFormattingRows:=True, AllowSorting:=True, AllowFiltering:=True Next End Sub ' Sub Des_proteger() Dim sh As Worksheet For Each sh In Sheets sh.Unprotect Next End Sub
