User Form Hakkında

[hasanyaprak]

Arkadaşlar merhaba,
Kullandığım excelde userformdaki kodlar sayesinde açılışta şifreli olarak giriş yapabiliyorum. Userform içerisine girdiğim tarih(20.03.2023) henüz geçmemişse 2. kısımdaki şifreli girişle excelim açılsın. Yanlış girersem uygulamadan çıkarak dışarı atsın.

Tarih geçmiş ise birinci kısımdaki şifreli girişi yaparak giriş yapabileyim. Yanlış girersem yine atsın. Normalde her bölüm çalışıyor ama ikisi bir arada çalıştıramadım.

Yardımınızı rica ederim.

Örnek dosya ekledim.

Private Sub CommandButton1_Click()

1.KISIM

Dim bugun As Date

bugun = Format((Date), "dd.mm.yyyy")

If bugun >= "20.03.2023" Then '07.02.2022 son kullanım tarihi olacaktır.
MsgBox ("Programın kullanım süresi dolmuştur.")

If TextBox1 = "hasan" And TextBox2 = "hasan42726" Then

Unload Me
Worksheets("PDM_TR_LINK").Select

Exit Sub

End If

Application.Quit

Else

2.KISIM

If TextBox1 = "hasan" And TextBox2 = "arge" Then

Unload Me

Worksheets("PDM_TR_LINK").Select

Exit Sub

End If

MsgBox ("Şifre veya kullanıcı adı hatalı")

Application.Quit
'ActiveWorkbook.Close

 

[Greenblacksea53]

Dosyanız ektedir.

 

[hasanyaprak]

Dosyanız ektedir.

Hocam öncelikle desteğin için teşekkür ederim.

Tarih geçmişse admine ait olan şifreyi(ilk şifre) admin kişi girip tarihi uzatabilsin istiyorum. Buraya kadar yapmışsınız elinize sağlık. Ama tarih geçmemişse de userform yine karşıma çıksın ve admin olmayan kişinin şifresi girilerek excel açılsın istemekteyim. Mümkünse düzenleyebilirsen sevinirim. Teşekkür ederim.


Tarih geçmiş admin kullanıcı girişi ;

kullanıcı adı: hasan şifre: hasan42726

Tarih geçmemiş normal kullanıcı;

kullanıcı adı: hasan şifre: arge

her iki şarttada userform karşıma çıksın yanlış şifrelerde exceli doğrudan kapatmasını talep ediyorum. Daha açıklayıcı yazmaya çalıştım.

 

[Greenblacksea53]

Bende anlamaya çalıştığı yapıyorum, ekte deneyin.

N1 hücresine tarih yazdım O tarih bugünden büyükse her iki kullanıcı giriş yapar değilse sadece yönetici yapar
Düzelte: şifre yanlış girilirse direk çıkış yapar

 

[hasanyaprak]

Bende anlamaya çalıştığı yapıyorum, ekte deneyin.

N1 hücresine tarih yazdım O tarih bugünden büyükse her iki kullanıcı giriş yapar değilse sadece yönetici yapar
Düzelte: şifre yanlış girilirse direk çıkış yapar

Hocam şifrelerin yerlerini değiştirerek kullanır hale geldim. Emeğin için teşekkür ederim. Eline sağlık

 

[hasanyaprak]

Bende anlamaya çalıştığı yapıyorum, ekte deneyin.

N1 hücresine tarih yazdım O tarih bugünden büyükse her iki kullanıcı giriş yapar değilse sadece yönetici yapar
Düzelte: şifre yanlış girilirse direk çıkış yapar

Hocam detaylı inceledim. n1 e girdiğiniz tarih bugünün tarihinden küçükse sadece password; hasan42726 ile açılabilsin. n1 deki girilen tarih henüz bugünün tarihine gelmemişse password : arge ve hasan42726 ile açılabilsin. Her koşulda arge ile açılıyor mevcut excel. Sana zahmet düzenleyebilir misin.

Admin şifre: hasan42726
Normal kullanıcı: arge

 

[Greenblacksea53]

Deneyerek gönderdim bu sefer. N1 tarih geçmiş sadece yönetici giriş yapabilir kullanıcı girerse uyarı verip kapanıyor. Tarih normalse hem kullanıcı hem yönetici girebiliyor

 

[hasanyaprak]

Deneyerek gönderdim bu sefer. N1 tarih geçmiş sadece yönetici giriş yapabilir kullanıcı girerse uyarı verip kapanıyor. Tarih normalse hem kullanıcı hem yönetici girebiliyor

Hocam tam istediğim gibi. Emeğine sağlık. Uğraştırdım seni hakkını helal et.

 

[Greenblacksea53]

Hocam tam istediğim gibi. Emeğine sağlık. Uğraştırdım seni hakkını helal et.

Önemli olan işinizin görülmesi, en attığım denedim galiba korktu benden )