Tips Supaya Tidak Bisa Membuat Sheet Baru di Excel

Event Workbook yang kami bahas kali ini adalah NewSheet yang dicetuskan ketika sheet baru akan ditambahkan ke dalam workbook.

Adapun sheet baru dapat ditambahkan melalui tombol lingkaran dengan tanda tambah (+) di dalamnya tepat di samping tab Sheet.

Biasanya proteksi workbook dengan password sering digunakan untuk melarang pengguna lain membuat sheet yang baru, namun dengan menggunakan kode macro berikut ini Anda jadi tidak perlu lagi membuat suatu password.

Prosedur event Workbook_NewSheet menjalankan perintah untuk segera menghapus sebuah sheet baru yang akan ditambahkan, dengan menampilkan kotak pesan yang memberitahukan pengguna bahwa membuat sheet baru dilarang pada file workbook tersebut.

Ikuti langkah-langkah berikut untuk membuat kode macronya:

1. Buka file Excel yang sudah ada atau buat workbook baru.

2. Buka VBE dengan cara menekan Alt+F11, kemudian tekan Ctrl+R untuk memastikan jendela Project Explorer membuka.

3. Pada Project Explorer klik folder dengan nama Microsoft Excel Objects.

4. Dalam daftar di bawah Microsoft Excel Objects terdapat objek workbook dengan nama ThisWorkbook. Dobel-klik ThisWorkbook untuk memunculkan module workbook.

5. Pada kotak daftar pilihan Object pilih Workbook.

6. Pada kotak daftar pilihan Procedure pilih NewSheet.

7. Tepat di bawah Private Sub Workbook_NewSheet tetapkan variabel String:

Dim a As String
a = ActiveSheet.Name

8. Matikan event dan alert:

Application.EnableEvents = False
Application.DisplayAlerts = False

9. Hapus sheet baru:

Sheets(ActiveSheet.Name).Delete

10. Buat kotak pesan pelarangan:

MsgBox "Maaf, sheet baru tidak dapat dibuat.", vbCritical, "Dilarang!"

11. Hidupkan kembali parameter:

Application.DisplayAlerts = True
Application.EnableEvents = True

12. Kode lengkapnya menjadi sebagai berikut:

Private Sub Workbook_NewSheet(ByVal Sh As Object)
Dim a As String
a = ActiveSheet.Name
Application.EnableEvents = False
Application.DisplayAlerts = False
Sheets(ActiveSheet.Name).Delete
MsgBox "Maaf, sheet baru tidak dapat dibuat.", vbCritical, "Dilarang!"
Application.DisplayAlerts = True
Application.EnableEvents = True
End Sub

13. Kembali ke worksheet dengan cara menekan Alt+Q.

14. Silakan Anda mencoba membuat sheet baru di dalam workbook Anda.

Demikian pembahasan tentang tips agar tidak bisa membuat atau menambahkan sebuah sheet baru pada Excel, semoga postingan ini bermanfaat.

Share :