Is it possible to password protect a certain sheet so when a user attempts to view it the user is prompted for a password. Im trying to password protect a sheet from viewing as it will contain data only certain users of the system can view. Thanx in advance
-
If you would like to post, please check out the MrExcel Message Board FAQ and register here. If you forgot your password, you can reset your password.
Password protect a sheet?
- Thread starter NewGuy321
- Start date
I'm not sure if you can password protect the sheet
from viewing. You can password protect certain cells
from allowing changes.
Look under format/sheet/hide which will hide the
sheet but that is pretty easily undone by those that
are familar with Excel.
Maybe some of the guru's that I learn from will be
able to tell you how to password protect it.
Good Luck!
from viewing. You can password protect certain cells
from allowing changes.
Look under format/sheet/hide which will hide the
sheet but that is pretty easily undone by those that
are familar with Excel.
Maybe some of the guru's that I learn from will be
able to tell you how to password protect it.
Good Luck!
Upvote
0
Smitty
Legend
- Joined
- May 15, 2003
- Messages
- 29,536
You can use a worksheet activate event:
If the user gets the password wrong, they're eturned to the sheet that you specify. Note that they can still see the sheet while entering a password.
PM me your e-mail address and I'll send you a workbook that allows you to specify the sheets users are allowed to view and you can assign individual passwords.
HTH,
Smitty
Code:
Private Sub Worksheet_Activate()
Dim ans As String
ans = InputBox("Please enter your password", "Password Required")
' Set password
' If wrong, return to master sheet
If ans <> "password" Then Sheets("Sheet2").Activate
End SubPM me your e-mail address and I'll send you a workbook that allows you to specify the sheets users are allowed to view and you can assign individual passwords.
HTH,
Smitty
Upvote
0
This has been asked before, this is a reply from that
Add this to the "This workbook" code
'Re: Password protect single worksheet
'Posted by Juan Pablo on October 16, 2001 9:13 AM
Public PvSh As String
Public Pwd As String
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Pwd = "" Then
If Sh.Name = "Sheet2" Then
Num = ActiveWindow.Index
Windows(Num).Visible = False
If Application.InputBox("Enter Password", "Password") <> "airplane" Then
MsgBox "Incorrect Password", vbCritical, "Error"
Application.EnableEvents = False
Sheets(PvSh).Select
Application.EnableEvents = True
Else
Pwd = "airplane"
End If
Windows(Num).Visible = True
End If
End If
End Sub
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
PvSh = Sh.Name
End Sub
From sheet1 click on Sheet2, a password dialogue box appears with a blank background.
You may wish to password protect the vb code from viewing or anyone can see the password written in the code.
John
Add this to the "This workbook" code
'Re: Password protect single worksheet
'Posted by Juan Pablo on October 16, 2001 9:13 AM
Public PvSh As String
Public Pwd As String
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Pwd = "" Then
If Sh.Name = "Sheet2" Then
Num = ActiveWindow.Index
Windows(Num).Visible = False
If Application.InputBox("Enter Password", "Password") <> "airplane" Then
MsgBox "Incorrect Password", vbCritical, "Error"
Application.EnableEvents = False
Sheets(PvSh).Select
Application.EnableEvents = True
Else
Pwd = "airplane"
End If
Windows(Num).Visible = True
End If
End If
End Sub
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
PvSh = Sh.Name
End Sub
From sheet1 click on Sheet2, a password dialogue box appears with a blank background.
You may wish to password protect the vb code from viewing or anyone can see the password written in the code.
John
Upvote
0
Similar threads
- Question
