Password Input prompt to Protect/Unprotect entire workbook and all worksheets

[rach_oh]

What is the best way to go about adding an input box to the below code that would prompt for a password, notify if password is wrong, and close input box without completing if incorrect?

Private Sub CommandButton6_Click()
Workbooks("Budget Template - Working 8.7").Protect "test123"
Dim ws As Worksheet
For Each ws In Worksheets
ws.Protect "password"
Next ws
End Sub

Private Sub CommandButton7_Click()
Workbooks("Budget Template - Working 8.7").Unprotect "test123"
Dim ws As Worksheet
For Each ws In Worksheets
ws.Unprotect "password"
Next ws
End Sub

 

[rach_oh]

This is the updated code - Input box is allowing another password beside "test123" to be used to lock/unlock. How do I work around this?

Private Sub CommandButton6_Click()
Workbooks("Budget Template - Working 8.7").Protect "test123"
Dim ws As Worksheet
Dim Pwd As String
Pwd = InputBox("Enter password to protect all sheets", "test123")
On Error Resume Next
For Each ws In Worksheets
ws.Protect Password:=Pwd
Next ws
If Err <> 0 Then
MsgBox "Incorrect Password"
End If
On Error GoTo 0
End Sub

Private Sub CommandButton7_Click()
Workbooks("Budget Template - Working 8.7").Unprotect "test123"
Dim ws As Worksheet
Dim Pwd As String
Pwd = InputBox("Enter password to unprotect all sheets", "test123")
On Error Resume Next
For Each ws In Worksheets
ws.Unprotect Password:=Pwd
Next ws
If Err <> 0 Then
MsgBox "Incorrect Password"
End If
On Error GoTo 0
End Sub

 

[Skyybot]

Edit to meet your needs. If you want a specific password to be used don't use InputBox on Protect.

Private Sub CommandButton1_Click()
' Protect Workbook with this button
Dim pWord As String
pWord = InputBox("Enter password", "Lock")
ThisWorkbook.Protect (pWord)
End Sub

Private Sub CommandButton2_Click()
'Unprotect Workbook with this button
Dim pWord As String
pWord = InputBox("Enter password", "Unlock")
On Error GoTo wrongPword
ThisWorkbook.Unprotect (pWord)
Exit Sub
wrongPword:
    MsgBox "Password is incorrect", vbCritical, "Try Again"
End Sub