Protect Multiple Sheets with Select Locked Cells Unchecked

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:

1. With ActiveSheet
   
2. .Protect
   
3. .EnableSelection = xlUnlockedCells
   
4. End With
   

Thanks,

Viepyr