Belli Bir Süre Sonra Şifre Isteme

[esancak828]

Excel Versiyonu

Excel 2016

Excel Sürümü

64 Bit

Excel Dili

Türkçe

Merhabalar

Sayfada bir buton var ilk kez tıklanınca şifre istesin. Belli bir süre sonra (1 saat gibi) tekrar butona tıklayınca şifre istesin.

Private Sub CommandButton1_Click()
    If InputBox("Şifre") = "123" Then
        MsgBox "Başarılı giriş"
    Else
        MsgBox "Hatalı şifre"
    End If
End Sub

 

Vba Da Diyez Işareti Niçin Kullanılıyor

İki Şarta Göre Veri Karşılığını Getirme

[cakarem]

Butona tıklanma zamanını excelde bir hücreye kayıt edin. Kayıt sonrası butona tıklandığında geçerli zaman ile kayıt edilen zaman arasında ki farka göre şifre isteyebilirsiniz.

 

[esancak828]

@cakarem hocam çok teşekkür ederim zaman farkını nasıl hesaplayacam onu bilmiyorum

 

[cakarem]

A- B şeklinde direk çıkartabilirsiniz. Ardından sonucu format kodu ile biçimlendirip istenilen veriyi görebilirsiniz.

 

[esancak828]

@cakarem hocam yapamadım

 

[cakarem]

) Örnek dosya olmayınca bizde bu şekilde yardımcı olabiliyoruz. Sorun şu ki kimse zamanını dosya oluşturmak için harcamak istemez.

 

[esancak828]

cakarem hocam haklısınız ama örnek dosya yükleyemiyorum. onun için öyle yardım istedim.

 

[cakarem]

Eski sistemin devam etmediğini unutmuşum.
Dosyanız ekte deneyiniz.

Dosya açılır açılmaz A1 hücresine zamanı yazar ve giriş yapıldığını varsayar. Sonra 30 saniyeden fazla olunca şifre bilgisini ister. Doğru giriş olduğunda A1 hücresi güncellenir.

İlgili Kod :

Private Sub CommandButton1_Click()
    If IIf(CSng(Format(Now - Sayfa1.Range("a1"), "nn")) >= 1, 1, IIf(CSng(Format(Now - Sayfa1.Range("a1"), "ss")) > 30, 1, 0)) Then
        If InputBox("Şifre") = "123" Then
            MsgBox "Başarılı giriş"
            Sayfa1.Range("a1") = Now
        Else
            MsgBox "Hatalı şifre"
        End If
    Else
        MsgBox "Giriş yapılmış" & vbNewLine & "Geçen zaman : " & Format(Now - Sayfa1.Range("a1"), "nn:ss")
    End If
End Sub

 

[esancak828]

hocam çok çok teşekkür ederim sağolun

30 dakika yapmak için aşağıdaki kırmızı alanı mı değiştircem hocam

If IIf(CSng(Format(Now - Sayfa1.Range("a1"), "nn")) >= 1, 1, IIf(CSng(Format(Now - Sayfa1.Range("a1"), "ss")) > 30, 1, 0)) Then

 

[cakarem]

hocam çok çok teşekkür ederim sağolun

30 dakika yapmak için aşağıdaki kırmızı alanı mı değiştircem hocam

If IIf(CSng(Format(Now - Sayfa1.Range("a1"), "nn")) >= 1, 1, IIf(CSng(Format(Now - Sayfa1.Range("a1"), "ss")) > 30, 1, 0)) Then

If IIf(CSng(Format(Now - Sayfa1.Range("a1"), "nn")) >= 1, 1, IIf(CSng(Format(Now - Sayfa1.Range("a1"), "ss")) > 30, 1, 0)) Then bu kodu şu şekilde değiştirin :
If IIf(CSng(Format(Now - Sayfa1.Range("a1"), "nn")) >= 30, 1, 0) Then