Sheet "Raport"

Option Explicit




Private Sub Worksheet_Activate()

Worksheets("raport").Unprotect "1"

If Worksheets("data").Range("P7").Value = "Ganjil" Then
Rows("37:38").EntireRow.Hidden = True
Else
Rows("37:38").EntireRow.Hidden = False
End If

'======mengatur tampilan=======
ActiveWindow.Zoom = 75
ActiveWindow.ScrollColumn = 1

Range("V8").Select


Worksheets("raport").Protect "1", userinterfaceonly:=True
End Sub

Private Sub Worksheet_Calculate()

'======mengatur nomor nama siswa kosong atau jumlah siswa lebih dari yang ada ===========

Worksheets("raport").Unprotect "1"

If Worksheets("raport").Range("V8").Value > Worksheets("raport").Range("W8").Value Then
MsgBox "Tidak Ditemukan Nama Siswa" & vbCrLf & "Silahkan Cek Jumlah Siswa" & vbCrLf & "Nomor lebih dari jumlah siswa", vbOKOnly + vbCritical, "Perhatian"
Range("V8").Value = Worksheets("isinama").Range("G2").Value

End If


If Worksheets("raport").Range("V8").Value <= 0 Then
MsgBox "Tidak Ditemukan Nama Siswa" & vbCrLf & "Silahkan Cek Jumlah Siswa" & vbCrLf & "Nomor urut kurang dari jumlah siswa", vbOKOnly + vbCritical, "Perhatian"
Range("V8").Value = 1
End If



Worksheets("raport").Protect "1", userinterfaceonly:=True

End Sub