Etkin Sayfa Hariç Çalışma Sayfalarını Gizleme
Bu kod ile Etkin Sayfa Hariç Çalışma Sayfalarını Gizleme işlemini çok hızlı bir şekilde gerçekleştirebilir, işlerinizde zaman tasarrufu sağlayabilirsiniz.
Sub HideAllExceptActiveSheet()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
If ws.Name <> ActiveSheet.Name Then ws.Visible = xlSheetHidden
Next ws
End SubGerekli Adımlar
Kodu çalıştırmanız için aşağıdaki adımları yerine getirmeniz gerekir.
- Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
- Project - VBAProject alanının, ekranın sol tarafında görüldüğünden emin olun. Görünmüyorsa, Ctrl + R kısayolu ile hızlıca açın.
- Araç çubuklarından Insert -> Module yazısına tıklayın.
- Solunda klasör simgesi olan Modules yazısının başındaki + simgesine tıklayın.
- Alt kısma eklenecek gelecek olan Module(1) yazısına çift tıklayın.
- Üstteki kodu yapıştırın.
Kod Açıklaması
Eğer Excel'de bir sayfa dışında tüm sayfaları gizlemek istiyorsanız, üstteki kod acayip işinize yarar, belirtmeden geçemeyeceğim :)
Mesela bir Excel dosyanız var, şekilli makrolardan oluşuyor. Siz dosyayı başkas birine yolladınız ama o makroları etkinleştirmeyi bilmiyor, hatta makronun ne olduğunu bile bilmiyor :( (makro adını duymamış çok fazla Excel kullanıcısu var ne yazık ki)
O zaman dosyanıza bir sayfa ekleyin ve bu dosyanın çalışması için makroların etkinleştirilmesi gerekir vs tarzında bir açıklama yapın. Excel'i kapatırken bu kodu bahsettiğim sayfanız aktifken çalıştırın. Böylece sadece o uyarının olduğu sayfa kalacak, diğerleri gizlenecektir.
Makro etkinleştirmeye kullanıcı dosyayı açtığında bu sefer sadece uyarı sayfasını göreceği için otomatik olarak makrodan haberdar olacak. E tabi makrolar etkinleştirildiği zaman ilk olarak Tüm Çalışma Sayfalarını Gösterme işlevini de atlamayın.
Buna da sosyal sorumluluk diyelim :)
Etiketler :
| YARARLI KISAYOLLAR | |
|---|---|
| Aktif Pencereyi Kapatma | Ctrl W |
| Veri Doğrulama Penceresini Açma | Alt X VE V |
| Sayfa Sonlarını Kaldırma | Alt P O K |
| Hücreyi Alta Yaslı Hale Getirmek | Alt Ş Ğ |
| Üstteki Veriyi Kopyalama | Ctrl D |