Biçim Özelliklerini saklama/koruma

[HarEndu]

merhaba,
formda çok aradım ama bulmadım öncelikle belirtmek isterim. elimde excel dosyası var ve bu dosya çok fazla kişi tarafından kullanılıyor. hazırladığım format ve sayfa özelliklerinin değiştirilmesini istemiyorum. sayfa korumayla oluyor fakat sayfada pivot tablo olduğu için o çalışmıyor. (aşağıda kodları var.) kimsenin müdahale edemeyeceği sayfa biçimlerini nasıl koruyabilirim. ilginize teşekkür ederim... Muhasebe ve finans alanlarında çalışacakların faydalanacağı güzel bir çalışmadır. ilgilenenler kullanabilir ekli dosyayı

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B7:I36,f7:f36, h7,h36")) Is Nothing Then Exit Sub
Dim pt As PivotTable
For Each pt In ActiveSheet.PivotTables
pt.RefreshTable
Next pt
End Sub

 

[Saban Sertkaya]

Örnek dosyanızı, alternatif bir site linki ile paylaşır mısınız. (www.dosya.web.tr olabilir)

 

[HarEndu]

syn.saban20152015 bey, dosyayı açıklama ekinde paylaştım...

 

[Korhan Ayhan]

Normal üyeler dosyanıza erişemezler. Bu sebeple alternatif link istiyorlar.

 

[HarEndu]

dosya link paylaşımıdır...
http://dosya.web.tr/OPDVvO

 

[Saban Sertkaya]

Değişmesini istemediğiniz hücreleri kilitledikten sonra, aşağıdaki kırmızı satırları ekleyerek deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect
If Intersect(Target, Range("B7:I36,f7:f36, h7,h36")) Is Nothing Then Exit Sub
Dim pt As PivotTable
For Each pt In ActiveSheet.PivotTables
pt.RefreshTable
Next pt
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowUsingPivotTables:=True
End Sub