Auto_open Auto_Close işlevleri

Excel dosyamız açılırken ve ya kapanırken yaptırmak istediğimiz işlemler için bir kaç kısa kod

excel dosyaları ile çalışırken bazen 1 den fazla sayfa kullanabiliyoruz. Ancak dosya açıldığında ilk görülen sayfa bazen son değişlik yaptığımız sayfa olabiliyor. Bunu engellemek ve dosyayı ilk açtığımızda görünecek sayfayı belirlemek için kullanacağımız kod:

Sub auto_open()

sheets("sayfa1").select

End sub

'dosya ilk açıldığında sayfa 1 görülecek şekilde ayarlamamızı yaptık artık dosyayı hangi sayfadan kapatırsanız kapatın açılış sayfanız sayfa 1 olacak.

Bazı durumlarda da ana datanın olduğu ya da bazı hesaplamaların bulunduğu sayfaların karşı kullanıcı tarafından görülmesini istemeyiz, bu sayfalar bir pivot tablo yu besliyor olabilir ya da silmek istemediğimiz bazı formülleri içerebilir bu nedenle sayfayı silmek de pek mümkün olmaz. Aşağıda sayfayı silmeden nasıl gizleyeceğimizin kodunu verelim:

Sub auto_open()

sheets("sayfa2").visible=False
sheets("sayfa3").visible=False

End sub

'artık sayfa 2 ve 3 dosya açıldığında gizlenmiş olacak, siz yeniden görmek istediğinizde False yerine True yazıp kodu çalıştırırsanız sayfanız geri gelecektir.


Şimdi de dosya kapanırken bir komut çalıştıralım, kullanıcıya istediğimiz bir mesajı gösterelim:

Sub auto_close()

MsgBox "Raporumuzu incelediğiniz için teşekkür ederiz"

End sub