Soru Windows Açılış Şifresi ile Giriş

[bulentkars]

Arkadaşlar Merhaba,

Excelde makrolu çalışma kitabımda userform ile kullanıcı adı şifre ile giriş yapmaktayım, girişi windows kullanıcı adı ve şifresi ile yapmam mümkün mü acaba? örneğin windows giriş kullanıcı adı bulnetkars şifre 123 ise excel user form giriş sayfasında bulentkars yazıp 123 yazdığımda istediğim makro çalışsın istiyorum. Bu konuda yardımcı olabilecek kimse varsa sevinirimç

 

[Korhan Ayhan]

Merhaba,

Environ komutu ile kullanıcı adınızı tespit edebilirsiniz. Şifre kısmını kendiniz halledersiniz.

Sub Test()
    MsgBox Environ("UserName")
End Sub

 

[bulentkars]

Korhan Bey Merhaba

Kullanıcı adı tespiti tamamdır, windows şifresinin olduğu yerin tespiti yapılamıyor mu? yani görünmesin sadece doğru girilirse işlem yapsın sadece

 

[Korhan Ayhan]

Güvenlik sebebiyle yapılamıyor..

 

[bulentkars]

Tamam. Bilgilendirme için çok teşekkür ederim.

 

[EmrExcel16]

Merhaba , yıllar önce nerden bulduğumu hatırlamadığım bir api vardı windows şifresinin "doğruluğunu" kontrol eden , var olan parolayı tespit etmiyor ama doğruluğunu kontrol ediyor. Kendinize göre uyarlarsınız..

Public Declare Function LogonUser Lib "advapi32.dll" Alias "LogonUserA" _
                                  (ByVal lpszUsername As String, ByVal lpszDomain As String, _
                                   ByVal lpszPassword As String, ByVal dwLogonType As Long, _
                                   ByVal dwLogonProvider As Long, pexc As Long) As Long
Public Const LOGON32_LOGON_BATCH = 4
Public Const LOGON32_LOGON_INTERACTIVE = 2
Public Const LOGON32_LOGON_SERVICE = 5
Public Const LOGON32_LOGON_NETWORK = 3
Public Const LOGON32_PROVIDER_DEFAULT = 0
Public Const LOGON32_PROVIDER_WINNT35 = 1

Sub Test()
    Dim sifre As String
    sifre = InputBox("Sifreni yaz")
    If LogonUser(Environ("Username"), vbNullString, sifre, LOGON32_LOGON_NETWORK, LOGON32_PROVIDER_DEFAULT, 0) <> 0 Then
        MsgBox "Dogru Parola"
    Else
        MsgBox "Hatali Parola"
    End If
End Sub

 

[bulentkars]

Emre Bey,

Tam istediğim gibi. çok teşekkür ederim.

 

[Korhan Ayhan]

Ben de tamamen şifreye odaklanınca doğrulama kısmı hiç aklıma gelmedi. Araştırmamda şifreyi tespit etmenin güvenlik sebebiyle mümkün olmadığı yazıyordu.

Yazanın eline sağlık. Emre bey paylaşımınız için teşekkürler.

 

[EmrExcel16]

Rica ederim , iyi çalışmalar..

 

[TiOr]

Emre Hocam Merhaba,
32 Bit için gereçli sanırım paylaştığınız dosya ve kod. 64 Bit için nasıl uyarlayabiliriz?
Teşekkürler, iyi çalışmalar.

 

[Haluk]

Emre Hocam Merhaba,
32 Bit için gereçli sanırım paylaştığınız dosya ve kod. 64 Bit için nasıl uyarlayabiliriz?
Teşekkürler, iyi çalışmalar.

Public Declare PtrSafe Function .......

.

 

[TiOr]

Haluk Hocam Teşekkürler...

 

[RBozkurt]

Merhaba , yıllar önce nerden bulduğumu hatırlamadığım bir api vardı windows şifresinin "doğruluğunu" kontrol eden , var olan parolayı tespit etmiyor ama doğruluğunu kontrol ediyor. Kendinize göre uyarlarsınız..

Public Declare Function LogonUser Lib "advapi32.dll" Alias "LogonUserA" _
                                  (ByVal lpszUsername As String, ByVal lpszDomain As String, _
                                   ByVal lpszPassword As String, ByVal dwLogonType As Long, _
                                   ByVal dwLogonProvider As Long, pexc As Long) As Long
Public Const LOGON32_LOGON_BATCH = 4
Public Const LOGON32_LOGON_INTERACTIVE = 2
Public Const LOGON32_LOGON_SERVICE = 5
Public Const LOGON32_LOGON_NETWORK = 3
Public Const LOGON32_PROVIDER_DEFAULT = 0
Public Const LOGON32_PROVIDER_WINNT35 = 1

Sub Test()
    Dim sifre As String
    sifre = InputBox("Sifreni yaz")
    If LogonUser(Environ("Username"), vbNullString, sifre, LOGON32_LOGON_NETWORK, LOGON32_PROVIDER_DEFAULT, 0) <> 0 Then
        MsgBox "Dogru Parola"
    Else
        MsgBox "Hatali Parola"
    End If
End Sub

Emre bey paylaşım için teşekkür ederim. Sadece kullanıcı adı doğrulaması kullanıyordum çok makbule geçti.

Public Declare PtrSafe Function .......

Haluk bey x64 düzenlemesi için ayrıca teşekkür ederim.

 

[mars2]

İyi Günler;

Çalışmanız çok güzel olmuş elinize sağlık, bu uygulamayı Userform üzerinde bulunan
Kullanıcı ad Combobox'ta
Şifre ise Textbox'a olacak şekilde revize edebilmek mümkün müdür.

 

[TiOr]

@mars2 Üstad Merhaba,
Akşam dan bu yana uğraşıyorum bu kodlar ile bahsettiğiniz gibi bir kullanıcı girişi yapmaya ama beceremedim Sn. Hocalarımız destek verirse minnettar oluruz Hayırlı Cumalar..

 

[RBozkurt]

Bende uğraşıyorum. Kullanıcı adı ile şifre kısmını çözdüm fakat domain eklemeyi çözemedim. Konusunu açacağım

 

[RBozkurt]

Merhaba @EmrExcel16
Paylaşmış olduğunuz kod çok işime yaradı tekrardan teşekkür ederim.

Bir hususta takıldım. PC'de şifre var ise şifre ile giriş oluyor.
Peki PC'de şifre yok ise nasıl devam edeceğiz?
Şifre yerini boş geçiyorum parola hatalı diyor. Şifresiz kullanıcılarda nasıl bir yol izlemeliyim yardımcı olabilir misiniz?

 

[mars2]

İyi akşamlar;
Bu uygulamayı Userform üzerine uygulamasına ait yardım talebimiz devam etmektedir.