Kullanıcı olan dosyayı açsın

[imdatsaral]

Selam arkadaşlar,

Benim istediğim başlıktada belirtiğim gibi kullanıcı olan dosyayı açsın. bununla ilgili ekte dosya gönderiyorum yardımcı olabilecek arkadaşlara teşekkür ederim.

 

[Tarkan VURAL]

Merhaba

ThisWorkbook kod sayfasına

Private Sub Workbook_Open()
Application.Visible = False
UserForm1.Show
End Sub

yazın.
UserForm üzerindeki TextBox1 silip yerine Combobox1 ekleyin.

UserForm kod sayfasına

Private Sub UserForm_Initialize()
ComboBox1.RowSource = "KullanıcıKayıt!a1:a" & Sheets("KullanıcıKayıt").Range("a1").End(4).Row
End Sub

Private Sub CommandButton1_Click()
If Sheets("KullanıcıKayıt").Columns(1).Find(ComboBox1.Text)(1, 2).Value = TextBox2.Text Then
Application.Visible = True
Unload Me
End If
End Sub

ekleyin olur.

 

[imdatsaral]

sayın Tarkan VURAL,
emeğinize sağlık bir isteğim daha olacak yanlış şifre girildiğinde dosya kapansın
teşekkür ederim

 

[ozgretmen]

Aşağıdaki şekilde kodu değiştiriniz.

Private Sub CommandButton1_Click()
Dim sonbos As Integer
If Sheets("KullanıcıKayıt").Columns(1).Find(ComboBox1.Text)(1, 2).Value = TextBox2.Text Then
Application.Visible = True
Unload Me
[COLOR="Red"]Else
ActiveWorkbook.Save
Application.Quit[/COLOR]
End If
End Sub

 

[Tarkan VURAL]

Kodu daha işlevsel kullanmak için aşağıdaki modeli deneyebilirsiniz.

Private a

Private Sub CommandButton1_Click()
If Sheets("KullanıcıKayıt").Columns(1).Find(ComboBox1.Text)(1, 2).Value = TextBox2.Text Then
Application.Visible = True
Unload Me
Else
MsgBox "Yanlış giriş", vbCritical + vbMsgBoxRtlReading + vbOKOnly, "HATA !!!"
a = a + 1
While a = 3
If Application.Workbooks.Count = 1 Then
    Unload Me: ActiveWorkbook.Save: Application.Quit
Else
    Unload Me: ActiveWorkbook.Save: ActiveWorkbook.Close
End If
Wend
End If
End Sub

 

[imdatsaral]

sayın ozgretmen ve Tarkan VURAL,
Yardımlarınız için teşekkür ederim.

 

[ehmet]

teşekkürler, sanırım dosyama uyarlayabilirim

 

[dbicer83]

burada makro etkinleştir yapılmazsa sayfaya ulaşım sağlanacak.bunu engelleme gibi bir şansımız varmıdır.?
teşekkürler

 

[imdatsaral]

şifreyi yazarken **** şeklinde görünmesi için ne yapmam gerekiyor

 

[dbicer83]

şifreyi yazarken **** şeklinde görünmesi için ne yapmam gerekiyor

textbox seçili iken passwordchar seçeneğini * giriniz düzelecektir.

 

[dbicer83]

burada makro etkinleştir yapılmazsa sayfaya ulaşım sağlanacak.bunu engelleme gibi bir şansımız varmıdır.?
teşekkürler

 

[Tarkan VURAL]

Private Sub UserForm_Initialize()
TextBox1.PasswordChar = "*"
End Sub

Ben daha çok

TextBox1.PasswordChar = "•"

kullanırım, daha şık duruyor.

 

[Tarkan VURAL]

VBA sayfasından ilgili kullanıcı şifre yazılı sayfayı veryhidden olarak seçip kaydeder, sonra açılışında makrolar etkin ise önce sheetvisible yaparak parola girişi yaptırırsanız sorun çözülür. Böylece makro etkin değil ise sayfa da gizli olacağından kullanıcı ( VBA bilgisi yok ise ) sayfayı bulamayacak. VBA bilgisi var ise daha farklı yöntemler ile de kullanıcı girişi yaptırılabilir. Mesela ADO ile bir veritabanına bağlatırsınız, kullanıcı adı ve parolasını oradan alırsınız. Bağlanacağınız dosya Excel ya da Access olmak zorunda da değil. Ben jpg dosyalarının içine bile kullanıcı şifresi gizliyorum, ADO ile okutuyorum , daha bulunması zor oluyor. hatta bazen uzantısız dosyalar bile kullanıyorum. Eminim sizin de işinize yarayacaktır.

İyi çalışmalar.

 

[imdatsaral]

dbicer83 Teşekkürler son haliyle dosyayı ekliyorum
ihtiyacı olan arkadaş olabilir

 

[dbicer83]

VBA sayfasından ilgili kullanıcı şifre yazılı sayfayı veryhidden olarak seçip kaydeder, sonra açılışında makrolar etkin ise önce sheetvisible yaparak parola girişi yaptırırsanız sorun çözülür. Böylece makro etkin değil ise sayfa da gizli olacağından kullanıcı ( VBA bilgisi yok ise ) sayfayı bulamayacak. VBA bilgisi var ise daha farklı yöntemler ile de kullanıcı girişi yaptırılabilir. Mesela ADO ile bir veritabanına bağlatırsınız, kullanıcı adı ve parolasını oradan alırsınız. Bağlanacağınız dosya Excel ya da Access olmak zorunda da değil. Ben jpg dosyalarının içine bile kullanıcı şifresi gizliyorum, ADO ile okutuyorum , daha bulunması zor oluyor. hatta bazen uzantısız dosyalar bile kullanıyorum. Eminim sizin de işinize yarayacaktır.

İyi çalışmalar.

örneği ekleyebilrmiyiz tarkan bey
teşekkürler.

 

[mustafakoker]

Teşekkurler dostum emeğine sağlık tam aradığım sey

 

[ekrem2008]

arkadaşlar peki bu kadar veriyi gizli lik yaptıkta
girilen veri girildikten sonra hücreyi kilitleyen kod yapabilirmiyiz
kilidi açan bir şifrede olmalı

 

[dragon44760]

Malesef ama şifre girmeden girişe bastığımda da dosya açılmakta

 

[ozgretmen]

burada makro etkinleştir yapılmazsa sayfaya ulaşım sağlanacak.bunu engelleme gibi bir şansımız varmıdır.?
teşekkürler

Ekteki dosya işinize yarayabilir.iyi çalışmalar...

 

[dbicer83]

Ekteki dosya işinize yarayabilir.iyi çalışmalar...

Sanırım çok işime yarayacak teşekkürler.