Excel'de korumalı bir çalışma sayfasına tablo satırı ekleyerek tabloyu genişletilebilir tutmak nasıl?
Excel'de çalışma sayfasını koruduktan sonra tablonun otomatik genişletme işlevi kaybolacaktır. Örneğin, korumalı çalışma sayfanızda Tablo1 adlı bir tablo var, son satırın altına herhangi bir şey yazdığınızda, tablo otomatik olarak yeni satırı içerecek şekilde genişlemeyecektir. Korumalı bir çalışma sayfasına yeni satır ekleyerek tabloyu genişletilebilir tutmak için bir yöntem var mı? Bu makaledeki yöntem, bunu başarmanıza yardımcı olabilir.
VBA kodu ile korumalı bir çalışma sayfasına tablo satırı ekleyerek tabloyu genişletilebilir tutun
VBA kodu ile korumalı bir çalışma sayfasına tablo satırı ekleyerek tabloyu genişletilebilir tutun
Aşağıda gösterilen ekran görüntüsü gibi, çalışma sayfanızdaki Table1 adlı bir tablo ve tablonun son sütunu bir formül sütunudur. Şimdi, formül sütununun değişmesini önlemek için çalışma sayfasını korumanız gerekir, ancak yeni satır ekleyerek ve yeni hücrelere yeni veriler atayarak tabloyu genişletmenize izin verin. Lütfen aşağıdaki işlemleri yapın.
1. tık Geliştirici > Ekle > Düğme (Form Kontrolü) eklemek için Form Kontrolü düğmesini çalışma sayfanıza ekleyin.
2. Açılırken Makro Ata iletişim kutusunda, yeni düğmesine basın.
3. içinde Uygulamalar için Microsoft Visual Basic penceresi, lütfen aşağıdaki VBA kodunu kopyalayıp arasına yapıştırın. Alt ve End Sub içindeki paragraflar Kod pencere.
VBA kodu: Korumalı bir çalışma sayfasına tablo satırı ekleyerek tabloyu genişletilebilir tutun
'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 = True
notlar:
4. Tuşuna basın. Ara Toplam + Q Microsoft Visual Basic for Applications penceresini kapatmak için tuşlar.
5. Formül sütunu dışında yeni veriler atamanız gereken tablodaki hücreleri seçin ve ardından Ctrl + 1 tuşlarını açmak için biçim Hücreler iletişim kutusu. İçinde biçim Hücreler iletişim kutusu, işaretini kaldırın Kilitli ve ardından OK buton. Ekran görüntüsüne bakın:
6. Şimdi çalışma sayfanızı VBA kodunda belirttiğiniz parolayla koruyun.
Şu andan itibaren, korumalı çalışma sayfanızdaki Form Kontrolü düğmesine tıkladıktan sonra, tablo aşağıda gösterilen ekran görüntüsü gibi yeni satır eklenerek genişletilebilir.
not: korumalı çalışma sayfasındaki formül sütunu dışında tabloyu değiştirebilirsiniz.
İlgili Makaleler:
- Excel'de çalışma sayfası kaydırmasıyla Pivot Tablo dilimleyicisinin hareket etmesini nasıl sağlayabilirim?
- Hücreleri nasıl birleştirebilir ve hücre biçimlendirmesini Excel'de nasıl koruyabilirim?
- Kopyaları nasıl kaldırabilirim, ancak ilk örneği Excel'de nasıl tutabilirim?
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!