Bagaimana cara mencegah penghapusan baris atau kolom dalam buku kerja bersama yang tidak dilindungi?
Saat Anda membagikan buku kerja kepada orang lain, bagaimana Anda bisa mencegah orang lain menghapus kolom atau baris buku kerja bersama Anda tanpa melindungi buku kerja? Di sini saya menemukan kode VBA yang dapat mencegah orang lain menghapus kolom dan baris di buku kerja bersama.
Mencegah penghapusan baris atau kolom di buku kerja bersama dengan VBA
Mencegah penghapusan baris atau kolom di buku kerja bersama dengan VBA
1. tekan Alt + F11 untuk membuka a Microsoft Visual Basic untuk Aplikasi jendela.
2. klik Menyisipkan > Modul untuk membuka jendela Modul, lalu salin VBA berikut ke jendela tersebut.
VBA: Mencegah penghapusan baris atau kolom.
Sub StopDeleteRowCols()
'Updateby20221221
Dim xBarControl As CommandBarControl
Application.OnKey "^{-}", ""
For Each xBarControl In Application.CommandBars.FindControls(ID:=293)
xBarControl.Enabled = False
Next
For Each xBarControl In Application.CommandBars.FindControls(ID:=294)
xBarControl.Enabled = False
Next
End Sub
3. klik Run tombol atau F5 tombol pada keyboard untuk menjalankan kode ini.
Kemudian ketika orang lain mengklik kanan untuk menghapus kolom atau baris yang dipilih, opsi Hapus tidak dapat diterapkan di menu konteks. Lihat tangkapan layar:
Juga, itu mencegah pengguna untuk menggunakan pintasan Ctrl + - tombol untuk menghapus baris atau kolom.
Catatan:
(1) Jika Anda telah membagikan buku kerja Anda dengan ULASAN > Bagikan Buku Kerja, Anda tidak dapat lagi menambahkan makro VBA. Oleh karena itu, Anda sebaiknya menambahkan VBA sebelum membagikan buku kerja.
(2) VBA ini akan menonaktifkan Delete di menu konteks di semua buku kerja saat Anda mengklik kanan kolom atau baris yang dipilih.
(3) Untuk memulihkan file Delete di menu konteks, harap ganti keduanya Salah dengan Benar di VBA di atas, dan jalankan VBA lagi.
Alat Produktivitas Kantor Terbaik
Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu. Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...
Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah
- Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
- Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
- Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!
