Password to hide and unhide sheets
Veera,
Another way would be to make the sheet very hidden.
From the Workbook.Before_Save Event
Worksheets("Sheet2").Visible = xlVeryHidden
(Insures that the workbook is always saved with Sheet2 very hidden
Then you can have a UserForm called up from a Command Button.
Command Button Code (from the Controls Toolbox) would be:
UserForm1.Show
And the UserForm would be set up with a TextBox
and a CommandButton.
Coding as follows:
Private Sub UserForm_Activate()
If cCount 2 Then
Unload UserForm1
End If
End Sub
Private Sub CommandButton1_Click()
If cCount 2 Then
Unload UserForm1
Else
If TextBox1.Value = "abc" Then
Worksheets("Sheet2").Visible = True
Else
cCount = cCount + 1
End If
End If
End Sub
And lastly.....at the top of a regular module.....(not the UserForm
module).
Public cCount as Integer
The above will allow the user three attempts at the password and won't
give them the option again until they close and reopen the workbook.
You should then Lock and Password protect the VBA code from prying
eyes but be aware that an experienced user can circumvent any passwords
John
Veera wrote:
The only way u can allow selective access to hide r unhide
a worksheet is to protect the workbook with a password. If
u set a password to protect the workbook, unless u
unprotect the workbook u cannot hide r unhide a worksheet.
So while opening the workbook the code will be
workbook.protect "password"
when the user wants to hide/unhide a sheet
workbook.unprotect "password"
worksheet.activate
worksheet.hidden=true/false
workbook.protect "password"
Veera
-----Original Message-----
I am looking for a way to hide a sheet for most of the
users. But some of the users should be able to see the
sheets. Therefore I am looking for a macro that unhides
the sheet with a password the selected users knows.
I am all out of ideas, and wondering if somebody knows a
way.
Thanks
Nicolay
.
|