Private Sub Workbook_Open()
ThisWorkbook.Unprotect
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ThisWorkbook.Protect
Application.DisplayAlerts = True
Application.ScreenUpdating = True
ActiveSheet.Range("A1").Select
End Sub