do not open excel file after a certain date Free Excel Macros (VBA) | Excel Programs

'For online Excel courses click: https://www.excelsizeyeter.com/excelwithkenan.com/udemy_giris.php

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(y) > 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

No	Macro Name
1	do not open excel file after a certain date
2	excel operators hk
3	calculator on / off
4	closed c: est.xls file will be opened and saved after c: userform1.frm is added
5	desktop icon creation
6	browse folder xls list
7	show file path list in detail fields of files file path etcâ € ¦
8	is the size of a file in bytes?
9	macro should not be opened after the date I want
10	Calculate the duration of the mp3 file (type the file path and select that cell)
11	deleting the menu bar and creating a custom menu
12	opens text file opens new book
13	Search for a text / text in all open Excel files
14	retrieve data from an encrypted closed file
15	a .bat file from a floppy disk
16	ping the address in the cell
17	Add menu to file edit bar delete
18	send alert e-mail from microsoft outlook
19	file cd rom checks your name does not keep closing
20	opens and copies the selected word document

Excel Free Macros (VBA)

Do Not Open Excel File After A Certain Date

Online Excel Courses

Services

How can we help you?

Subscribe to our Youtube Channel?

Keywords