VBA Password Input Box - Size Change or Hide Sheet When Prompting

[ryanch69]

I have a worksheet with several tabs on which i am trying to protect each individual tab. The problem i am having is that when i use the VBA code it prompts me for the password but at the same time gives visibility to the sheet before any password has been entered.

What im trying to do is to change the password prompt box to cover the screen large enough that it blocks visibility of the sheet that i would like to access, but im unsure how to do this.

Here is the code im using,

Private Sub Worksheet_Activate()
a = InputBox("Please Enter Password")
If a <> "Password" Then
MsgBox "Wrong Password"
Sheets("Sheet1").Visible = False
End If



End Sub

Any help is appreciated

[ragulduy]

I'm not sure that would work so well as the user could just move the password prompt box?

I might be missing something but can you not keep the sheet hidden until the password has been entered?

Please Login or Register  to view this content.

[ryanch69]

Hi Yudlugar,

Thanks for this,

It seems to do the trick with regards to not showing the sheet until the correct password is entered. The issue is now that as soon as the sheet is selected from the row of tabs it prompts for the password and upon entering the correct password it moves to the next tab (not showing the tab which we wanted to originally view - This process just keeps repeating itself

Hope this makes sense

[ragulduy]

Try this:

Please Login or Register  to view this content.

[ryanch69]

That works a treat, thanks for your assistance Yudlugar