Workbook Raport

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
ActiveWindow.DisplayHeadings = True
ActiveWindow.View = xlNormalView
ActiveWindow.DisplayGridlines = True
ActiveWindow.DisplayHeadings = True
ActiveWindow.DisplayWorkbookTabs = True
End Sub

Private Sub Workbook_Open()
Application.ExecuteExcel4Macro "Show.ToolBar(""Ribbon"",true)"



'############################################################

Worksheets("data").Select
Worksheets("data").cmdreset.Visible = True


With Application

    .DisplayFullScreen = True
    .DisplayStatusBar = False
    .DisplayDocumentInformationPanel = False
    .DisplayFormulaBar = False
    .EnableEvents = True
    .Calculation = xlCalculationAutomatic
Application.Caption = " | created By @qil"

End With




'==============================================

Worksheets("data").Protect "1", userinterfaceonly:=True
Worksheets("isinama").Protect "1", userinterfaceonly:=True
Worksheets("isinilai").Protect "1", userinterfaceonly:=True
Worksheets("rtganjil").Protect "1", userinterfaceonly:=True
Worksheets("dafdir").Protect "1", userinterfaceonly:=True
Worksheets("cetakdkn").Protect "1", userinterfaceonly:=True
Worksheets("dkn").Protect "1", userinterfaceonly:=True
Worksheets("sikap").Protect "1", userinterfaceonly:=True
Worksheets("rank").Protect "1", userinterfaceonly:=True
Worksheets("raport").Protect "1", userinterfaceonly:=True

End Sub


Private Sub Workbook_BeforeClose(Cancel As Boolean)
Worksheets("data").Select
Select Case MsgBox("Apakah anda ingin menyimpan file ini?", vbYesNo + vbQuestion, "Informasi")
Case Is = vbNo
Application.DisplayAlerts = False
Application.Quit
Case Is = vbYes

ThisWorkbook.Save
End Select
End Sub



Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Cancel = True
MsgBox "Maaf klik kanan dinonaktifkan", vbOKOnly + vbInformation, "Informasi"

End Sub