Const tmpPassword = ""

Application.ScreenUpdating = False
Worksheets("Sheet1").Unprotect (tmpPassword)
Worksheets("Sheet1").Protect (tmpPassword)