Sheet Daftar Hadir

Private Sub Worksheet_Activate()
Worksheets("dafdir").Unprotect "1"
Application.ScreenUpdating = False

'======menyembunyikan baris yang sisa======

Dim barisakhir22 As Byte

Range("11:70").EntireRow.Hidden = False
barisakhir22 = Range("C9").Value
Rows(barisakhir22 & ":63").Select
Selection.EntireRow.Hidden = True

''======menyembunyikan kolom yang sisa======
'
'Columns(Range("I13").Value & ":AJ").Select
'Selection.EntireColumn.Hidden = True

ActiveWindow.Zoom = 90
ActiveWindow.ScrollColumn = 1

Application.ScreenUpdating = True
Range("C11").Select
Worksheets("dafdir").Protect "1", userinterfaceonly:=True




End Sub