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

MUCHAS GRACIAS .
PERFECTO


"Juan M" escribió en el mensaje
news:

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