If you were just wanting to protect that particular sheet, then use
EDIT: Added a semi-colon to the argumentCode:Sub Auto_Open() With Worksheets("Particular Sheet Name") .Unprotect PassWord:=""' If there's a password, use it within the double quote .Protect UserInterfaceOnly:=True, Password:=""' If there's a password, use it within the double quote End With End Sub




Reply With Quote
Bookmarks