Mencegah Rename File Macro Excel

Perhatikan gambar format gif diatas..!!! File Excel yang di rename setelah dibuka langsung memberikan peringatan agar nama file tidak di ubah dan harus dengan nama yang tertera. Walaupun Ngak penting-penting amat sich..!!! Ikuti langkah-langkah membuat file excel tidak bisa di rename. untuk percobaan ini saya  masih menggunakan file yang terdapat pada posting Tombol Simpan VBA Excel dengan tujuan agar anda bisa mengikuti dari awal pembahasan dengan demikian anda dapat membuat sebuah Aplikasi dari tahap awal secara otodidak.

Langkah-langkah Mencega Rename File Excel Macro :

• Buka Visual Basic File Aplikasi Data
• Pada Project Explorer(Jika tidak tampil tekan Ctrl + R pada Keyboard), double klik pada tulisan "ThisWorkbook" dan akan tampil layout Code. Masukkan kode dibawah ini diantara Private Sub Workbook_Open() dan End Sub

If ThisWorkbook.Name <> "Aplikasi Data.xlsb" Then
     MsgBox "Maaf, Nama File Harus ''Aplikasi Data.xlsb, Tidak Boleh DiGanti''", 16, "Error..."
       ThisWorkbook.Save
         ThisWorkbook.Close
        Application.Quit
    Exit Sub
    End If

• Selesai..!! Cobalah untuk merename file..!! bila anda meletakkan kode dengan benar maka file akan memberikan peringatan jika nama file di ganti.