Enable/Disable Form Button with password

Hello,

I have 2 buttons on Sheet1 that either protects or unprotects Sheet2 and Sheet3. I would like buttons to be only enabled if correct password ("1234") is entered into B4.

Additionally I would like the passcode to automatically erase once I either leave the sheet or close workbook.

This should be an easy fix but I'm a toddler still learning to walk & talk VBA scripting. Please help....thank you!

Of course if there is a better way to lock objects I would welcome all advice and criticism.

According to your attachment :

• Paste these VBA event procedures to the Sheet1 worksheet module :

PHP Code: 

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect([B5], Target) Is Nothing Then Shapes.Range([{1,2}]).Visible = [B5].Text = "1234"
End Sub

Private Sub Worksheet_Deactivate()
    [B5].ClearContents
End Sub 


• Paste this event VBA procedure to the ThisWorkbook module :

PHP Code: 

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    With Sheet1.[B5]
        If Not IsEmpty(.Value2) Then .ClearContents
    End With
End Sub 


► Do you like it ? ► ► So thanks to click on bottom left star icon « ★ Add Reputation » ! ◄ ◄

ahh......so hiding button is better option than disabling.....makes sense.

Worked beautifully Marc L.....thank you!

It's not really a question to be better but as Excel does not have any serious security
if anyone don't see any button he may not imagine there is some secret VBA procedures inside.

To add half a level of security you can password protect the VBA project
and amend each VBA procedure allocated to a button as Private Sub
in order these VBA procedures are not visible via the Alt F8 key combo …

Thanks for the rep' !