Hücrenin aktifliğine göre koşullu biçimlendirme

[xternet]

Sn.leventm söylediğinizi yaptım ve makro gereli şekilde çalıştı. Fakat bu kez başka bir sorun oluştu.
Ben programda değişiklik yapmak isteyen veya incelemek isteyen, şifreleri kolaylıkla kaldırsın diye yukarıda yadığım

Sub sifrele()
For a = 1 To Sheets.Count
Sheets(a).Protect "123" = True
Next
End Sub

Sub sifreac()
For a = 1 To Sheets.Count
Sheets(a).Unprotect "123" = True
Next
End Sub

makro kodlarını oluşturdum (buradaki arkadaşların sayesinde) ve bu makroları düğmelere atadım. Yalnız bu son verediğiniz kodu sayfanın kod sayfasına yazdıktan sonra "şifreac" makrosu çalışmıyor. Yani artık çalışma kitabındaki şifreleri açma imkanı kalmıyor. Hatta verdiğiniz kodu sayfadan silsem dahi artık sifreac komutu hata veriyor.

 

[xternet]

Sevgili arkadaşlar bu konuyu sonunda hallettim. Öncelikel Sn.leventm'e ve diğer yardımcı olan arkadaşlara teşekkür ederim.

Yukarıda belirtilen problemleri yaşadıktan sonra bu konuyu şimdilik bırakmıştım. Yalnız dün açılan bir konu başlığı ile "aktif hücrenin adresini bulma" bir çözüm yolu aklıma geldi ve başarılı oldu. Belki biraz ilkel bir yöntem ama işime yaradı.
Sizinle paylaşmak istedim.

Örnek dosya ekte.