2 things I noticed:
Sheet("hidden") = t1
should be (?)
Sheets("hidden").Name = t1
and 'hidden' is a reserved word in Excel and could creat some conflicts with
the system.
Suggest you change it to something else (maybe: 'hidn')
Suspect that you don't have 'Option Explicit' at the top of your module.
That's what spotted 'Sheet("hidden") = t1' as
being a problem.... (after I tried to compile the code).
--
steveb
(Remove 'NOSPAM' from email address if replying direct)
"Jonsson " wrote in message
...
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 the
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 Sub
---
Message posted from http://www.ExcelForum.com/