Multiple worksheet protection VBA code

Question

Hello Excel Experts,I have the VBA coding to protect and unprotect multiple worksheets.&nbsp; The code only requires the password entry once before locking down the worksheets.&nbsp; Are there lines that can be placed within the code to ask for the password a second time to compare with initial password entered to be sure that the password is entered correctly?&nbsp; This would be similar to the way Excel asks for the password a second time if protecting a single sheet.Any advice would be great!&nbsp; Thank you!

hansvogelaar · Accepted Answer

Michael1105&nbsp;
For example
    Dim PW1 As String
    Dim PW2 As String
    PW1 = InputBox("Enter the password")
    If PW1 &lt;&gt; "" Then
        Do
            PW2 = InputBox("Enter the password again")
            If PW2 = PW1 Then
                Exit Do
            ElseIf MsgBox("The password doesn't match!" &amp; vbCrLf &amp; _
                    "Do you want to cancel?", vbQuestion + vbYesNo) = vbYes Then
                ' Decide what do do here
                Exit Do
            End If
        Loop
    End If

Forum Discussion

Multiple worksheet protection VBA code

Share

Resources