Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Tab password to view
Hi
I am trying to put a password onto a tab so that when i select it, i cant see it until i enter a password. There is a solution that i have found on this group but for some reason cant get it to work for me. When i click my worksheet (Data) it asks for a password..... so far so good, but when i enter the password it doesnt show me the (data) sheet, just selects another one! Im not sure where im going wrong. My work sheets are named "Data" "Printable graphs 1" and "Printable graphs 2" if this helps.... i would like my password to be "xxx" Thanks in advance. This is what i tried to adapt and use Private Const Password As String = "DoubleOhSeven" Private Sub Worksheet_Activate() Me.Visible = False If InputBox("Please Enter the Password for the " _ & Me.Name & " Sheet", "Enter Password") _ < Password Then Me.Visible = False Else Me.Visible = True End If End Sub |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
Tab password to view
Try this
Private Const Password As String = "DoubleOhSeven" Private Sub Worksheet_Activate() Application.EnableEvents = False Me.Visible = False If InputBox("Please Enter the Password for the " _ & Me.Name & " Sheet", "Enter Password") < Password Then Me.Visible = True Else Me.Visible = True Me.Select End If Application.EnableEvents = True End Sub Mike "jackrobyn1" wrote: Hi I am trying to put a password onto a tab so that when i select it, i cant see it until i enter a password. There is a solution that i have found on this group but for some reason cant get it to work for me. When i click my worksheet (Data) it asks for a password..... so far so good, but when i enter the password it doesnt show me the (data) sheet, just selects another one! Im not sure where im going wrong. My work sheets are named "Data" "Printable graphs 1" and "Printable graphs 2" if this helps.... i would like my password to be "xxx" Thanks in advance. This is what i tried to adapt and use Private Const Password As String = "DoubleOhSeven" Private Sub Worksheet_Activate() Me.Visible = False If InputBox("Please Enter the Password for the " _ & Me.Name & " Sheet", "Enter Password") _ < Password Then Me.Visible = False Else Me.Visible = True End If End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How to turn off Page Layout View as default view | New Users to Excel | |||
Password protect for view only | Excel Discussion (Misc queries) | |||
Password Required to View\edit a Sheet in a Workbook with Many She | Excel Discussion (Misc queries) | |||
Password visible if user selects "view code" | Excel Worksheet Functions | |||
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 |