Paylaşılan korumasız bir çalışma kitabındaki satırların veya sütunların silinmesini nasıl önleyebilirim?
Bir çalışma kitabını başkalarıyla paylaştığınızda, çalışma kitabını korumadan başkalarının paylaşılan çalışma kitabınızın sütunlarını veya satırlarını silmesini nasıl engelleyebilirsiniz? Burada, başkalarının paylaşılan bir çalışma kitabındaki sütunları ve satırları silmesini engelleyebilecek bir VBA kodu buluyorum.
VBA ile paylaşılan bir çalışma kitabındaki satırların veya sütunların silinmesini önleyin
VBA ile paylaşılan bir çalışma kitabındaki satırların veya sütunların silinmesini önleyin
1. Basın Alt + F11 açmak için Uygulama için Microsoft Visual Basic pencere.
2. tık Ekle > modül Bir Modül penceresi açmak için aşağıdaki VBA'yı pencereye kopyalayın.
VBA: Satırların veya sütunların silinmesini önleyin.
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. tık koşmak düğmesi veya F5 Bu kodu çalıştırmak için klavyedeki tuşuna basın.
Daha sonra diğerleri seçili sütunları veya satırları silmek için sağ tıkladığında, içerik menüsünde Sil seçeneği uygulanamaz. Ekran görüntüsüne bakın:
Ayrıca, kullanıcıların satırları veya sütunları silmek için kısayol Ctrl + - tuşlarını kullanmalarını engeller.
Not:
(1) Çalışma kitabınızı paylaştıysanız Değerlendirme > Çalışma Kitabını Paylaş, artık herhangi bir VBA makrosu ekleyemezsiniz. Bu nedenle, çalışma kitabını paylaşmadan önce VBA'yı eklemelisiniz.
(2) Bu VBA, Sil seçili sütunlara veya satırlara sağ tıkladığınızda tüm çalışma kitaplarının bağlam menüsünde.
(3) Geri yüklemek için Sil bağlam menüsünde lütfen ikisini de değiştirin Yanlış ile Gerçek yukarıdaki VBA'da ve VBA'yı tekrar çalıştırın.
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!