Password dialogue box to protect an excel worksheet 1

[nickkeyes]

I have a large, shared worksheet and require different views of the system for various users. I need to create a macro to open a dialogue box requesting this password which after successful entry the user clicks ok and a worksheet is displayed. I'm using a separate worksheet at the moment to create a conditional hyperlink to the desired page, but it doesn't look very professional. Any ideas???
I also need a macro to change the password.

 

[luceze]

This will let you get the password from your user.

In the on open event of your workbook add this code:
Private Sub Workbook_Open()
Pword = InputBox("Enter Password", "Security&quot
'In this area put what you want to check
if pword="12345" then
sheets("Sheet2&quot.visible=true
end if
End Sub

HTH,
Eric

 

[nickkeyes]

Thanks luceze, that seems to have done it