Sheet "Sikap"

Private Sub Worksheet_Activate()


Worksheets("sikap").Unprotect "1"


Range("I6:O55").Locked = False



   ActiveWindow.Zoom = 85
   ActiveWindow.ScrollColumn = 1








Range("I6").Select
Worksheets("sikap").Protect "1", userinterfaceonly:=True




End Sub