şifreyi 3 kez yanlış yazınca kitap kapansın

[ccumhur]

arkadaşalar ekteki dosyaya şifreli giriş düşündüm yanlız 3 yanlış denemeden sonra kitabın kapatılmasını istiyorum nasıl yapabiliriz. tşk

 

[veyselemre]

şöyle bir dene

Dim a As Integer
Private Sub CommandButton1_Click()
If TextBox1.Text = ActiveCell Then
MsgBox "herhengi bir form gelecek"
Else
a = a + 1
MsgBox "YETKİLİ DEĞİLSİN", vbCritical, "PROGRAM MERKEZİ"
If a = 3 Then
ActiveWorkbook.Save
ActiveWorkbook.Close
End If
End If
End Sub

 

[neo]

:hey: Sevgili veyselemre Merhaba

3 defa dan fazla denememe ramen dosya kapanmıyor

kodlarda bir hata mı yapıyorum


kod :
Private Sub ComboBox1_Click()
On Error GoTo hata

Sheets("sayfa1").Select
Columns("a:a").Select
Selection.Find(ComboBox1.Value, ActiveCell).Activate
ActiveCell.Offset(0, 0).Select
ActiveCell.Offset(0, 1).Select


hata:
If Err = 91 Then
MsgBox "KAYIT BULUNAMADI", vbInformation, "PERSONEL PROGRAMI"
End If
End Sub


Private Sub CommandButton1_Click()
If TextBox1.Text = ActiveCell Then
MsgBox "herhengi bir form gelecek"
Else
a = a + 1
MsgBox "YETKİLİ DEÐİLSİN", vbCritical, "PROGRAM MERKEZİ"
If a = 3 Then
ActiveWorkbook.Save
ActiveWorkbook.Close
End If
End If
End Sub
Private Sub TextBox1_Change()
TextBox1 = StrConv(TextBox1, vbUpperCase)
End Sub

Private Sub UserForm_Activate()
End Sub

Private Sub UserForm_Click()

End Sub

Private Sub UserForm_Initialize()


End Sub

 

[ccumhur]

veyselemre beyin verdiği kodları yukardaki örnekte denedim ve çalışıyor.
Dim a As Integer değişkeni tanımlamamışgibisiniz (declarations kısmında tanımlayın)

 

[Mahmut Bayram]

Sub auto_open() 
Static sayac As Integer 
Do 
If sayac = 3 Then 
ThisWorkbook.Close False 
Else 
If InputBox("şifreyi girin") = "Buraya koymak istediğiniz şifreyi yazacaksınız!" Then 
GoTo devam 
Else 
sayac = sayac + 1 
End If 
End If 
Loop 
devam: 
End Sub

 

[moresby]

Ben yukarıdaki örneğe göre şifreleri sayfa 1 den değilde örneğin sayfa2 den almak istiyorum bu nasıl olur acaba?

 

[Mahmut Bayram]

Sub GFAFS()
Dim sPassWord As String
sPassWord = InputBox("SAYFAYI GÖRMEK İÇİN LÜTFEN ŞİFREYİ GİRİNİZ ", "Mahmut")
Select Case sPassWord
Case "1861"
GFAF
Case ""
Case Else
MsgBox "GİRİLEN ŞİFRE YANLIŞ. GİRMEK İÇİN YETKİNİZ YOK :-)"
End Select
End Sub

 

[moresby]

Örnekte görüleceği üzere ben şifreyi örneğin Sayfa 7 den almak isyiyorum. Birde boşken tıklandığında girilmesin gene hata versin tşk

 

[moresby]

[No message]

 

[moresby]

Olmuyor galiba? Yapmak mümkün değilse tşk ederim

 

[moresby]

bu olmadı galiba

 

[Mahmut Bayram]

Sayın moresby, sayfadan şifre almakla ilgili ekteki örneği inceleyiniz.
VBA'da alacağı sayfayı siz değiştirebilirsiniz.
3 hak olayına gelince uğraşıyorum.

 

[moresby]

synmahmut_bayram, girişte şifre doğru girildiği halde şifre yanlı diyor ve giriş izni vermiyor birde şifreyi sayfa1 değilde sayfa 7 den aldırmak mümkünmü? Tşk ilgine

 

[Cemil1]

Aşağıdaki kod şifre değerini sayfa7 , A1 hücresinden alır. Range("a1") kısmını istediğiniz gibi değiştirin.

Sub auto_open() 
Dim sifre As String
Static a As Integer
basla:
sifre = InputBox("Þifre gir")
If Str(sifre) = Str(Worksheets("Sayfa7").Range("a1").Value) Then
    Exit Sub
Else
    MsgBox "Hatalı şifre"
    a = a + 1
    If a = 3 Then ThisWorkbook.Close
      
End If
GoTo basla:
End Sub

 

[moresby]

tşk Cemil1, işe yaradı peki örneklerde olduğu gibi kullnıcı adı ve şifreli olanlarda da bunu yapmak mümkünmü acaba

 

[Cemil1]

Yapılabilir tabi. İnsan icadı bunlar.
Sadece hangi veriyi nereden alacağınıza karar verin.

 

[moresby]

3 hak.xls
Tanımlama:

İndir
Dosya adı: 3 hak.xls
Dosya boyutu: 41 KB
İndirildi: 11 kere

dosyasında ki gibi olacak ve veriler sayfa7 den alınacak ayrıca boş giriş haptığın zamanda hata verecek

 

[moresby]

Yardımcı olacak arkadaşlar sizleri bekliyorum

 

[Haluk]

horrr... :uyku:

 

[Cemil1]

horrr... :uyku:

Uyumuyordum.