Excel dosyasına süre koymak
Oğuzhan KOÇYİĞİT
Benim bir katalog çalışmam var ve buna tarih sınırlaması koymak istiorum.
Yani mesela 01.06.2008 tarihini görünce artık açılmasın gibi. Ne gibi bir
uygulama yapmalıyım. Bilen arkadaşların yardımlarını rica ediyorum. Şimdiden
teşekkürler.
Sitare Yıldız İŞTAR
Aşağıdaki kodlar işinizi görecektir.
Saygılar.
----------------------------
Sub Auto_Open()
If "01/06/2008" < Date Then
MsgBox "Deneme Süreniz Doldu. ", vbCritical, "ÜZGÜNÜM"
auto_close
End If
End Sub
Sub auto_close()
Application.Quit
End Sub
--------------------------
"Oğuzhan KOÇYİĞİT" <ram...@hotmail.com>, iletisinde şunu yazdı,
news:592FE3C7-8712-4807...@microsoft.com...
Sitare Yıldız İŞTAR
Bu kodların nereye yazılacağını soran birkaç tane mail aldım. Amaç
yardımlaşmak olduğuna göre özel yanıt vermemeyi tercih ediyor, yanıtı buraya
yazıyorum.
-Süre koymak istediğiniz dosyayı açınız.
-Alt+F11 tuş bileşeni ile VBA editörünü açınız.
-Menüden Insert(ekle) Modül komutunu veriniz.
-Aşağıdaki kodları kopyalayıp açılan sayfaya yapıştırınız. Tarihi isteğinize
göre değiştirebilirsiniz.
-Dosyayı kaydedip çıkınız.
Ancak;
-Makrolar devre dışı bırakılarak bu kodlar çalışmaz hale getirilebilir,
- Sizin kaydettiğiniz yolla VBA editörü açılarak tarihler değiştirilebilir.
Bunu engellemek için, kodunuza parola koymayı unutmayınız. İsterseniz
dijital imza koyarak daha kullanışlı hale getirebilirsiniz.
BAKKAS DANISMANLIK
konu ıle ılgılı bılgı verırmısınız
"freefighter" <freef...@discussions.microsoft.com>, iletisinde şunu
yazdı, news:3C592013-01EE-4286...@microsoft.com...
> Merhaba;
> Bence sorunuz çok net değil, Daha açık bir şekilde ifade edebilirseniz
> yardımcı olacak birileri çıkar.
> Selametle
>
> "Oğuzhan KOÇYİĞİT" wrote:
>
>> Merhaba Arkadalar,
>>
>> Benim bir katalog almam var ve buna tarih snrlamas koymak istiorum.
>> Yani mesela 01.06.2008 tarihini grnce artk almasn gibi. Ne gibi bir
>> uygulama yapmalym. Bilen arkadalarn yardmlarn rica ediyorum. imdiden
>> teekkrler.
>>
BAKKAS DANISMANLIK
ıkı sey denedım:
-sıstem zamanını degıstırdım.
-kod dakı tarıhı degıstırdım.
ne yazık kı sonuzc alamadım. ılgınıze ve sabrınıza tesekkur ederım.
BAKKAS
"Sitare Yıldız İŞTAR" <bil...@mynet.com>, iletisinde şunu yazdı,
news:uHqmvmke...@TK2MSFTNGP06.phx.gbl...
> Dosyanız düzeltilmiş haliyle ektedir
>
> Saygılar.
>
BAKKAS DANISMANLIK
Sitare Yıldız İŞTAR
Mesajınızı yeni gördüm.
Koddaki if ile başlayan satırı aşağıdaki ile değiştiriniz.
Saygılar.
If DateValue("01.06.2008") < Date Then
"BAKKAS DANISMANLIK" <in...@bakkas.com>, iletisinde şunu yazdı,
news:u7iGXWqe...@TK2MSFTNGP05.phx.gbl...
Sitare Yıldız İŞTAR
Sorun yok çalışıyor.
Bir önceki başlığa ek olarak gönderdiğiniz dosyayı inceledim.
Referans tarih olarak 15.03.2008 yazmışsınız. Bu gün 11.03.2008 bu durumda
15 marta kadar uyarı vermeyecektir.
Sistem tarihini değiştirerek denemeler yaptığınızı görüyorum. Ekli
dosyanızdaki referans tarih 15.03.2008 olduğuna göre sistem tarihini
20.03.2008 yaptığınızda çalışması gerekir.
Ben her iki durumuda denedim çalışıyor.
Eğer çalışmıyorsa başka bir nedeni olmalı? Makroları devre dışı bırakan bir
yazılım veya excelin tam kurulu olmaması gibi.
Buradaki dostlardan rica edelim. Kodları deneyip sonucu buraya yazarlarsa
çalışmama nedenini bulmaya çalışırız.
Saygılar.
"BAKKAS DANISMANLIK" <in...@bakkas.com>, iletisinde şunu yazdı,
news:83D0485A-BDC1-44BE...@microsoft.com...
> merhaba
> sanırım hala sorun var
>
> BAKKAS
>
>
> "Sitare Yıldız İŞTAR" <bil...@mynet.com>, iletisinde şunu yazdı,
> news:OoTR8FXf...@TK2MSFTNGP06.phx.gbl...
ERKAN YÜKSEL
"BAKKAS DANISMANLIK" <in...@bakkas.com>, haber iletisinde şunları
yazdı:6FC232A7-A048-4C44...@microsoft.com...
> merhaba
> ofis 2003 professinal yeniden yükledim tarihleri değiştirdim ama
> çalışmadı.
> orijinal ofis cd den kurulum lisanslı
> teşekkürler> news:%23RtBb%234gI...@TK2MSFTNGP04.phx.gbl...
gokhan
"Sitare Yıldız İŞTAR" wrote:
<a title="Özel Eğitim" href="http://www.ozelegitimsitesi.com/">Özel
Eğitim</a>Özel Eğitim sitesi <a title="Bayan "
href="http://bayan.us/">Bayan</a> <a
href="http://www.ureticifirma.com/">www.ureticifirma.com</a> <a title="cep
oyunları" href="http://www.ceptelefoncunuz.net/">Cep Oyunları</a> <a
title="cep programlari" href="http://www.ceptelefoncunuz.net/">Cep
Programları</a> <a title="Cep Videoları"
href="http://www.ceptelefoncunuz.net/">Cep Videoları</a> <a title="Cep
Temaları" href="http://www.ceptelefoncunuz.net/">Cep Temaları</a> <a
title="cep programlari"
href="http://www.ceptelefoncunuz.net/category/cep-programlari/">Cep
Programları</a> <a title="Cep Temaları"
href="http://www.ceptelefoncunuz.net/category/cep-temalari/">Cep Temaları</a>
<a title="Cep Videoları"
href="http://www.ceptelefoncunuz.net/category/cep-videolari/">Cep
Videoları</a> <a title="staj rehberi, staj, staj yerleri, bur veren yerler,
burs rehberi" href="http://www.staj.ws/">Staj</a> <a title="Ringo Wap"
href="http://www.ringowap.com/">Ringo Wap</a> <a title="Portre"
href="http://www.portre.org/">portre</a> <a
href="http://www.etixet.com/">etixet</a> <a title="Astroloji & Fal "
href="http://bayan.us/category/astroloji-fal">Astroloji & Fal</a> <a
title="Cilt & Yüz Bakımı "
href="http://bayan.us/category/cilt-yuz-bakimi">Cilt & Yüz Bakımı</a> <a
title="Cinsellik & Bilgi "
href="http://bayan.us/category/cinsellik-bilgi">Cinsellik & Bilgi</a> <a
title="Diyet & Egzersiz "
href="http://bayan.us/category/diyet-egzersiz">Diyet & Egzersiz</a> <a
title="Gezi & Tatil " href="http://bayan.us/category/gezi-tatil">Gezi &
Tatil</a> <a title="Güzellik & Bakım "
href="http://bayan.us/category/guzellik-bakim">Güzellik & Bakım</a> <a
title="Hobi & Eğlence " href="http://bayan.us/category/hobi-eglence">Hobi &
Eğlence</a> <a title="İslam & Ahlak "
href="http://bayan.us/category/islam-ahlak">İslam & Ahlak</a> <a title="Moda
& Magazin " href="http://bayan.us/category/moda-magazin">Moda & Magazin</a>
<a title="Mutfak & Besin "
href="http://bayan.us/category/mutfak-besin">Mutfak & Besin</a> <a
title="Sağlık & Yaşam " href="http://bayan.us/category/saglik-yasam">Sağlık &
Yaşam</a> <a title="Sanat & Şiir "
href="http://bayan.us/category/sanat-siir">Sanat & Şiir</a> <a title="Sinema
& Tiyatro " href="http://bayan.us/category/sinema-tiyatro">Sinema &
Tiyatro</a> <a title="Dizi Fragmanları "
href="http://www.video-muzik.net/category/dizi-fragmanlari/">Dizi
Fragmanları</a> <a title="Film Fragmanları "
href="http://www.video-muzik.net/category/film-fragmanlari/">Film
Fragmanları</a> <a title="Genel Videolar "
href="http://www.video-muzik.net/category/kategorilenmemis/">Genel
Videolar</a> <a title="İlginç Videolar "
href="http://www.video-muzik.net/category/ilginc-videolar/">İlginç
Videolar</a> <a title="Kamera Şakaları "
href="http://www.video-muzik.net/category/kamera-sakalari/">Kamera
Şakaları</a> <a title="Komik Videolar "
href="http://www.video-muzik.net/category/komik-videolar/">Komik Videolar</a>
<a title="Reklam Videoları "
href="http://www.video-muzik.net/category/reklam-videolari/">Reklam
Videoları</a> <a title="Top Videolar "
href="http://www.video-muzik.net/category/top-videolar/">Top Videolar</a> <a
title="Bayan" href="http://alser99.googlepages.com">Bayan</a> <a
title="Bayan" href="http://bayan.20six.co.uk/">Bayan</a>
<a title="Bayan" href="http://bayan.allisfun.com/">Bayan</a>
<a title="Bayan" href="http://bayanhaber.wordpress.com/">Bayan</a>
<a title="Bayan" href="http://bayansaglik.blog.com/">Bayan</a>
<a title="Bayan" href="http://bayan-saglik.livejournal.com/">Bayan</a>
<a title="Bayan" href="http://bayansaglik.blogsome.com/">Bayan</a>
<a title="Bayan" href="http://saglik.brshare.org/">Bayan</a>
<a title="Özel Eğitim" href="http://www.ozelegitimsitesi.com/">özel eğitim</a>
gokhan
"BAKKAS DANISMANLIK" wrote:
> merhaba
> sanırım hala sorun var
>
> BAKKAS
>
>
> "Sitare Yıldız İŞTAR" <bil...@mynet.com>, iletisinde şunu yazdı,
> news:OoTR8FXf...@TK2MSFTNGP06.phx.gbl...
sempat...@gmail.com
Beep
MsgBox "Bu program ..................tarafından yapılmıştır. ", vbInformation, " Buraya yazdığınız yazı mesaj kutusunun başlığında gözükecektir."
End Sub
Sub Auto_close()
Beep
MsgBox "Program Hatalarını 0-542-.......... numaralı telefona bildirebilirsiniz.", vbSystemModal, " Buraya yazdığınız yazı mesaj kutusunun başlığında gözükecektir"
ActiveWorkbook.Save
End Sub
YİDE ÇALIŞTIRMAK İSTİYORUM BUNUN BİR YOLU VARSA YAZARSAN ÇOK MEMNUN OLURUM BANA ÇOK LAZIM ÇÜNKÜ ŞİMDİDEN TEŞEKKÜR EDİYORUM