Protecting locked cells on multiple worksheets

[KarmaTheDog]

Hello all,
I have a file with 26 nearly identical pages, is there a way I can protect and unprotect every page at once; without having to go to each page?

Thank you

 

[jeffreybrown]

Something like this...

'Standard Module
Sub WSprotect()
    Dim MyPassword As String
    Dim ws     As Worksheet
    MyPassword = _
    Application.InputBox(prompt:="Enter password to protect worksheets/workbook", _
                         Title:="Password Input")
    For Each ws In Worksheets
        ws.Protect MyPassword, userinterfaceonly:=True
    Next ws
    ActiveWorkbook.Protect MyPassword
End Sub

'Standard Module
Sub WSunprotect()
    Dim MyPassword As String
    Dim ws     As Worksheet
    MyPassword = _
    Application.InputBox(prompt:="Enter password to unprotect worksheets/workbook", _
                         Title:="Password Input")
    For Each ws In Worksheets
        ws.Unprotect MyPassword
    Next ws
    ActiveWorkbook.Unprotect MyPassword
End Sub