Dosya kapatılırken Tüm sayfalar Macroda belirtilen şifreyle korumaya alınması

[taseraydin]

Değerli Arkadaşlar
Çalışmış olduğum firmada excel dosyasında bir takım güvenlik içeren ve kapanışta otomotik yedek alan dosyalarımız var ancak bağzı arkadaşlar Makroları devre dışı bırakarak bir takım çalışmalar yapıyor önceden kaydedilerek çıkılan bu dosyadaki Dosya kapatılırken Tüm sayfalar Macroda belirtilen şifreyle korumaya alınsın.... Macrolar çalıştırlırsa koruma kaldırılsın şayet macrolar Devre dışı bırakılırsa Dolayısıyla kapatılırken şifrelenmiş dosyaların şifreleri açılamıyacağından işlem yapılamıyacak

 

[nazif74]

Alternatif Bir Çözüm

Merhaba ekteki dosyayı macroları kabul ederek açın, daha sonra bir kezde kabul etmeden açın. Uygulamayı kendi excel sayfanıza uygularsanız sanırım sorununuz çözülebilir.

 

[taseraydin]

Dosya kullanımında zaman zamna yeni sayfalarda alıcılıyor

göndermiş olduğunuz örnek dosyada mevcut sayfalar üzerinde kullanılabilir oysa dosya kullanıma açıldığında yeni sayfalar ilave ediliyor.
Asıl istemiş olduğum formül şu kullanımda yeni açılan sayfalarla beraber diğer tüm sayfalar şifrelensin açılıştada macrolar etkinleştirilirse koruma kaldırılsın Macrolar devre dışı bırakılırsa Kapatılırken korumaya alınan sayfalar korunsun veya gizlensin ilginize teşekür ederim...

 

[nazif74]

Sayın taseraydin : Sayfa1 , Sayfa2, Sayfa3 e aradaki farkı görebilmeniz için özellikle gizleme yapmadım. Sayfa gizleme kodunu bu üç sayfayada yazarsanız kapanırken tüm sayfalar gizlenir ve macro kabul edilmeden excel sayfası açılırsa içerisinde hiç sayfa görünmeyen bir excel kitabı açılır. Buda sizin macrolar aktif değilken üzerinde oynama yapılmasını istemediğiniz sayfaları korumak için bir alternatif çözüm. Ekteki dosyada gizleme yapılmıyor sayfalar kapanırken koruma altına alınıyor macrolar kabul edilmezse koruma kaldırılmıyor. Birde bu örneğe bakın isterseniz. Bu örnekler sadece size bir fikir vermek amacıyla yoksa sizin çalışmanızı tam olarak bilmediğim için tam çözüm olmayabilir. Ama bu örneklerden kendinize bir çözüm üretmeye çalışın İyi çalışmalar.