View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
John Wilson John Wilson is offline
external usenet poster
 
Posts: 550
Default 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

.