√ Cara Menciptakan Backup Data Worksheet Dengan Vba Pada Ms. Excel

Luar biasa sekali ya, ternyata VBA sanggup menciptakan backup data dimana data yang dibackup sanggup berupa worksheet yang mungkin membuatuhkan pengamanan data. Biasanya menciptakan backup data ini diaplikasikan dengan pembuatan aplikasi berbasis VBA. Kenapa harus dibentuk backup data?

Tentu saja seorang programmer yang telah mendesain aplikasi tersebut tidak ingin data yang dientri oleh user akan hilang atau terjadi error pada aplikasinya. Fasilitas backup data ini dibentuk alasannya yakni memang ada beberapa programmer yang menciptakan aplikasi berbasis VBA Ms. Excel dimana user tidak sanggup melihat worksheet daerah data tersimpan dan tentunya hal ini juga harus difasilitasi dengan backup.

Contoh berikut yakni backup worksheet dan lihat screenshoot dari backup data berikut ini

Dari gambar diatas tentunya kita membutuhkan 1 buah label, satu buah textbox dan satu buah commandbutton. Saya kira untuk menciptakan ketiga object tersebut sudah sanggup dilakukan dan langkah berikutnya kita akan menciptakan coding untuk masing-masing object tersebut.

Buat coding untuk Backup

Sub Backup()
    Dim NamaFile As String

    Sheets("Database").Copy
    With Sheets("Database").UsedRange
        .Copy
        .PasteSpecial xlValues
        .PasteSpecial xlFormats
    End With
    Application.CutCopyMode = False

    NamaFile = "D:\" & TextBox1.Value & "\" & "Backup-" & Format(Range("A1"), "DDMMyyyy") & ".xlsm"
    ActiveWorkbook.SaveAs Filename:=NamaFile, _
                          FileFormat:=xlOpenXMLWorkbookMacroEnabled
Application.ActiveWorkbook.Close
MsgBox "Backup Berhasil, " & "Silakan lihat di: " & NamaFile, vbInformation, "Info"
End Sub

Langkah selanjutnya jikalau sudah menciptakan satu buah coding backup tersebut kini silakan double klik CommandButton1 dan ketikkan script berikut

Private Sub CommandButton1_Click()
On Error Resume Next
Dim NamaFolder As String
If TextBox1.Value = "" Then
MsgBox "Silakan buat Nama Folder untuk Backup", vbInformation, "Info"
TextBox1.SetFocus
Else

NamaFolder = "D:\" & TextBox1.Value & "\"
If Dir("D:\" & TextBox1.Value & "\" & client) = Empty Then
    MkDir "D:\" & TextBox1.Value & "\" & client
    MsgBox "Folder: " & TextBox1.Value & " berhasil dibuat", vbInformation, "Info"
End If
Backup
End If
End Sub

Coding diatas akan menciptakan sebuah direktori atau folder sebagai daerah untuk menyimpan hasil backup dan folder tersebut sanggup kita rubah dengan memasukan nama folder di textbox1 dan jikalau folder berhasil dibentuk maka muncul gosip bahwa "Folder berhasil dibuat" dan nama folder sesuai dengan yang diketikan pada textbox1 tersebut.

Langkah berikutnya kita akan menciptakan mekanisme dimana textbox1 berubah dan berikut codingnya

Private Sub TextBox1_Change()
Sheets("database").Range("B2").Value = TextBox1.Value
End Sub

Agar dikala userform aktive nama folder sanggup diubahsuaikan dengan dafault kita maka silakan buat mekanisme dikala userform active

Private Sub UserForm_Activate()
On Error Resume Next
TextBox1.Value = "MasterBackup"
End Sub

Kita buat lagi satu buah coding untuk userform dikala bagaimana close userform maka muncul pesan dan silakan tulis coding berikut

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
MsgBox "Backup dibatalkan", vbInformation, "Info"
End Sub

Ok, daripada gundah mikirin coding silakan copy paste saja coding diatas lalu silakan coba saja dan jikalau berhasil maka backup data worksheet database akan tersimpan pada folder yang telah dibentuk tersebut.

Selamat mencoba, biar Cara Membuat Backup Data Worksheet dengan VBA



Sumber http://www.excel-id.com/