Sebuah Macro Excel untuk Simpan Buku Kerja sebelum Menutup - patung

Makro yang dibentangkan di sini adalah cara terbaik untuk melindungi pengguna daripada secara tidak sengaja menutup fail mereka sebelum menyimpan. Apabila dilaksanakan, makro ini memastikan bahawa Excel secara automatik menyelamatkan buku kerja sebelum menutupnya.

Excel biasanya akan memberi amaran kepada pengguna yang cuba menutup buku kerja yang tidak disimpan, memberi mereka pilihan untuk disimpan sebelum tutup. Bagaimanapun, ramai pengguna mungkin melepaskan amaran dan secara tidak sengaja klik Tidak, memberitahu Excel untuk menutup tanpa menyimpan. Dengan makro ini, anda melindungi terhadap ini dengan menjimatkan secara automatik sebelum tutup.

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. Intip kod adalah mudah - ia meminta pengguna sama ada mereka mahu menutup buku kerja. Makro kemudian menilai sama ada pengguna mengklik OK atau Batal.

mesej yang anda lihat apabila anda cuba menutup buku kerja.

Penilaian dilakukan dengan pernyataan Pilih Kes. Kenyataan Pilih Kes adalah alternatif kepada kenyataan If-Then-Else, yang membolehkan anda melakukan pemeriksaan keadaan dalam makro anda. Pembentukan asas pernyataan Select Case adalah sederhana:

Pilih Case Case Is = Case Is = Case Is = End Select

Dengan pernyataan Select Case, anda dapat melakukan banyak pemeriksaan bersyarat. Dalam kes ini, anda hanya semak OK atau Batal. Lihat kod:

Di Langkah 1, anda mengaktifkan kotak mesej sebagai syarat untuk pernyataan Select Case. Anda menggunakan argumen vbOKCancel untuk memastikan butang OK dan Batal dibentangkan sebagai pilihan.

Dalam Langkah 2, jika pengguna mengklik Batal di kotak mesej, makro memberitahu Excel untuk membatalkan acara Workbook_Close dengan lulus Benar ke Batal Boolean.

Jika pengguna mengklik butang OK dalam kotak mesej, Langkah 3 berkuatkuasa. Di sini, anda memberitahu Excel untuk menyimpan buku kerja. Dan kerana anda tidak menetapkan Boolean Batal ke Benar, Excel terus dengan penutupnya.

Di Langkah 4, anda hanya menutup kenyataan Select Case. Setiap kali anda memberi contoh Kes Pilih, anda mesti menutupnya dengan Selesai Pilih yang sepadan.

Cara menggunakan makro

Untuk melaksanakan makro ini, anda perlu menyalin dan menampalnya ke dalam tetingkap kod acara Workbook_BeforeClose. Menetapkan makro di sana 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.

2. Klik ThisWorkbook.

3. Dalam senarai juntai Peristiwa, pilih acara SebelumClose.

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

5. Masukkan kod anda dalam acara Workbook SebelumClose.