How to unprotect command button

Category: [Excel] Demo Available

How to unprotect command button

Requirement:

The user has a worksheet that is protected/locked with a password.

The user has a CommandButton that, when clicked loads a UserForm that is used to enter records into the worksheet.

The user wants it in such a way that when the CommandButton is clicked, it will prompt the user to enter the unprotect password (used to protect/lock the worksheet), before the UserForm loads.

If the user enters the correct unprotect password, then the UserForm loads. If the user enters the incorrect unprotect password, a msgbox displays and the UserForm will not load.

The problem is when the CommandButton is clicked, the user will be prompted to enter the unprotect password (Excel's Built-In Unprotect dialog), if the user clicks the "Cancel" button, the UserForm still loads. This is not what is wanted - what is wanted is: If the "Cancel" button is clicked, the MsgBox displays, and the UserForm does NOT load. Below is the code for the CommandButton:

Code:

 
Private Sub CommandButton1_Click()
On Error Resume Next
ActiveSheet.Unprotect
If Err <> 0 Then
MsgBox:
MsgBox "Incorrect Password. Unlock Failed!"
Else
UserForm3.Show
End If
End Sub

https://www.ozgrid.com/forum/forum/help-forums/excel-vba-macros/149357-unprotect-command-button

Solution:

Code:

Private Sub CommandButton1_Click()
    On Error GoTo ErrorOccured
    Dim pwd1 As String
    pwd1 = InputBox("Please Enter the password")
    If pwd1 = "" Then Exit Sub
    ActiveSheet.Unprotect Password:=pwd1
   UserForm1.Show
Exit Sub
ErrorOccured:
    MsgBox "Sheets could not be UnProtected - Password Incorrect"
    Exit Sub
End Sub

Obtained from the OzGrid Help Forum.

Solution provided by dotchijack.

Gallery

stars (0 Reviews)

Microsoft® and Microsoft Excel® are registered trademarks of Microsoft Corporation.
OzGrid is in no way associated with Microsoft.

Website designed by Astrava Solutions Ltd.