Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Is there a way that I can password protect a worksheet
Does anyone know if there is a way that I can password protect a worksheet
but still leave access to the rest of the workbook? |
#2
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Is there a way that I can password protect a worksheet
Hi,
Alt +F11 to open VB editor. Double click 'This workbook' and paste the code below in. This does what you want but isn't secure. If a user doesn't enable macros they see the sheet. Anyone with even a small amount of knowledge and Google would view your sheet in seconds. Change "Sheet1" to whichever you want Private Sub Workbook_SheetActivate(ByVal Sh As Object) MySheet = "Sheet1" If ActiveSheet.Name = MySheet Then ActiveSheet.Visible = False response = InputBox("Enter password to view sheet") If response = "MyPass" Then Sheets(MySheet).Visible = True Application.EnableEvents = False Sheets(MySheet).Select Application.EnableEvents = True End If End If End Sub Mike "Lin4it" wrote: Does anyone know if there is a way that I can password protect a worksheet but still leave access to the rest of the workbook? |
#3
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Is there a way that I can password protect a worksheet
Missed a line, use this instead
Private Sub Workbook_SheetActivate(ByVal Sh As Object) MySheet = "Sheet1" If ActiveSheet.Name = MySheet Then ActiveSheet.Visible = False response = InputBox("Enter password to view sheet") If response = "MyPass" Then Sheets(MySheet).Visible = True Application.EnableEvents = False Sheets(MySheet).Select Application.EnableEvents = True End If End If Sheets(MySheet).Visible = True End Sub Mike "Mike H" wrote: Hi, Alt +F11 to open VB editor. Double click 'This workbook' and paste the code below in. This does what you want but isn't secure. If a user doesn't enable macros they see the sheet. Anyone with even a small amount of knowledge and Google would view your sheet in seconds. Change "Sheet1" to whichever you want Private Sub Workbook_SheetActivate(ByVal Sh As Object) MySheet = "Sheet1" If ActiveSheet.Name = MySheet Then ActiveSheet.Visible = False response = InputBox("Enter password to view sheet") If response = "MyPass" Then Sheets(MySheet).Visible = True Application.EnableEvents = False Sheets(MySheet).Select Application.EnableEvents = True End If End If End Sub Mike "Lin4it" wrote: Does anyone know if there is a way that I can password protect a worksheet but still leave access to the rest of the workbook? |
#4
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Is there a way that I can password protect a worksheet
To just prevent editing on the sheet go to ToolsProtectionProtect sheet
with a password. To prevent users from seeing the sheet.................... FormatSheetHide ToolsProtectionProtect Workbook with a password. Note: Excel's internal security is very weak so be aware that a determined user will be able to crack your password quite readily. Gord Dibben MS Excel MVP On Thu, 27 Nov 2008 05:49:01 -0800, Lin4it wrote: Does anyone know if there is a way that I can password protect a worksheet but still leave access to the rest of the workbook? |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Hide and password protect a worksheet | Excel Discussion (Misc queries) | |||
Password Protect a Worksheet | Excel Discussion (Misc queries) | |||
Protect a worksheet with a password | Excel Worksheet Functions | |||
password protect worksheet | Excel Discussion (Misc queries) | |||
lost my password (worksheet protect) | Excel Discussion (Misc queries) |