sbayyigit
Altın Üye
- Katılım
- 11 Aralık 2004
- Mesajlar
- 415
- Excel Vers. ve Dili
- Ms Office Pro Plus 2019
- Altın Üyelik Bitiş Tarihi
- 23-02-2026
Sayın Ustalari, forumda aradım ama tam uygun cevap bulamadım.
yapmış olduğum bir programa auto_open modulüne yazmış olduğum;
Sub Autpen()
Application.Visible = False
ActiveWorkbook.Sheets("kurum").Visible = True
ActiveWorkbook.Sheets("izin").Visible = True
ActiveWorkbook.Sheets("amirler").Visible = True
ActiveWorkbook.Sheets("veritabani").Visible = True
ActiveWorkbook.Sheets("sevk").Visible = True
ActiveWorkbook.Sheets("izinler").Visible = True
ActiveWorkbook.Sheets("yakin").Visible = True
ActiveWorkbook.Sheets("protokol").Visible = True
Sheets("kurum").Select
Worksheets("kurum").Range("c5000") = Worksheets("kurum").Range("c5000") + 1 'kaç defa çalıştı
If Worksheets("kurum").Range("c5000").Value > 500 Then
ActiveWorkbook.Save
Application.Quit
Else
anamenu.Show
End If
kodundan sonra açık olan diğer excel kitaplarıda görünmez oluyor. aslında program açıkken (programa ait excel kitabının görünmemesi şartı ile) diğer excel kitapları ile çalışmak istiyorum. yani auto open koduna öyle bir şey yazalım ki; açık olan diğer excell kitapları veya sayfaları etkilenmesin. sadece programın ait olduğu kitap etkilensin. aynı durum kapanırken de gerekiyor. kapanırken diğer tüm excel kitapları açık olduğu halde görünmez oluyor. umarım sorunumu anlatabilmişimdir. herkese sonsuz saygılar....
yapmış olduğum bir programa auto_open modulüne yazmış olduğum;
Sub Autpen()
Application.Visible = False
ActiveWorkbook.Sheets("kurum").Visible = True
ActiveWorkbook.Sheets("izin").Visible = True
ActiveWorkbook.Sheets("amirler").Visible = True
ActiveWorkbook.Sheets("veritabani").Visible = True
ActiveWorkbook.Sheets("sevk").Visible = True
ActiveWorkbook.Sheets("izinler").Visible = True
ActiveWorkbook.Sheets("yakin").Visible = True
ActiveWorkbook.Sheets("protokol").Visible = True
Sheets("kurum").Select
Worksheets("kurum").Range("c5000") = Worksheets("kurum").Range("c5000") + 1 'kaç defa çalıştı
If Worksheets("kurum").Range("c5000").Value > 500 Then
ActiveWorkbook.Save
Application.Quit
Else
anamenu.Show
End If
kodundan sonra açık olan diğer excel kitaplarıda görünmez oluyor. aslında program açıkken (programa ait excel kitabının görünmemesi şartı ile) diğer excel kitapları ile çalışmak istiyorum. yani auto open koduna öyle bir şey yazalım ki; açık olan diğer excell kitapları veya sayfaları etkilenmesin. sadece programın ait olduğu kitap etkilensin. aynı durum kapanırken de gerekiyor. kapanırken diğer tüm excel kitapları açık olduğu halde görünmez oluyor. umarım sorunumu anlatabilmişimdir. herkese sonsuz saygılar....