• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Makrolar çalışmazsa Sayfaları gösterme

T

ToZ_KaLDiRaN

Katılım
4 Ağustos 2008
Mesajlar
117
Excel Vers. ve Dili
Türkçe
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..
 
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..
 
Son düzenleme:
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
 
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.
 

Ekli dosyalar

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..
 
Ekli dosyayı inceler misiniz?
Toplam 6 sayfa var ve gizli.
 

Ekli dosyalar

merhaba
makroyu etkinleştirsemde , etkinleştirmesemde 1 sayfa geliyor.
 
İstenen makrolar etkinleşirse tüm sayfaları göster ve normal çalış.
makralar etkinleştirilmesse diğer sayfaları açma ve işlem yapma.
 
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.
Kod: 
Sub Makro()
Sheets("Sayfa2").Visible = xlSheetVisible   'Sayfayı açar.
Çalışacak Makronuz.   'Makro çalışır.
Sheets("Sayfa2").Visible = xlSheetVeryHidden   'Sayfayı gizler.
 

Ekli dosyalar

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
 

Ekli dosyalar

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.
 
Paylaşım için TeşekkürLer..
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst