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

Katılım
6 Mart 2024
Mesajlar
248
Excel Vers. ve Dili
Excel 2010 TR & Excel 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:

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,769
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Elinize emeğinize sağlık. Paylaşımınız için teşekkürler...
 

Erdal

Altın Üye
Katılım
23 Ekim 2006
Mesajlar
1,049
Excel Vers. ve Dili
Ev: 2021 - Türkçe 32 Bit
İşyeri: 2016 - Türkçe 64 Bit
Altın Üyelik Bitiş Tarihi
08-10-2029
Paylaşım için teşekkür ederim Sn. Biolightant.
 

relaxim

Altın Üye
Katılım
30 Ağustos 2009
Mesajlar
574
Excel Vers. ve Dili
Ofis 2016 Tr 64 bit
Altın Üyelik Bitiş Tarihi
15.06.2027
Elinize emeğinize sağlık. Paylaşımınız için teşekkürler...
 
Katılım
6 Mart 2024
Mesajlar
248
Excel Vers. ve Dili
Excel 2010 TR & Excel 2016 TR
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. ✨
 

Josiah

Altın Üye
Katılım
28 Şubat 2013
Mesajlar
19
Excel Vers. ve Dili
ver:2010 Dil;Eng
Altın Üyelik Bitiş Tarihi
26-08-2026
Paylaşım için teşekkür ederiz.
 

assenucler

Altın Üye
Katılım
19 Ağustos 2004
Mesajlar
3,560
Excel Vers. ve Dili
Ofis 365 TR 64 Windows 11 Home Single Language x64 TR
Altın Üyelik Bitiş Tarihi
29-05-2025
Sayın Biolightant,

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

Saygılar,
Selim
 
Üst