Backup File

 

Option Explicit

Sub backup()

ThisWorkbook.SaveCopyAs Filename:=ThisWorkbook.Path & "\" & _

Format(Date, "dd-mmmm-yyyy") & " hasil " & Sheets(1).Range("B2").Value

'=====atau ThisWorkbook.Name

End Sub

Buka File

 Option Explicit

Sub import()

Dim bukafile As Variant

bukafile = Application.GetOpenFilename(FileFilter:="Excel Workbooks,*.xl*", _

Title:="Pilih file yang akan diimport", _

MultiSelect:=False)

If bukafile <> False Then

Workbooks.Open Filename:=bukafile

End If

End Sub

Peringatan Menyimpan Sebelum Menutup File

 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