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
|