Makrolar çalışmazsa Sayfaları gösterme

[ToZ_KaLDiRaN]

Merhaba;

Excelde yaptığım çalışmamda makrolar kullandım. İçeriğine girişini yasaklamak istiyorum. Açılışta Userformlar çalışıyor sayfalar kapanıyor. Fakat makro güvenliğini yüksek yaparlarsa kolayca içeriğini görebiliryorlar. Bunu engellemek için ne yapmalıyım..

Yardımlarınız için şimdiden teşekkürler.. iyi günler..

 

[uzmanamele]

merhaba

buraya bakar mısınız, böyle birşey mi?

http://www.excel.web.tr/f48/baska-kullan-c-larca-excel-ac-l-sta-t59477.html

 

[ToZ_KaLDiRaN]

Sayın uzmanamele;

Verdiğiniz örnek için teşekkür ederim.. Fakat kendi çalışmama uyarlayamadım. Bi tarafını yapsam başka tarafından hata veriyor. Müsaitseniz bakarsanız sevinirim..

 

[ToZ_KaLDiRaN]

Userformdan bi kod izin vermiyor heralde çünkü diğer heryeri değiştirdim yine yapmadı sayfa numaraları mı diye düşündüm başka dosyada denedim orada yaptı demekki o da değil tek sebep userform olmalı userform içerisindeki bir kod buna izin vermiyor ama hangisi olduğunu bir türlü bulamıyorum

 

[ToZ_KaLDiRaN]

Yok mu bunun bir yolu

 

[xxcell]

Mantık olarak, Çalışma Kitabı ve Sayfa Koruması ile kullanıcının başka sayfalara erişmesi engelleniyor, eğer Makrolar etkinleştirilirse o zaman Kod ile çalışma kitabı koruması kaldırılıp işleme açık hale getiriliyor.

Örnek dosyayı istediğin gibi geliştirebilirsin.

 

[ToZ_KaLDiRaN]

Sayın xxcell;

Örneğiniz için teşekkürler.. Fakat o gönderdiğiniz dosyanın sayfalarını görmek için makroları etkinleştirmeye gerek yok makrolar etkinleştirmeden açın biçim den sayfa daha sonra göster dediğinizde sayfalar karşınızda..

Yinede Teşekkür Ederim.. Kolay geLsin..

 

[leumruk]

Ekli dosyayı inceler misiniz?
Toplam 6 sayfa var ve gizli.

 

[batugul35]

merhaba
makroyu etkinleştirsemde , etkinleştirmesemde 1 sayfa geliyor.

 

[leumruk]

merhaba
makroyu etkinleştirsemde , etkinleştirmesemde 1 sayfa geliyor.

Zaten istenen de bu değil mi?

 

[batugul35]

İstenen makrolar etkinleşirse tüm sayfaları göster ve normal çalış.
makralar etkinleştirilmesse diğer sayfaları açma ve işlem yapma.

 

[leumruk]

Ekli dosya işinizi görür mü? Makro çalışırken makroyla ilişkili olan sayfa açılır. İşi Bittiğinde sayfayı tekrar saklar.
Bu mantığı tüm kodlarda kullanabilirsiniz.

Sub Makro()
Sheets("Sayfa2").Visible = xlSheetVisible   'Sayfayı açar.
Çalışacak Makronuz.   'Makro çalışır.
Sheets("Sayfa2").Visible = xlSheetVeryHidden   'Sayfayı gizler.

 

[ToZ_KaLDiRaN]

Sayın leumruk hayır o değildi. Etkinleşirse açsın etkinleşmezse açmasın. Sayın Tarkan VURAL yardımıyla yaptığım dosya buyrun

 

[leumruk]

Aslında her iki örnekte de mantık aynı.
Benim hatam. Sadece ipucu niteliğinde bir dosya eklemem.
İkinci örneğimde konuyu biraz daha açtım. Önemli olan burada sayfaların manuel olarak ulaşılamaması. Diğer kısmı kendi isteğinize göre uyarlayabilirsiniz.

 

[xxcell]

Dosyanız ekte, gerekli değişikliği yaparsanız ihtiyacınızı görecektir.

 

[baydeniro]

Paylaşım için teşekkürler

 

[ToZ_KaLDiRaN]

Paylaşım için TeşekkürLer..

 

[ToZ_KaLDiRaN]

Paylaşım için TeşekkürLer..