Unprotect sheet button!??

[Neo1]

Hello I need some help to create a macro to unprotect worksheet bu
before it does, to pop up the dialogue box asking user to ente
password to unprotect worksheet?

I got given this code from this forum:

Private Sub Worksheet_Activate()
ActiveSheet.Unprotect Password:=your password goes here
End Sub



but how do i apply it to a button so that whenever I want to unprotec
the sheet I just need to click the button unprotect instead when th
excel file is opened.

And also how can i make it so that each worksheet has a differen
password to unprotect it?

Please I need help
Thanks a lot
From Joh

 

[Guest]

Type the following instead of "your password goes here" in your existing code:

InputBox("Please type password")

 

[Neo1]

And how can i assign that VB code so that when i click a button which
made from autoshapes it opens up the dialogue box asking for th
password?

Thanks
From Joh