Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Makro-VBA
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Makro-VBA Makro veya VBA ile ilgili sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 14-05-2006, 12:24   #1
tufan03
 
Giriş: 12/05/2006
Mesaj: 456
Varsayılan Excel dosyası belirli bir tarihten sonra açılmasın.

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.
tufan03 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 14-05-2006, 12:58   #2
tevfikdemir
 
tevfikdemir kullanıcısının avatarı
 
Giriş: 23/03/2006
Şehir: istanbul
Mesaj: 304
Excel Vers. ve Dili:
Microsoft Office 2003 Excel 2003
Varsayılan

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
__________________
Sevdim Seni Bir Annenin Yavrusunu Sevdiği Kadar.Sende Sevebilirmisin Beni,Bir Kum Tanesi Kadar. Excel XP Türkçe
tevfikdemir Çevrimdışı   Alıntı Yaparak Cevapla
Eski 25-04-2007, 16:07   #3
yasso38
 
Giriş: 20/01/2007
Mesaj: 115
Excel Vers. ve Dili:
excel-2003 türkçe
Varsayılan

Merhaba
Workbook_Activate kısmına nasıl ulaşacağız ?
yasso38 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 25-04-2007, 16:13   #4
emrexcel123
 
emrexcel123 kullanıcısının avatarı
 
Giriş: 15/01/2007
Mesaj: 791
Excel Vers. ve Dili:
2003 excel visual basic
Varsayılan 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 ....
__________________
[B][U]Forum Kuralları :[/U]
1- Her zaman nazik bir hitap tarzı kullanın.

2- Birisi sorunuzu anlamazsa hoşgörülü olun ve gerekirse soruş şeklinizi gözden geçirin.

3- Birisinin cevabı sizin için yeterli açıklıkta değilse, cevaplayan kişinin sizin bilgi seviyenizi bilmediğini unutmayın ve kibarca konuyu açmasını isteyin.

4- Aynı soruyu birden fazla bölümde sormayın. Bu forumda mesaj kirliliğine yol açmakta ve mesajlardan birisi forum yönetimi tarafından silinmektedir.[/B]
emrexcel123 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 25-03-2011, 13:17   #5
bofarchi
 
bofarchi kullanıcısının avatarı
 
Giriş: 11/11/2010
Şehir: istanbul
Mesaj: 72
Excel Vers. ve Dili:
2010
Varsayılan

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
bofarchi Çevrimdışı   Alıntı Yaparak Cevapla
Eski 07-11-2017, 08:05   #6
koboy
Altın Üye
 
Giriş: 01/08/2006
Mesaj: 70
Varsayılan

burda saati günü nerden baz alıyor kendi dosyamızda tarihi nerede yer alacak
koboy Çevrimiçi   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 17:10


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım - Tarot Falı - invest in turkey - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- Led Aydınlatma- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Boru Profil- Gebze Emlak- Beylikdüzü Temizlik- İstanbul Burun Estetiği- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Palet- Çerkezköy Palet- Çorlu Prefabrik- Çorlu Sürücü Kursu- Çorlu Sandviç Panel- Şişli Avukat- Korona Test Kalemi- Çorlu Vinç- Çorlu Pimapen Tamiri- Çorlu Çelik Konstruksiyon-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden