Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
safeguarding document
How can I make a document disappear and reopen in EXEL only after using a
password? |
#2
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
safeguarding document
Save it with a password to open.
To make it diasappear, close it. Then re-open it using the password to open. Gord Dibben MS Excel MVP On Thu, 1 Oct 2009 01:19:02 -0700, dieter wrote: How can I make a document disappear and reopen in EXEL only after using a password? |
#3
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
safeguarding document
You may want to look at this too:
http://www.databasedev.co.uk/access_security.html HTH, Ryan--- -- Ryan--- If this information was helpful, please indicate this by clicking ''Yes''. "Gord Dibben" wrote: Save it with a password to open. To make it diasappear, close it. Then re-open it using the password to open. Gord Dibben MS Excel MVP On Thu, 1 Oct 2009 01:19:02 -0700, dieter wrote: How can I make a document disappear and reopen in EXEL only after using a password? |
#4
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
safeguarding document
That was supposed to be for another post! How did that get in there!!!
Anyway..... Put the code below behind the sheet (right-click tab and click 'view code') Private Sub CommandButton1_Click() Dim i_pwd As String i_pwd = InputBox("Please Enter Password to Unhide Sheet", "Unhide Sheet...") If i_pwd = "" Then Exit Sub End If '#1 Select Case LCase(i_pwd) Case Is = "#1" Worksheets("#1").Visible = True Sheets("#1").Select '#2 Case Is = "#2" Worksheets("#2").Visible = True Sheets("#2").Select '#3 Case Is = "#3" Worksheets("#3").Visible = True Sheets("#3").Select '#4 Case Is = "#4" Worksheets("#4").Visible = True Sheets("#4").Select Case Else MsgBox "Incorrect password; no action taken.", vbInformation, _ "Unhide Sheet..." End Select Exit Sub End Sub Put this code in the 'ThisWorkbook' file: Private Sub Workbook_BeforeClose(Cancel As Boolean) Call HideSheets End Sub Private Sub Workbook_Open() Worksheets("AllEmployees").Activate Application.GoTo Range("A1"), Scroll:=True End Sub Obviously, you have to change the code to match your sheet names. HTH, Ryan--- -- Ryan--- If this information was helpful, please indicate this by clicking ''Yes''. "ryguy7272" wrote: You may want to look at this too: http://www.databasedev.co.uk/access_security.html HTH, Ryan--- -- Ryan--- If this information was helpful, please indicate this by clicking ''Yes''. "Gord Dibben" wrote: Save it with a password to open. To make it diasappear, close it. Then re-open it using the password to open. Gord Dibben MS Excel MVP On Thu, 1 Oct 2009 01:19:02 -0700, dieter wrote: How can I make a document disappear and reopen in EXEL only after using a password? |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
change excel document into word document | Excel Discussion (Misc queries) | |||
convert excel document to word document (not a picture) | Excel Discussion (Misc queries) | |||
How to create a formatted 'readable' document based on Excel document? | Excel Discussion (Misc queries) | |||
how do i rotate a document or print small document on envelope | New Users to Excel | |||
How to change a excel document into a word document? | Excel Discussion (Misc queries) |