Excel’de, korumalı bir çalışma sayfasında tabloyu, tablo satırı ekleyerek genişletilebilir durumda nasıl korursunuz?
Excel'de bir çalışma sayfasını koruduğunuzda, tabloların otomatik genişleme özelliği genellikle devre dışı bırakılır. Örneğin, “Table1” adlı bir tablonuz varsa ve korumalı bir çalışma sayfasında tablonun son satırının altına veri eklemeye çalışırsanız, tablo bu yeni satırı otomatik olarak kapsamaz. Ancak, çalışma sayfası korunmuş olsa bile tablonuzu genişletilebilir durumda tutmanın bir yolu vardır. Bu öğretici, çalışma sayfası korunurken tablonuzun otomatik genişlemesini etkinleştirmeniz için adım adım gerekli işlemleri gösterecektir.
Korumalı bir çalışma sayfasında VBA kodu ile tabloyu tablo satırı ekleyerek genişletilebilir hâlde tutma
Aşağıdaki ekran görüntüsünde gösterildiği gibi, çalışma sayfanızda **Table1** adlı bir tablo yer almakta ve bu tablonun **Son Sütun** sütunu bir formül sütunudur. Çalışma sayfasını koruyarak formül sütunundaki değişiklikleri önlemelisiniz; ancak aynı zamanda kullanıcıların tabloya yeni satır ekleyip yeni hücrelere veri girmesine de izin vermelisiniz. Aşağıdaki adımları uygulayın.
1. Çalışma sayfanıza bir Form Denetimi düğmesi eklemek için Geliştirici > Ekle > Düğme (Form Denetimi) seçeneğine tıklayın.
2. Açılan Makroyu Ata iletişim kutusunda, Yeni düğmesine tıklayın.
3. Microsoft Visual Basic for Applications penceresinde, aşağıdaki VBA kodunu Sub ve End Sub satırları arasına Kod penceresine kopyalayıp yapıştırın.
VBA kodu: Korumalı bir çalışma sayfasında tabloyu tablo satırı ekleyerek genişletilebilir hâlde tutma
'Update by ExtendOffice 20220826
Dim xRg, tableRg As Range
Dim xRowCount As Integer
Dim pswStr As String
pswStr = "123"
On Error Resume Next
Application.ScreenUpdating = False
ActiveSheet.Unprotect Password:=pswStr
Set tableRg = ActiveSheet.ListObjects("Table4").Range
xRowCount = tableRg.Rows.Count
Set xRg = Range("Table4[[#Headers],[Total]]").Offset(1, 0)
Set yRg = xRg.Resize(xRowCount, 1)
xRg.Resize(xRowCount - 1, 1).AutoFill Destination:=yRg, Type:=xlFillDefault
ActiveSheet.Protect Password:=pswStr, DrawingObjects:=False, _
Contents:=True, Scenarios:=False, _
AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowInsertingColumns:=True, _
AllowInsertingRows:=True, AllowInsertingHyperlinks:=True, _
AllowDeletingColumns:=True, AllowDeletingRows:=True, _
AllowSorting:=True, AllowFiltering:=True, _
AllowUsingPivotTables:=True
Application.ScreenUpdating = TrueNotlar:
4. Microsoft Visual Basic for Applications penceresini kapatmak için Alt+Q tuşlarına basın.
5. Formül sütunu dışındaki, yeni veri girmeniz gereken tablo hücrelerini seçin, ardından Ctrl+1 tuşlarına basarak Hücre Biçimini Ayarlar iletişim kutusunu açın. Hücre Biçimini Ayarlar iletişim kutusunda Kilitli kutucuğunun işaretini kaldırın ve ardından Tamam düğmesine tıklayın. Ekran görüntüsüne bakın:
6. Artık çalışma sayfanızı, VBA kodunuzda belirttiğiniz parola ile koruyun.
Artık korumalı çalışma sayfanızda Form Denetimi düğmesine tıkladıktan sonra, aşağıdaki ekran görüntüsünde gösterildiği gibi tablo yeni satırlar eklenerek genişletilebilecek.
Not: Korumalı çalışma sayfasında, formül sütunu dışında tabloyu değiştirebilirsiniz.
İlgili makaleler:
- Excel'de PivotTable dilimleyicisinin çalışma sayfası kaydırıldığında birlikte hareket etmesini nasıl sağlarsınız?
- Excel'de hücreleri birleştirirken biçimlendirmeyi nasıl korursunuz?
- Excel'de Yinelenenleri Kaldır işlemini yaparken ilk örneği nasıl korursunuz?
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