Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Select Case MsgBox("Apakah anda ingin menyimpan file ini?", vbOKCancel + vbQuestion, "informasi")
Case Is = vbCancel
Cancel = True
Case Is = vbOK
ActiveWorkbook.Save
End Select
End Sub
Tidak ada komentar:
Posting Komentar