Koruma altındaki sayfada pivot tablosunu nasıl yenilersiniz?

Normalde, korumalı bir sayfada pivot tablo yenilenmez. Bu makalede, korumalı bir çalışma sayfasından pivot tabloyu yenilemek için bir VBA kodu tanıtacağım.

VBA kodu ile koruma altındaki sayfada pivot tablosunu yenileme

VBA kodu ile koruma altındaki sayfada pivot tablosunu yenileme

Varsayılan olarak, korumalı bir sayfada pivot tabloyu yenilemenin doğrudan bir yolu yoktur. Ancak, aşağıdaki VBA kodu ile orijinal tablonuzdaki veriler değiştiğinde geçerli çalışma sayfasındaki tüm pivot tablolarını hızlıca yenileyebilirsiniz.

1. Microsoft Visual Basic for Applications penceresini açmak için ALT + F11 tuşlarına basın.

2. Ekle Insert > Modül'e tıklayın ve aşağıdaki kodu Modül Penceresine yapıştırın.

VBA kodu: Koruma altındaki sayfada pivot tablosunu yenileme:

Sub RefreshAll()
'Updateby Extendoffice 20161109
    Dim xpt As PivotTable
    With ActiveSheet
        .Protect UserInterfaceOnly:=True
        For Each xpt In .PivotTables
            xpt.RefreshTable
        Next xpt
    End With
End Sub

3. Ardından bu kodu çalıştırmak için F5 tuşuna basın. Orijinal verileriniz değişirse, etkin sayfadaki tüm pivot tabloları anında yenilenecektir.