Password protect 1 worksheet from viewing

[kelly1]

Is it possible to password protect just one worksheet in a workbook from viewing?

The worksheet is called USERS


Thanks for any help

Kelly

 

[XLGibbs]

You can hide the sheet

Format>Sheets>Hide

and the Tools>Protection>Protect Workbook>Structure.

YOu can enter a password there.

 

[Legacy 51064]

You can protect the sheet by:


Format
Sheets
Hide

Then:

Tools
Protection
Protect sheet.

Excel is not a very secure program.

 

[Smitty]

You can use VBA to set the sheet as VeryHidden, which can only be unhidden through VBA.

The following code will test for your user name and if it's not you, hide the sheet when the wb is opened:

<font face=tahoma><SPAN style="color:#00007F">Private</SPAN> <SPAN style="color:#00007F">Sub</SPAN> Workbook_Open()
    <SPAN style="color:#00007F">Dim</SPAN> AdminUser <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">String</SPAN>
        AdminUser = Environ("username")
        
        <SPAN style="color:#00007F">If</SPAN> AdminUser <> "yourusername" <SPAN style="color:#00007F">Then</SPAN>
            Sheets("Users").Visible = xlVeryHidden
        Else: Sheets("Users").Visible = <SPAN style="color:#00007F">True</SPAN>
        <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">If</SPAN>
        
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>

Hope that helps,

Smitty

 

[erik.van.geit]

Hi, Kelly,

so you mean the worksheet would be hidden ?
you could put a button on a sheet to show it or invent some secret trick to show it (like putting a certain value in a cell to activate the code)
anyway you will have to lock your project from viewing

Sub test()
If InputBox("code please", "TITLE", "") <> "yourcode" Then Exit Sub
ThisWorkbook.Unprotect "password"
    With Sheets("USERS")
    .Visible = True
    .Activate
    End With
ThisWorkbook.Protect "password"
End Sub

to hide the sheet when leaving

Private Sub Worksheet_Deactivate()
    ThisWorkbook.Unprotect "password"
    Me.Visible = xlSheetVeryHidden
    ThisWorkbook.Protect "password"
End Sub

you could make this conditional (checking who is using the workbook with Environ("username") ... or checking the "secret-trick-cell")

would this get you further ?

kind regards,
Erik

 

[kelly1]

Done it

Thanks a lot everyone

Regards

Kelly