Protect & unprotect worksheet Macros - supplementary issue

All,

I need further help with this code.

When I run the protect macro I want only allow users to select unlocked cells for input. I have played around a bit recording another macro and then dumping bits of text into the code that was supplied in answer to my earlier thread but to no avail

Sub UnprotectAllSheets()
    Dim x As Long

    For x = 1 To Sheets.Count
        Sheets(x).Unprotect
    Next x

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

End Sub

What code do I need to add so that I achieve my aim of allowing only unlocked cells to be selected.

All 14 tabs on the workbook are set with appropriate cells locked/unlocked.

Thanks for your help in anticipation.

Best regards,

David

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

Perfect thank you Dominic!