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. Application.Visible = False Dim d, x, y d = GetSetting("DANISMAN", "Ayarlar", "Ilk Giris", "") If d = "" Then SaveSetting "DANISMAN", "Ayarlar", "Ilk Giris", Date Else If (Date - CDate(d)) > 365 Then MsgBox ("Programin Demo Süresi dolmustur.") 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 Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) SaveSetting "DANISMAN", "Ayarlar", "Son Çikis Tarihi", Date SaveSetting "DANISMAN", "Ayarlar", "Son Çikis Saati", Time Application.Visible = True Application.Quit End Sub

TÜM MAKROLAR Youtube Kanalımız
Aşağıdaki makrolar işinize yarayabilir.

Warning: mysql_connect() [function.mysql-connect]: Headers and client library minor version mismatch. Headers:100337 Library:30120 in /home/dbswav/public_html/excelsizeyeter.com/benzerlik_hazir_makrolar4.php on line 19

Benzer Sonuçlar

No	Makro Adı
1	süre sona erdirme
2	excel operatörleri hk
3	menü çubuğunun silinmesi ve özel bir menünün oluşturulması
4	hesap makinesini açma kapama
5	wmi bilgi
6	masaüstüne kısayol oluşturma iconlu
7	masaüstüne ikon oluşturma
8	sayfa korumalarını kaldırma
9	excelde kendi eklenti ve fonksiyonlarınızı oluşturun
10	"Farklı kaydet" işlemi
11	kullanıcı kitabının kapatılması
12	hareketsiz inputbox
13	0 olan hücreleri geri alma
14	belirli bir süre ekranda bekleyen ve daha sonra kapan user form
15	süreli userform 1
16	istenilen sürece ekranda kalan userform
17	userform 4 belirli bir süre ekranda bekleyen ve daha sonra kapan user form.
18	bekletmeli ve aralara makro koyarak mesaj alma
19	benzersiz (tek) olan veri girişlerinin tespit edilmesi
20	tarih işlemleri 1