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()Agar dikala userform aktive nama folder sanggup diubahsuaikan dengan dafault kita maka silakan buat mekanisme dikala userform active
Sheets("database").Range("B2").Value = TextBox1.Value
End Sub
Private Sub UserForm_Activate()Kita buat lagi satu buah coding untuk userform dikala bagaimana close userform maka muncul pesan dan silakan tulis coding berikut
On Error Resume Next
TextBox1.Value = "MasterBackup"
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)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.
MsgBox "Backup dibatalkan", vbInformation, "Info"
End Sub
Selamat mencoba, biar Cara Membuat Backup Data Worksheet dengan VBA
Sumber http://www.excel-id.com/