Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
protect sheet with password
i got a macro to protect my sheet and then navigate me to another sheet.
i need this macro to protect the sheet with a password and then i need another macro to unprotect the password protected sheet. this is what im using now Sub data() ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True Application.MoveAfterReturnDirection = xlToRight Sheets("data").Select Range("A111").Select End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
protect sheet with password
Possibly
Sub data() ActiveSheet.Protect Password:="mypass" Sheets("data").Select Range("A111").Select End Sub Sub data1() Sheets("Sheet1").Unprotect Password:="mypass" Sheets("sheet1").Select Range("A111").Select End Sub Mike "pswanie" wrote: i got a macro to protect my sheet and then navigate me to another sheet. i need this macro to protect the sheet with a password and then i need another macro to unprotect the password protected sheet. this is what im using now Sub data() ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True Application.MoveAfterReturnDirection = xlToRight Sheets("data").Select Range("A111").Select End Sub |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
protect sheet with password
Sub SHEETPROTECT()
With ActiveSheet .Protect Password:="justme", DrawingObjects:=True, _ Contents:=True, Scenarios:=True .EnableSelection = xlUnlockedCells Application.MoveAfterReturnDirection = xlToRight End With End Sub Sub SHEETUNPROTECT() ActiveSheet.Unprotect Password:="justme" Application.MoveAfterReturnDirection = xlDown End Sub Gord Dibben MS Excel MVP On Sun, 30 Dec 2007 00:31:00 -0800, pswanie wrote: i got a macro to protect my sheet and then navigate me to another sheet. i need this macro to protect the sheet with a password and then i need another macro to unprotect the password protected sheet. this is what im using now Sub data() ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True Application.MoveAfterReturnDirection = xlToRight Sheets("data").Select Range("A111").Select End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
password protect a sheet | Excel Discussion (Misc queries) | |||
password protect a single sheet | Excel Discussion (Misc queries) | |||
Protect sheet without password? | Excel Discussion (Misc queries) | |||
Password Protect a Sheet | Excel Discussion (Misc queries) | |||
Protect Sheet with password through VBA | Excel Programming |