Protect unprotect sheets with password and sort

I have the following code (provided here some years ago) which works fine. But I now need to modify it to include an optional password and to allow sort of unprotected cells on manually chosen sheets. Is this possible?

Sub ProtectAllSHeets()

    Dim Sh As Worksheet

    For Each Sh In ActiveWorkbook.Worksheets
        Sh.Protect
    Next Sh
    
End Sub

Sub UnProtectAllSHeets()

    Dim Sh As Worksheet

    For Each Sh In ActiveWorkbook.Worksheets
        Sh.Unprotect
    Next Sh
    
End Sub

TIA

Alan B