Hi,
I have put the code I got from this forum, (Thanks Simon) in a module
taken away the apostrophs, and it all works fine, until I type th
password.
I want to get access and automatically jump to the sheet named hidden
Now, I stay put in the same sheet as I have placed the "accessbutton".
What have I missed here?
Thanks in advance
//Thomas
Sub pw()
'
' msg Macro
'
' Keyboard Shortcut: Ctrl+Shift+M
Dim t1 As String
Dim I1 As Integer
Dim I2 As Integer
I1 = MsgBox("Continue", 292, "Password?")
If I1 = 6 Then
For I2 = 1 To 3
t1 = InputBox("Password", "Input", "")
If t1 = "simon" Or t1 = "mark" Then
Sheet("hidden") = t1
Exit Sub
Else
Worksheets("hidden").Visible = True
Worksheets("hidden").Select
ActiveSheet.Range("a2").Select
Selection.Insert Shift:=xlDown
Selection = t1
Worksheets("hidden").Visible = False
End If
Next 'I2
MsgBox "Access denied " & Chr(13) & "The program is closing" & t1
ActiveWorkbook.Close savechanges:=True
End If
End Su
--
Message posted from
http://www.ExcelForum.com