Kapanışta Sayfaların Otomatik Olarak Gizlenmesi
Kapanışta Sayfaların Otomatik Olarak Gizlenmesi isimli kodu kullanarak Excel'in kapandığı esnada bir sayfa dışındaki tüm sayfaları gizleyebilirsiniz.XD Destek İste
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Syf As Worksheet
For Each Syf In ThisWorkbook.Worksheets
If Syf.Name <> "ExcelDepo" Then
Syf.Visible = xlSheetHidden
End If
Next Syf
End Sub
Gerekli 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.
- Microsoft Excel Objects yazısının solundaki + simgesini tıklayın ve BuÇalışmaKitabı kısmına çift tıklayın.
- Üstteki kodu yapıştırın.
Kod Açıklaması
Biz kodları kapanışta kullanacak şekilde hazırladık. Eğer kodlara başka bir şekilde ihtiyacınız olursa, kodu BuÇalışmaKitabı kısmına değil bir Module içine eklemeniz ve başlığını değiştirmeniz yeterli olacaktır.
Özellikle "makrolar etkinleştirilmezse" bir uyarı sayfası çıkacak türde ihtiyaçlar için oldukça faydalıdır.
- önce sağ tıklayıp, Açıklama Ekle (Ofis 365 Not Ekle)
- Hücre sağ tıklayıp, Açıklama Düzenle (Ofis 365 Notu Düzenle)
- Açıklama/Not köşesine sağ tıklayıp, Açıklama Biçimlendir
- Ekrana gelen pencereden, Renkler ve çizgiler tabı seçme
- Dolgu bölümünden açılır listeye tıklama
- Dolgu efektleri seçme
- En sağdaki Resim sekmesini tıklama
- Resim seç diyerek istediğiniz resmi seçme ve tamam deme...