Excel dosyası belirli bir tarihten sonra açılmasın.

[tufan03]

Kullanmakta olduğum dosyada Auto_Pen makrosu içine nasıl bir kod ilavesi yapayımki dosya belirli bir tarihten sonra ancak şifre ile açılabilsin. Teşekkür ederim.

 

[tevfikdemir]

Bunu sadece Auto_Pen le değil de Workbook_Activate içersine ve dosyanızın kapanış kısmına yazacağınız iki kodla mümkün bende bu kodları gene bu sitede bulmuş ve kendi dosyama uyarlamıştım.DANISMAN yazan yerlere kendi dosyanızın adını yazmanız gerekiyor.If (Date - CDate(d)) > 30 Then satırındaki 30 yerine gün olarak kaç gün istiyorsanız onu yazabilirsiniz.

Private Sub Workbook_Activate()
On Local Error Resume Next
Application.Visible = False 'Excel Uygulamasını görünmez yap
Dim d, x, y
d = GetSetting("DANISMAN", "Ayarlar", "Ilk Giris", "")
If d = "" Then
SaveSetting "DANISMAN", "Ayarlar", "Ilk Giris", Date
Else
If (Date - CDate(d)) > 30 Then
MsgBox ("Programin Demo Süresi dolmustur.Uzatmak Için E-Mail adresine Not mesaj atabilirsiniz")
DoCmd.Close
Application.Quit
Else

x = GetSetting("DANISMAN", "Ayarlar", "Son Çikis Tarihi", "")
If x = "" Then
'End
Else
If CVDate(x) > Date Then
MsgBox ("Programin Deneme Süresi Doldu Lütfen Israr Etmeyin")
DoCmd.Close
Else
y = GetSetting("DANISMAN", "Ayarlar", "Son Çikis Saati", "")
If (CVDate(x) = Date) And (CVDate > Time) Then
MsgBox ("Programin Deneme Süresi Doldu Lütfen Israr Etmeyin")
DoCmd.Close
End If
End If
x = GetSetting("DANISMAN", "Ayarlar", "Sayi", "1")
MsgBox ("Programi" & x & ". defa çalistiriyorsunuz.")
SaveSetting "DANISMAN", "Ayarlar", "Sayi", x + 1
End If
End If
End If
siparisfrm.Show
End Sub

Benim çıkış için kullandığım ;Userform kapatıldığında dosyayı kapatıyor,bu arada ilgili dosyaya çıkış tarihini ve saatini kaydettiriyorum.

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
SaveSetting "DANISMAN", "Ayarlar", "Son Çikis Tarihi", Date 'Danışman dosyasının çıkış tarihi
SaveSetting "DANISMAN", "Ayarlar", "Son Çikis Saati", Time 'Danışman dosyasının çıkış saati
Application.Visible = True 'Excel Ara yüzü görünür Yap
Application.Quit 'Excel Uygulamasından Komple Çık
End Sub

 

[yasso38]

Merhaba
Workbook_Activate kısmına nasıl ulaşacağız ?

 

[emrexcel123]

vba

arkadaşım excel sayfası üzerinden alt + F11 tuşlarına basıp ondan sonra sol taraftaki sayfa isimlerinden birine çift tıkladıktan sonra üstte General sekmesinin altında worksheet olayı vardır onu tıklarsan kodu göreceksin ....

 

[bofarchi]

Yukarıdaki kodda "danışman" yazan dosya adını her seferinde değiştirmek yerine (doysa adı sanırım ÇALIŞMA KİTABI) çalışma kitabı adını otomatik olarak alamaz mı? Çalışma kitabı kopyalanıp başka isimle kayıt edilse bile bile kodu revize etmek zorunda kalamadan nasıl yaparız?

Teşekkürler

 

[koboy]

burda saati günü nerden baz alıyor kendi dosyamızda tarihi nerede yer alacak