ProtecAllSheets.bas

Sub ProtectAllSheets()

    Dim ws As Worksheet
    Dim pwd As String

    pwd = InputBox("Enter password:")

    If pwd = "" Then
        MsgBox "Password entry was canceled or left blank. Exiting macro."
        Exit Sub
    End If

    On Error Resume Next

    For Each ws In ActiveWorkbook.Worksheets
        ws.Protect Password:=pwd
    Next ws

    On Error GoTo 0

    MsgBox "All sheets are now protected with the entered password."

End Sub

ProtectSelectedSheets.bas

Sub ProtectSelectedSheets()

    Dim ws As Worksheet
    Dim pwd As String

    pwd = InputBox("Enter password:")

    If pwd = "" Then
        MsgBox "Password entry was canceled or left blank. Exiting macro."
        Exit Sub
    End If

    On Error Resume Next

    For Each ws In ActiveWorkbook.SelectedSheets
        ws.Protect Password:=pwd
    Next ws

    On Error GoTo 0

    MsgBox "Selected sheets are now protected with the entered password."

End Sub