AccessTr.neT
Çarpıdan Formu Kapatmak - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Çarpıdan Formu Kapatmak (/konu-carpidan-formu-kapatmak.html)

Sayfalar: 1 2 3 4 5 6

RE: Çarpıdan Formu Kapatmak - feraz - 04/05/2020

Az zaman bulabildim ve değiştir ve sil olayına kod ekledim .


Dim say As Integer

var:



say = say + 1



If say = 5 Then Exit Sub

GoTo var

Yukkarıdaki kodları ekledim.5 kere yanlış şifre olursa kapanır.





Dim say As Integer

If islemYapma = True Then Exit Sub

ActiveSheet.Unprotect "4455"

var:

GIRIS = InputBoxDK("ÞÝFRE GÝRÝNÝZ.", "ÞÝFRE PENCERESÝ", "") ''InputBox a parola maskesi baþý devacý modülde







sifre = "111" ' Þifrenizi buraya tanýmlayýnýz.

If GIRIS = "" Then

MsgBox "ÝÞLEMÝ ÝPTAL ETTÝNÝZ"

Exit Sub

End If

If GIRIS <> sifre Then

MsgBox "ÞÝFRE YANLIÞ"

say = say + 1

If say = 5 Then Exit Sub

GoTo var

Exit Sub

End If

MsgBox "KAYITLAR DEÐÝÞTÝRÝLDÝ!!!" 'InputBox a parola maskesi sonu


RE: Çarpıdan Formu Kapatmak - m_demir - 04/05/2020

Çok, çok teşekkürler Hocam Ellerinize sağlık. 
Saygılarımla size ve bütün sevdiklerinize sağlıklı günler diliyorum.

Arkadaşlar Konuyu cevaplanmış konular bölümüne taşıyabilirsiniz. Saygılarımla.