Formül Koruması

[msanli]

Kolay gelsin,

Bir çalışmam var. Bu çalışma içinde kullanılan sayfalar yeterli gelmezse makro ile yeni sayfa ilave ediyor. Bunun yanında kullanılan sayfalarda da bir sürü formüllerim var ve bu formüllerin değiştirilmesini istemiyorum. Sayfadaki formüllü hücrelere koruma şifresi koyduğumda ise eklenecek olan sayfa makro hatası veriyor. Buna nasıl bir çözüm bulabiliriz.

VB Koruma şifresi 0841

Teşekürler

 

[acolkesen1]

Merhaba ,
Kodlarınızı aşağıdaki kodların arasına yerleştirirseniz sorun çözülür sanıyorum.
ActiveSheet.Unprotect
..................
ActiveSheet.Protect
İyi çalışmalar..

 

[msanli]

bu kodlar formülleri kilitliyor, fakat sayfayı kopyalama yapınca yine makro hatası veriyor...

 

[acolkesen1]

Merhaba,
Gönderdiğiniz dosyada Kopyala makrosunda gerekli değişikliği yaptım, Kopyala butonu bende çalışıyor bir de siz deneyin..
İyi çalışmalar..

 

[acolkesen1]

Tekrar merhaba,
Sonradan farkettim, aynı değişiklği ekle makrosunda da yaparsanız sorun kalmaz sanıyorum.

 

[msanli]

Bu kodları sayfa ekle makrosuna yapıştırıncada oldu. Fakat, dosya ilk açıldığında formüllü hücreler korumalı gelse, yeni bir sayfa eklemek isteyince formüller açılsa kopyalama işlemini bitirdikten sonra tekrar şifrelense. bunu nasıl yaparız.

 

[acolkesen1]

İyi akşamlar sayın msanli,
Thisworkbook un kod bölümüne yazılacak kodlarla bu işi halledebilirsiniz. Dosyanız açılışta PHR sayfasıyla açılıyor vr kilitli hücreler korumaya alınıyor. KOPYALA ve SAYFA EKLE makrolarında ise makro çalışmadan önce koruma kaldırılıp makro sonunda tekrar korunuyor. Düzenlenmiş hali ektedir. iyi çalışmalar..

 

[msanli]

Sanırım istediğim gibi oldu. akşam kontrol edeceğim. yardımların için teşekkür ederim

 

[acolkesen1]

Önemli değil, iyi akşamlar.