Bothersome Excel Worksheet Protection/Unprotection

[jabrony76]

Hi all,
I have noticed that you cannot protect or unprotect a highlighted group of multipule worksheets at once. (at least I cant figure it out) Is this possible? Its very annoying to have to select each worksheet individually and unprotect or protect it. I have some workbooks that have 30 different sheets to them. Any tips would be greatly appreciated.

Thanks,
Andy

 

[Databaseguy]

Type this in the VBA (Alt+F11) area

Private Sub ProtectAll()

Dim i
For i = 1 To ActiveWorkbook.Worksheets.Count
ActiveWorkbook.Worksheets(i).Protect
Next i


End Sub