Sheet "Data"

Private Sub cmdreset_Click()
Dim tombol As Byte
Dim tombol2 As Byte
Dim tombol3 As Byte
ActiveWindow.View = xlNormalView





tombol = MsgBox("Apakah anda ingin benar-benar menghapus data.....??" + vbCrLf + _
"Tindakan ini menyebabkan" + vbCrLf + "DATA MAPEL, NAMA SISWA dan NILAI SISWA" + vbCrLf + "di file raport ini akan DIKOSONGKAN", vbOKCancel + vbQuestion, "PERHATIAN")

If tombol = 1 Then
    tombol2 = MsgBox("Saya ingatkan sekali lagi" + vbCrLf + "Apakah anda benar-benar ingin" + vbCrLf + "Menghapus SEMUA DATA....??", vbOKCancel + vbQuestion, "PENTING")
    If tombol2 = 1 Then
    Worksheets("data").Range("H13:H37").ClearContents
    Worksheets("isinama").Range("H4:K53").ClearContents
    Worksheets("isinilai").Range("L8:AJ57").ClearContents
    Worksheets("rtganjil").Range("G11:G60").ClearContents
    Worksheets("sikap").Range("I6:O55").ClearContents
    cmdreset.Visible = False
    tombol3 = MsgBox("Semua Data telah berhasil DIHAPUS", vbInformation + vbOKOnly, "Informasi")
    Else
    Range("A1").Select
    cmdreset.Visible = False
    End If
Else
Range("A1").Select
cmdreset.Visible = True
End If





End Sub


Private Sub Worksheet_Activate()
Worksheets("data").Unprotect "1"

'SendKeys "{ESC}"
ActiveWindow.Zoom = 100
ActiveWindow.ScrollColumn = 1
Range("H13").Select


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




End Sub