Excel'de satır ve sütun ekleme özelliğini nasıl devre dışı bırakabilirim?
Normalde, mevcut verilerin arasına satır ve sütun eklemek hızlı ve kolaydır. Ancak bir çalışma sayfasında başkalarının satır veya sütun eklemesini engellemek istiyorsanız, çalışma sayfasını koruyarak bu özelliği devre dışı bırakabilirsiniz. Peki, çalışma sayfasını korumadan satır ve sütun ekleme özelliğini nasıl devre dışı bırakabilirsiniz?
Başkalarının VBA koduyla satır ve sütun eklemesini engelleme
Başkalarının VBA koduyla satır ve sütun eklemesini engelleme
Aşağıdaki VBA kodu, Excel çalışma kitabınızda satır ve sütun ekleme özelliğini devre dışı bırakmanıza yardımcı olur. Lütfen aşağıdaki adımları izleyin:
1. Alt + F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın.
2. Ekle > Modül seçeneğine tıklayarak bir Modül penceresi açın ve ardından aşağıdaki VBA kodunu bu pencereye kopyalayın.
VBA kodu: satır ve sütun ekleme özelliğini engelleme:
Sub NoInsert()
'Updateby Extendoffice
Dim I As Integer
Dim cbStr As String
Dim cbCtrl As CommandBarControl
Application.ScreenUpdating = False
For I = 1 To 2
If I = 1 Then
cbStr = "row"
Else
cbStr = "column"
End If
For Each cbCtrl In Application.CommandBars(cbStr).Controls
If cbCtrl.ID = 3183 Then
cbCtrl.Enabled = False
End If
Next
Next
Application.ScreenUpdating = True
End Sub
3. Bu kodu çalıştırmak için F5 tuşuna basın. Artık sağ tıklayıp satır veya sütun eklemeye çalıştığınızda, bağlam menüsündeki Ekle seçeneği kullanılamaz hale gelir. Ekran görüntüsüne bakın:
Notlar:
1. Bu VBA kodu, tüm çalışma kitaplarında sağ tıklayıp Satır veya Sütun eklemeye çalıştığınızda bağlam menüsündeki **Ekle** işlevini devre dışı bırakır.
2. Bağlam menüsündeki Ekle komutunu geri yüklemek için lütfen aşağıdaki kodu uygulayın:
Sub NoInsert()
'Updateby Extendoffice
Dim I As Integer
Dim cbStr As String
Dim cbCtrl As CommandBarControl
Application.ScreenUpdating = True
For I = 1 To 2
If I = 1 Then
cbStr = "row"
Else
cbStr = "column"
End If
For Each cbCtrl In Application.CommandBars(cbStr).Controls
If cbCtrl.ID = 3183 Then
cbCtrl.Enabled = True
End If
Next
Next
Application.ScreenUpdating = True
End Sub
En İyi Office Üretkenlik Araçları
Excel becerilerinizi Kutools for Excel ile geliştirin ve verimlilikte hiç yaşamadığınız bir deneyim yaşayın.Kutools for Excel, üretkenliği artırmak ve Zamanı Kaydet için 300’den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli bir arayüz kazandırarak işlerinizi çok daha kolay hale getirir.
- Word, Excel, PowerPoint, Publisher, Access, Visio ve Project'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Belgeleri yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açıp oluşturun.
- Günlük üretkenliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
Tüm Kutools eklentileri — tek bir kurulum dosyasında!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint eklentilerini ve ayrıca Office Tab Pro’yu içeren kapsamlı bir çözümdür; Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans— birkaç dakikada hazır (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamalarında akıcı üretkenlik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat performans— ayrı ayrı eklenti satın almaya göre tasarruf sağlar