Makro çalışmıyor

[manisali_mdr]

Arkaraşlar merhaba.Daha ilk soruma yanıt alamadım ama yeni bir sormak istiyorum,
Sayfadaki formülleri gizleme ile ilgili şöyle bir yol izliyorum :
Sol köşeden tüm sayfaları seç
Biçim-Hücreler-Koruma-Kilitli işaretini kaldır-TAMAM
Sayfa seçilmişliğini kaldır (Herhangi bir hücreye tıkla)
Düzen-Git-Özel-Formüller-TAMAM
Biçim-Hücreler-Koruma-Kilitli-Gizli seç-TAMAM
Araçlar-Koruma-Sayfayı Koru-Şifre Gir-Şifreyi tekrar gir-TAMAM
Sorunum şu :
Yüzlerce dosyam ve hepsinin içinde onlarca sayfam var..Her sayfaya tek tek bunları uygulamak olanaksız.Makro ile yaptım(Araçlar-Makro-Yeni Makro Kaydet)
Çalıştı fakat şifreli kısmı kabul etmiyor.Şöyle ki;
Araçlar-Koruma-Sayfa Korumasını Kaldır dedim di şifre sormadan formüller görünür hale geliyor..Çaresi ya da daha hızlı bir yöntemi var mı?

Şimdiden teşekkürler

 

[leumruk]

Merhaba,
Aşağıdaki kod sayfaları korumaya yarar. Şifre 12345. İhtiyaca göre koda eklemeler yapılabilir.

Sub Sayfa_Koru()
For Each syf In Sheets
[COLOR="Red"]Set Aralik = syf.Range("a1:a20")
    Aralik.Locked = True
    Aralik.FormulaHidden = True[/COLOR]
syf.Protect 12345
Next
End Sub

Aşağıdaki de korumaları kaldırır. Şifrelerini değitirebilirsiniz.

Sub Koruma_Kaldir()
For Each syf In Sheets
syf.UnProtect 12345
Next
End Sub

 

[manisali_mdr]

İşte bu kadar leumruk arkadaşım...ilgine,bilgine,emeğine,en önemlisi YÜREĞİNE sağlık..çok çok teşekkür ederim.

 

[leumruk]

İşte bu kadar leumruk arkadaşım...ilgine,bilgine,emeğine,en önemlisi YÜREĞİNE sağlık..çok çok teşekkür ederim.

Rica ederim.

 

[manisali_mdr]

Üstad..ilginç bir şey oldu..sıradan dosyalarıma uygulamaya başladım..Baştan hepsinde harika çalışmaya başladı..sonradan iş görmemeye başladı..makro çalışıyor..hücredeki formülü gizliyor fakat formülün olduğu hücre işlem görüyor(yani silinebiliyor vs)..sayfa korumasını kaldır diyorum..şifre sormadan kaldırıyor..sebebi ne olabilir?

 

[manisali_mdr]

Üstadım günaydın..
Sorunu kendi çabamla gidermeye çalışırken bir durumla daha karşılaştım..Kodlar formülleri gizlemiyor.Kodların hücredeki formülü gizlemesi de mümkün mü?

 

[leumruk]

Merhaba,
2 numaralı mesajımdaki kodu güncelledim. Aralığı kodla kilitliyor, gizliyor ve sayfayı korumaya alıyor. Set aralik kısmındaki aralığı kendinize göre değiştirin.
Şifre sormadan açılması sorununun kodlarla ilgili olmaması lazım. Verdiğim kodlar şifreleyerek korumaya alıyor. Benim denemelerimde böyle bir sorun olmadı.