Sebuah Makro Excel untuk Mencegah Buku Kerja daripada Penutup - dummies

Ada kalanya anda tidak mahu pengguna menutup buku kerja Excel tanpa memasukkan sekeping data tertentu. Dalam situasi ini, akan berguna untuk menafikan pengguna keupayaan untuk menutup buku kerja sehingga sel target diisi (seperti ditunjukkan di sini). Di sinilah makro nifty ini masuk.

Hentikan penutup sehingga sel tertentu dihuni.

Bagaimana makro berfungsi

Kod ini dicetuskan oleh acara sebelum acara WorkClose. Apabila anda cuba menutup buku kerja, kebakaran ini berlaku, menjalankan kod tersebut di dalamnya. Cek makro ini untuk melihat sama ada sel target (sel C7, dalam kes ini) kosong. Jika ia kosong, proses tutup dibatalkan. Sekiranya C7 tidak kosong, buku kerja disimpan dan ditutup:

Sub Workbook_BeforeClose (Batal Sebagai Boolean) 'Langkah 1: Semak untuk melihat sama ada sel C7 kosong Jika Helaian ("Sheet1"). Julat ("C7"). Nilai = "Kemudian" Langkah 2: Jika sel kosong, batalkan tutup dan beritahu pengguna Batal = MsgBox Murni "Cell C7 tidak boleh kosong" 'Langkah 3: Jika sel tidak kosong, simpan dan tutup Elemen ActiveWorkbook Tutup SaveChanges: Camat Sejati Jika Sub Akhir

Langkah 1 memeriksa untuk melihat sama ada C7 kosong.

Jika C7 kosong, Langkah 2 berkuatkuasa, membatalkan proses rapat dengan meluluskan Benar ke Batal Boolean Langkah 2 juga mengaktifkan kotak mesej yang memberitahu pengguna kebodohannya (dengan baik, itu tidak terlalu keras, benar).

Dalam Langkah 3, jika sel C7 tidak kosong, buku kerja disimpan dan tertutup

Cara menggunakan makro

Untuk melaksanakan makro ini, anda perlu menyalin dan menyisipkannya ke dalam tetingkap kod acara Workbook_BeforeClose.Mempetakkan makro di sini membolehkannya berjalan setiap kali anda cuba menutup buku kerja: <

Aktifkan Visual Basic Editor dengan menekan Alt + F11.

1. Dalam tetingkap projek, cari nama projek / buku kerja anda dan klik tanda tambah di sebelahnya untuk melihat semua helaian. > Klik ThisWorkbook.

2. Dalam senarai juntai Peristiwa, pilih acara SebelumClose.

3. Taip atau tampal kod dalam modul yang baru dibuat.

4. Masukkan kod anda dalam acara Workbook SebelumClose.