Unprotect and protect all sheets in all open/active workbooks

[Wikell]

Hi, I would like a VBA-code that for all sheets in all currently open workbooks in Excel unlocks all sheets (all sheets have the same password "123456") in all workbooks (it is the tabs that are locked, not the workbooks). I don't want to enter the VBA-code in all files, ie I want to be able to call the VBA-code once for all open workbooks and all sheets in Excel. I need the same VBA code that does exactly the same thing but the opposite, ie locks all tabs for all open workbooks (all tabs have the same password "123456"). The VBA-code I have already found is not working for all open workbooks and all sheets, I need to call the VBA-code in each workbook.

 

[AC PORTA VIA]

Is this what you are looking for

Sub Unprotect_sheets_all_active_workbooks()
Dim wb As Workbook
Dim sht As Worksheet
On Error GoTo errhnd
unpass = 123456
'or use input box for password  unpass = InputBox("password")
For Each wb In Application.Workbooks
'Ignore Personal workbook if there is one
  If wb.Name <> "PERSONAL.xlsb" Then
    For Each sht In wb.Worksheets
    ' Change below LINE to sht.Protect Password:=unpass TO protect all sheets
        sht.Unprotect Password:=unpass
    Next sht
  End If
Next wb
Exit Sub
errhnd: MsgBox "There is s problem - check your password, capslock, etc."

End Sub

 

[Wikell]

Is this what you are looking for

Sub Unprotect_sheets_all_active_workbooks()
Dim wb As Workbook
Dim sht As Worksheet
On Error GoTo errhnd
unpass = 123456
'or use input box for password  unpass = InputBox("password")
For Each wb In Application.Workbooks
'Ignore Personal workbook if there is one
  If wb.Name <> "PERSONAL.xlsb" Then
    For Each sht In wb.Worksheets
    ' Change below LINE to sht.Protect Password:=unpass TO protect all sheets
        sht.Unprotect Password:=unpass
    Next sht
  End If
Next wb
Exit Sub
errhnd: MsgBox "There is s problem - check your password, capslock, etc."

End Sub

Yes, it seams to be exactly what I'm looking for, many thanks! The only thing which seams to not work is to set a password and then use MessageBox for both protect and unprotect sheets.