• DİKKAT

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

Şifreli Sayfa Görüntüleme ve Erişim Kontrolü - Login UserForm

Katılım
6 Mart 2024
Mesajlar
350
Excel Vers. ve Dili
2010 TR & 2016 TR
? Kullanıcıya Özel Sayfa Görüntüleme ve Erişim Kontrolü


?Özellikler:

⛔ Makrolar etkin değilken
Kitap açıldığında, kullanıcı sadece Kubbealtı sayfasını görebilir.​
Diğer sayfalara erişemez ve değişiklik yapamaz.​

✅ Makrolar etkinleştirildiğinde
Kullanıcı kendi şifresiyle giriş yaparak yalnızca kendisine izin verilen sayfaları görüntüleyebilir.​
İzin verilmeyen sayfalar, VBA ile (xlSheetVeryHidden) tamamen gizlenir.
Kullanıcı yeni sayfa ekleyemez, silemez ve sayfa adlarını değiştiremez.
Çalışma kitabı parola korumalıdır (ActiveWorkbook.Protect), böylece yetkisiz değişiklikler engellenir.​

?Hesap Yönetimi:
Hesaplar sayfasında:
Kullanıcı adları ve şifreler tanımlanır.​
Hangi sayfalara erişebileceği belirlenir.​
İzin verilen sayfalar için "1" yazılmalıdır.​

? Şifreler:
Admin şifresi: 1234 ( Hesaplar!B2 hücresi )​
Çalışma Kitabı Koruma Şifresi: 1234 ( SecureModule içinde KitapPass )​
VBA Editör Şifresi: 1234 ( VBAeditör Menü > Tools > SecureBook Properties... > Protection )​


?Dosya Linki:
? SifreliSayfaErisimKontrol.xlsm İndir


? Ekran Görüntüleri:







? Ek Araçlar:
Projenizde ekleyeceğiniz herhangi bir UserForm veya Module içinde​
Kitap Korumasını kaldırmak için sadece KitapKorumaAC makrosunu çalıştırmanız yeterlidir.​
Kitabı tekrar koruma altına almak için KitapKorumaYAP makrosunu kullanabilirsiniz.​

⚙ Tamamen Kitap Korumasını Kaldırmak İçin:
Not: Makrolar etkin değilken, Kitap Koruması olmasa bile sadece Kubbealtı sayfasını görebilir. ⛔

? VBA Editöründe Kitap Korumasını Devre Dışı Bırakma:
VBA EditörToolsSecureBook Properties...General sekmesine gidin.​
Conditional Compilation Arguments kısmında bulunan​
KitapKoruma = 1 değerini KitapKoruma = 0 olarak değiştirin (veya tamamen silin).​
Böylece kitap korumasız çalışacaktır.​

Dikkat! Kitap Koruma devre dışı bırakıldığında:
Kullanıcı yeni sayfa ekleyebilir, silebilir ve adını değiştirebilir.​
Eğer bir sayfanın adı değiştirilirse, LoginForm ile giriş kapatılır (Admin hariç).​
Kullanıcıya "Bilgi İşlem ile irtibata geçin" mesajı gösterilir ve değiştirilen sayfa isimleri iletilir.​

❗ Admin için Uyarı mekanizması:
Admin, Hesaplar sayfasını açtığında eksik veya fazla sayfa olup olmadığını kontrol eden bir uyarı mesajı alır.​
Ancak, silinen bir sayfa geri alınamaz.​

? Ekran Görüntüsü:
 
Son düzenleme:
Elinize emeğinize sağlık. Paylaşımınız için teşekkürler...
 
Paylaşım için teşekkür ederim Sn. Biolightant.
 
Elinize emeğinize sağlık. Paylaşımınız için teşekkürler...
 
Elinize emeğinize sağlık. Paylaşımınız için teşekkürler...
Paylaşım için teşekkür ederim Sn. Biolightant.
@Biolightant Hocam elinize emeğinize sağlık, teşekkürler.
Elinize emeğinize sağlık. Paylaşımınız için teşekkürler...

İlginiz için ben teşekkür ederim, sağ olun. ✨
 
Sayın Biolightant,

Emek ve paylaşımınız için en içten teşekkürler.

Saygılar,
Selim
 
Geri
Üst