Modul Menu

Sub bukalaporansantri()
Sheet1.Unprotect "1"
FORMLAPORANSANTRI.Show
Sheet1.Protect "1", userinterfaceonly:=True
End Sub

Sub BukaDataSiswa()
Sheet1.Unprotect "1"
FORMSISWA.Show
Sheet1.Protect "1", userinterfaceonly:=True
End Sub

Sub BukaSetoran()
Sheet1.Unprotect "1"
FORMSETORAN.Show
Sheet1.Protect "1", userinterfaceonly:=True
End Sub

Sub BukaPenarikan()
Sheet1.Unprotect "1"
FORMPENARIKAN.Show
Sheet1.Protect "1", userinterfaceonly:=True
End Sub

Sub Laporan()
Sheet1.Unprotect "1"
FORMLAPORAN.Show
Sheet1.Protect "1", userinterfaceonly:=True
End Sub
Sub LaporanSantri()
Sheet1.Unprotect "1"
FORMLAPORANSANTRI.Show
Sheet1.Protect "1", userinterfaceonly:=True
End Sub
Sub Simpan()
ThisWorkbook.Save
End Sub

Sub Keluar()
Select Case MsgBox("Anda akan keluar dari Aplikasi" _
& vbCrLf & "Apakah anda yakin?" _
, vbYesNo Or vbQuestion Or vbDefaultButton1, "Keluar")
Case vbNo
Exit Sub
Case vbYes
End Select
ThisWorkbook.Save
ThisWorkbook.Close
End Sub