Protect & unprotect worksheet Macros - supplementary issue

Good morning David_S_Walker

Just use this line directly under the "Protect..." line. This function will only affect protected sheets, so you shouldn't need to unset it again in your unprotect macro, but if you need to remove it, change the flag to xlNoRestrictions.

Sheets(x).EnableSelection = xlUnlockedCells

I would suggest incroporating it into your routine using the With / End With construct thus :

Sub ProtectAllSheets()
Dim x As Long
    For x = 1 To Sheets.Count
        With Sheets(x)
            .Protect
            .EnableSelection = xlUnlockedCells
         End With
    Next x
End Sub

HTH

DominicB