Zaman aşımı

[marlalı1]

Arkadaşlar örneğin excelde hazırlanmış bir raporum var.bu raporun belirli bir süre sonra (mesela 7 gün ) açmak için şifre sormasını istiyorum.zamanı ben kendim belirleye bilmeliyim.

 

[Ayhan Ercan]

Merhaba
Dosyanızın oluşturulma tarihine bağlı olarak aşağıdaki gibi bir kod ile deneme yapabilirsiniz.

A1 hücresine gün bazında ne kadar zaman sonra şifre isteneceğini yazın.
şifrenin 111 olduğunu varsayalım.

kod penceresine;

Private Sub Workbook_Open()
Dim tar As Date
Application.Visible = False
tar = Format(ActiveWorkbook.BuiltinDocumentProperties("Creation Date"), "dd.mm.yyyy")
If Date - tar > [a1] Then
    sifre = InputBox("şifre giriniz")
    If sifre = 111 Then
        Application.Visible = True
        Sayfa1.Select
    Else
        MsgBox "şifre yalnış"
        Application.Quit
    End If
Else
Application.Visible = True
End If
End Sub

 

[marlalı1]

hocam bunu saate çevirebilirmiyiz.