Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
code to ask for password to get access to sheet
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
code to ask for password to get access to sheet
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/ |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
code to ask for password to get access to sheet
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 -- Message posted from http://www.ExcelForum.com |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Code to protect/unprotect a sheet using a macro with password | Excel Discussion (Misc queries) | |||
is there anyway to make it so the users of my excel spread sheet cant view the macro code w/o a password? | Excel Worksheet Functions | |||
linking excel sheet to access using code | Excel Programming | |||
Access protected VB code by initiating password dialog box | Excel Programming | |||
Password to get access to certain sheet | Excel Programming |