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.

Bu kodu görmek için giriş yapmanız gerekmektedir (7 satır). Giriş Yap

 

[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 :

Bu kodu görmek için giriş yapmanız gerekmektedir (12 satır). Giriş Yap

 

[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