use the following code but get a error-expected named parameter
Code:Sub Auto_Open() With Worksheets("sheet1") .Unprotect Password:="hello" ' If there's a password, use it within the double quote .Protect UserInterfaceOnly:=True, Password="hello"' If there's a password, use it within the double quote End With End Sub




Reply With Quote
Bookmarks