Belli Bir Süre Sonra Şifre Isteme

cakarem

Katılım

6 Ara 2016

Mesajlar

1,250

• 17 Haz 2022

• #2

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.

 

Oyla 0 Olumsuz oyla

esancak828

Katılım

28 Tem 2022

Mesajlar

69

• 17 Haz 2022

• #3

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

 

Oyla 0 Olumsuz oyla

cakarem

Katılım

6 Ara 2016

Mesajlar

1,250

• 17 Haz 2022

• #4

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

 

Oyla 0 Olumsuz oyla

esancak828

Katılım

28 Tem 2022

Mesajlar

69

• 17 Haz 2022

• #5

@cakarem hocam yapamadım

 

Oyla 0 Olumsuz oyla

cakarem

Katılım

6 Ara 2016

Mesajlar

1,250

• 17 Haz 2022

• #6

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

 

Oyla 0 Olumsuz oyla

esancak828

Katılım

28 Tem 2022

Mesajlar

69

• 17 Haz 2022

• #7

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

 

Oyla 0 Olumsuz oyla

cakarem

Katılım

6 Ara 2016

Mesajlar

1,250

• 17 Haz 2022

• #8

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 :

VBA:

İndirmek için giriş yapmanız gerekmektedir.
(12 satır)

 

Ekli dosyalar

• ExcelDEstek.xlsm

  20.9 KB · Görüntüleme: 0

Oyla 0 Olumsuz oyla

esancak828

Katılım

28 Tem 2022

Mesajlar

69

• 17 Haz 2022

• #9

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

 

Oyla 0 Olumsuz oyla

cakarem

Katılım

6 Ara 2016

Mesajlar

1,250

• 17 Haz 2022

• #10

esancak828' Alıntı:

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

Genişletmek için tıklayın ...

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

 

Oyla 0 Olumsuz oyla