Password Protection problem??

[zilch4ry]

Hi,

I found an answer on Google which said to add a code to the beginning of a macro which will then password protect the item before it can proceed.

The problem i have is when i run the code from the Developer tab-Macros-Imput1- Run the macro will work fine, but if i place this macro onto a shape i assigned as the 'macro button' it simply misses out the part which involves entering a password. Anybody know why this is happening

Any help will be much appreciated.

Here is my code:

Sub Input1()

If UCase(InputBox("Enter Password")) <> "password" Then Sheets("Input 1").Select

End Sub

Thanks,

Tom

 

[JoeMo]

What "item" are you trying to protect? The code you posted should run fine if assigned to a shape unless there is no sheet named "Input 1".

 

[zilch4ry]

Oh sorry i figured it out- i copied a shape which had a hyperlink on it Thank you for taking the time to answer my question though, it means a lot