How to add a password to a macro?

Requirement:

The user has two separate macros that work correctly with buttons in the quick access toolbar to execute each independently.

They are 'Protect All Worksheets' & 'Unprotect All Worksheets.'

The user wants to add a password just to the code 'Unprotect All Worksheets' so that when its button is pressed a password must be entered before executing.

Also, does anyone have a code to automatically 'Protect All Worksheets' when closing a workbook? (No password is needed here.)

Sub Unprotect_All()
Dim ws As Worksheet
On Error Resume Next
Application.ScreenUpdating = False
For Each ws In ActiveWorkbook.Worksheets
ws.Unprotect Password:="wts"
Next ws
Application.ScreenUpdating = True
On Error GoTo 0
End Sub

https://www.ozgrid.com/forum/forum/help-forums/excel-vba-macros/1209153-how-to-add-a-password-to-a-macro

Solution:

Code:

Sub Unprotect_All()
    Application.ScreenUpdating = False
    Dim ws As Worksheet, pWord As String, response As String
    pWord = "MyPassword"
    response = InputBox("Please enter the password.")
    If response = "" Then
        Exit Sub
    ElseIf response = pWord Then
        For Each ws In Sheets
            ws.Unprotect Password:=response
        Next ws
    Else
        MsgBox ("Invalid password.  Please try again.")
    End If
    Application.ScreenUpdating = True
End Sub

Obtained from the OzGrid Help Forum.

Solution provided by Mumps.