excel dosyası belirli bir tarihten sonra açılmasın Hazır Excel Makroları (VBA) | Excel Programları

Makroyu Kopyala

'Excel Makro (VBA) online eğitimleri için: https://www.excelsizeyeter.com/excelsizeyeter.com/udemy_giris.php adresine tıklayınız. Bir eğitim alana bir eğitim bedavadır. İkinci eğitim olarak Excel, Excel pratik çözümler, finans eğitimleri vb. alabilirsiniz.

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

Benzer Sonuçlar
No	Makro Adı
1	excel dosyası belirli bir tarihten sonra açılmasın
2	excelde kendi eklenti ve fonksiyonlarınızı oluşturun
3	30 excel dosyası içinde bir kelime aratma
4	sayfa koruması nasıl kaldırılır
5	kapali durumdaki c: est.xls dosyası açılacak ve içine c:userform1.frm ilave edildikten sonra kaydedilerek kapatilacaktir
6	text dosyası 1 oluşturma
7	makro istediğim tarihten sonra açılmasın
8	makronun otomatik olarak açılması ve çalışması
9	Tüm Çalışma Sayfasında Belirli Bir Özelliği Olan Hücreleri Kont / Vurgulayın: Bu kod, bahseteceğiniz belirli bir değere sahip olan hücreleri saymanıza ve daha sonra bu hücrelerin tümünü vurgulamanıza yardımcı olacaktır.
10	Dosyayı kim açtı 2
11	text dosyası 2 silme
12	Seçilen hücreleri text dosyasına aktarma
13	gizli sayfada makro çalışır mı
14	userform 4 belirli bir süre ekranda bekleyen ve daha sonra kapan user form.
15	aynı makroyla birden çok sayfaya kayıt yapmak
16	AdvancedElektrik tablolarınızda gelişmiş görev hazırlamak için kullanabileceğiniz kodlardan bazıları.Seçilen Aralıkyı PDF olarak seçin: Bir aralık seçin, bu makroyu çalıştırın ve seçili aralık için bir PDF dosyası elde edin. Bu gerçekten havalı.
17	excel sayfasında yazılanları texte çevirmek
18	makrolar kutusu ve makrolar görünsün
19	userformda resim önzileme
20	herhangi bir tarihten sonraki ilk pazartesiyi bulma

Benzer Sonuçlar

Makro Adı

excel dosyası belirli bir tarihten sonra açılmasın

excelde kendi eklenti ve fonksiyonlarınızı oluşturun

30 excel dosyası içinde bir kelime aratma

sayfa koruması nasıl kaldırılır

kapali durumdaki c: est.xls dosyası açılacak ve içine c:userform1.frm ilave edildikten sonra kaydedilerek kapatilacaktir

text dosyası 1 oluşturma

makro istediğim tarihten sonra açılmasın

makronun otomatik olarak açılması ve çalışması

Tüm Çalışma Sayfasında Belirli Bir Özelliği Olan Hücreleri Kont / Vurgulayın: Bu kod, bahseteceğiniz belirli bir değere sahip olan hücreleri saymanıza ve daha sonra bu hücrelerin tümünü vurgulamanıza yardımcı olacaktır.

Dosyayı kim açtı 2