ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Worksheet Functions (https://www.excelbanter.com/excel-worksheet-functions/)
-   -   safeguarding document (https://www.excelbanter.com/excel-worksheet-functions/244255-safeguarding-document.html)

Dieter

safeguarding document
 
How can I make a document disappear and reopen in EXEL only after using a
password?

Gord Dibben

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?



ryguy7272

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?




ryguy7272

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?





All times are GMT +1. The time now is 08:32 PM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com