Korumalı Sayfa Ozet Tablo Guncelleme Hk

[skaan]

Merhaba;
Forumdan Ozet tablo guncellemeyi otomatik olarak yapmak için aşağıdaki kodu bir arkadaşımın yazmış oldugu mesajdan buldum. Fakat sayfayı korumalı yaptıgımda kod koruma nedeni ile calışmıyor.. Sorum " sayfayı korumalı yaptıgımda ozet tablo oromatik guncelleme kodunu nasıl calısır hale getirebilirim ? "
Bu konuda yardımcı olabilirseniz çok sevinirim..
Teşekkürler..İyi gunler dilerim..

İlgili Kod :

Private Sub Worksheet_Deactivate()
Dim pt As PivotTable
For Each pt In ActiveSheet.PivotTables
pt.RefreshTable
Next pt
End Sub

 

[hamitcan]

Private Sub Worksheet_Deactivate()
Dim pt As PivotTable
For Each pt In ActiveSheet.PivotTables
activesheet.unprotect
pt.RefreshTable
activesheet.protect
Next pt
End Sub

şeklinde deneyin.

 

[Merhum İdris SERDAR]

Merhaba;
Forumdan Ozet tablo guncellemeyi otomatik olarak yapmak için aşağıdaki kodu bir arkadaşımın yazmış oldugu mesajdan buldum. Fakat sayfayı korumalı yaptıgımda kod koruma nedeni ile calışmıyor.. Sorum " sayfayı korumalı yaptıgımda ozet tablo oromatik guncelleme kodunu nasıl calısır hale getirebilirim ? "
Bu konuda yardımcı olabilirseniz çok sevinirim..
Teşekkürler..İyi gunler dilerim..

İlgili Kod :

Private Sub Worksheet_Deactivate()
Dim pt As PivotTable
For Each pt In ActiveSheet.PivotTables
pt.RefreshTable
Next pt
End Sub

Sayfa korumayı ekteki dosyada gösterildiği şekilde yaparsanız, sorun olmaz.

.

 

[skaan]

Yardımlarınız için çok teşekkür ederim..
İyi Gunler dilerim..
Sağolun