Protecting Multiple Sheets Within A Workbook

Question

First thing to say I really don't know how to use VBA code on excel.

Sub ProtectAllSheets()

Dim sh 

For Each sh In Sheets 

    sh.Protect Password:="password" 

Next sh 

End Sub

I got the above by searching on google, and I used the the code to protect all sheets in the excel and it worked wel.

Now, along with protecting all the worksheets at once I also need to uncheck the boxes "Select locked cells" and "Select unlocked cells" is it possible? Can anyone please help me if possible?

A VERY BIG THANK YOU IN ADVANCE!!!

Answer 1

That is the default setting, so you don't really have to specify it, but if you'd still like to do so:

Sub ProtectAllSheets()
    Dim sh As Worksheet
    For Each sh In Worksheets
        sh.EnableSelection = xlNoRestrictions
        sh.Protect Password:="password"
    Next sh
End Sub