code to ask for password to get access to sheet

[Jonsson]

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

 

[steveb]

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).

 

[Jonsson]

Hi,

I modified the code and now it works perfect!

Thanks Simon for sharing the code from the beginning!!

So, here you are, a code that asks for password to get access to
certain sheet. The sheet has to be very hidden, of course.
I am aware that its a really bad protection, but it stops the averag
user from get access, I hope.

//Thomas


Sub pw()
'
' msg Macro

'
' Keyboard Shortcut: Ctrl+Shift+M
Dim t1 As String
Dim I1 As Integer
Dim I2 As Integer
Dim Worksheets As Sheets
I1 = MsgBox("Go on?", 291, "Password?")
If I1 = 6 Then
For I2 = 1 To 3
t1 = InputBox("Password", "?", "")
If t1 = "simon" Or t1 = "mark" Then
Sheets("hid").Visible = True
Sheets("hid").Select
Exit Sub
Else
'Worksheets("hid").Visible = True
'Worksheets("hid").Select
'Range("a2").Select
'Selection.Insert Shift:=xlDown
Selection = t1
'Worksheets("hid").Visible = False
End If
Next 'I2

MsgBox "Access denied " & Chr(13) & "The programme will shut down"
t1
ActiveWorkbook.Close savechanges:=True
'Application.Quit

End If

End Su