konu,Cevaplanmış Sorular kategorisi'ne taşındı.fakat,
sayın alpeki99'un paylaştıkları kodlara yönelik olarak,
(kendilerinin de iznine ve hoşgörüsüne sığınaraktan bir düzeltmede bulunmak istiyorum,naçizane.)
konunu 2.mesajında paylaşılan kod yarım kalmış bir kod.
devamında,asıl önemli olan ve uygulamada kullanılması gerekli son kod kısmının mevcut olmadığı görülmüştür.
ilgili kodun devamı (2.mesajda kaldığı yerden olacak şekilde) aşağıdaki gibi dahil edilmelidir.
Kod:
Public Function TEST()
Dim strAdminPWord As String
strAdminPWord = InputBoxDK("İşlem yapmanız için ŞİFRE girmelisiniz.", "ŞİFRE GİRİŞ UYARISI")
If strAdminPWord = "password" Then
MsgBox "ŞİFRE doğru. ", vbOKOnly, "GEÇERLİ ŞİFRE GİRİŞİ"
Else
MsgBox ("Hatalı ŞİFRE girdiniz!")
' Exit Sub
End If
End Function
ilgili formunuzun YÜKLENDİĞİNDE olay yordamına ya da bir buton denetiminde kullanılacaksa TIKLANDIĞINDA olay yordamına,
Call TEST
ifadesini yazmak gerekmektedir.kod içerisindeki "password" ifadesin yer alan password yerine hangi şifreyi vermek istiyorsanız o ifade ile değiştiriniz.
EK'te;bahsi geçen bu hususlara yönelik olarak hazırlanmış örnek uygulama mevcuttur.
INPUT şifresi için 123 yazınız.inceleyebilirsiniz.
bilginize...iyi çalışmalar,saygılar.