VBA code for Unprotect Sheet by button click an display messages

Hi there,

checked the forum for similar situations but was not able to find something similar where I could start from...
So:
I have a protected workbook with a password ("pass1" for example); for locking I use a button with as simple code, the unlocking part is where I need help.
1- When I click on the "unlock" button, the excel "enter password" box pops up and you enter the password.
2- if it's Ok, then it displays the message "Sheet Unprotected", if the password is false it goes "Wrong password".

The code looks like this:

Please Login or Register  to view this content.

The problem:
If one clicks on the cancel or close button in the "enter pass" pop up window, then the "Sheet Unprotected" message comes up - which of course is not true.

The idea is (but don't know to write the proper code):
1. If you enter the right password, then display the message "Sheet Unprotected".
2. If you enter the wrong pass, then display "Wrong password"
3. If you either close the window or click cancel, the just close the window, no need for a pop up message.

I would be really grateful for any suggestions.

RandomVBA please review the forum rules, especially #3... about using code tags. Thanks!

Please edit your post after that to include the code tags (highlight your code portion of your post and hit the # icon in the menu above the box where you type).

As for solution to your problem replace

Please Login or Register  to view this content.

with

Please Login or Register  to view this content.

Originally Posted by Arkadi

RandomVBA please review the forum rules, especially #3... about using code tags. Thanks!

Please edit your post after that to include the code tags (highlight your code portion of your post and hit the # icon in the menu above the box where you type).

As for solution to your problem replace

Please Login or Register  to view this content.

with

Please Login or Register  to view this content.

I apologize for the mistake, I did edit the post and now it should be ok.

Anyhow, thank you very much for the code. It works perfect!

Regards.