Proteger todos las hojas

Hola Jonathan

"Jonathan Milla" escribió

Hola, como puedo proteger todas las hojas del libro de un solo
pasoosea sin mucho codigo...
Gracias!

vale esto?

'Proteger
Sub proteger2()
Dim c As Worksheet
For Each c In ActiveWorkbook.Worksheets
c.Protect "a"
Next c
End Sub
'desproteger
Sub desproteger2()
Dim c As Worksheet
For Each c In ActiveWorkbook.Worksheets
c.Unprotect "a"
Next c
End Sub