DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
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
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
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
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
dosyasında ki gibi olacak ve veriler sayfa7 den alınacak ayrıca boş giriş haptığın zamanda hata verecek3 hak.xls
Tanımlama:
İndir
Dosya adı: 3 hak.xls
Dosya boyutu: 41 KB
İndirildi: 11 kere
Uyumuyordum.Raider' Alıntı:horrr... :uyku: