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