Protect Multiple Sheets with Select Locked Cells Unchecked

Question

Greetings,

I would like to protect and unprotect multiple worksheets and disable the Select Locked Cells option so that the protected cells cannot be selected.

I have found some VBA code that can lock multiple worksheets at once and a bit of code for the Locked Cells bit but I have no clue on how to merge the two.

I have the cells I want unlocked through the Protection tab in the Alignment section on the Ribbon.

For FYI: This is a different workbook than my earlier topic.

Sample code I found to protect all the worksheets:Sub ProtectAllWorksheetsWithInputbox()
'Step 1: Declare your variables
Dim ws As Worksheet
Dim Pwd As String
'Step 2: enter your password to protect all worksheets
Pwd = InputBox("Enter your password to protect all worksheets", "Password Input")
'Step 3: Start looping through all worksheets
For Each ws In ActiveWorkbook.Worksheets
'Step 4: Protect and loop to next worksheet
ws.Protect Password:=Pwd
Next ws
End Sub

Code I found to disable the Select Locked Cells option:

With ActiveSheet
.Protect
.EnableSelection = xlUnlockedCells
End With

Thanks,

Viepyr