Can I create a Macro to protect & unprotect my worksheet

[Amanda80]

Each time I attempt this, it stops my macro in it's tracks because my workbook is protected once I go through the motions of recording the macro.

Please help!

Thanks

 

[Smitty]

Welcome to the Board!

You can use:

ActiveSheet.Unprotect "PasswordHere"

Or substitute ActiveSheet with Sheets("SheetName").

But you can record a macro protecting and unprotecting sheets, you just can't capture the password.

Hope that helps,

Smitty

 

[Amanda80]

It worked!

Thank you very much! You have no idea how much time this has saved me....

I used the same code, but with "Protect" instead to protect all my sheets again.

Thanks again!

Amanda

 

[Smitty]

To Protect/Unprotect all of them at once you can use:

Sub ProtectAll()
  Dim ws as Worksheet
     For each ws in ActiveWorkbook.Worksheets
        ws.Protect
     Next ws
End Sub

And vice versa to Unprotect.

Smitty