Makro Etkinletirilmezse Sayfalar Gizlenir
21 Nisan 2021
25 Nisan 2021
1023
Makro Etkinletirilmezse Sayfalar Gizlenir kodu, makroların etkinleştirilmemesi durumunda sayfaların gizli kalmasını öğretmektedir.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
HideSheets
End Sub
Private Sub Workbook_Open()
UnhideSheets
End Sub
Private Sub HideSheets()
Dim sht As Object
Application.ScreenUpdating = False
ThisWorkbook.Sheets("Macros Disabled").Visible = xlSheetVisible
For Each sht In ThisWorkbook.Sheets
If sht.Name <> "Macros Disabled" Then sht.Visible = xlSheetVeryHidden
Next sht
Application.ScreenUpdating = True
ThisWorkbook.Save
End Sub
Private Sub UnhideSheets()
Dim sht As Object
Application.ScreenUpdating = False
For Each sht In ThisWorkbook.Sheets
sht.Visible = xlSheetVisible
Next sht
ThisWorkbook.Sheets("Macros Disabled").Visible = xlSheetVeryHidden
Application.ScreenUpdating = True
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.
- Microsoft Excel Objects yazısının solundaki + simgesini tıklayın ve hangi sayfada deneme yapacaksanız, o sayfanın adının üstüne çift tıklayın.
- Üstteki kodu yapıştırın.
Kod Açıklaması
Bu kodları kullanarak olası makro etkinleştirmeme durumlarında görüntülenmesini istemediğiniz sayfaların gizlenmesini sağlayabilirsiniz. Kodlardaki sayfa isimlerini kendi sayfalarınıza göre uyarlamanız gereklidir.
Etiketler :
Hazır Dosyayı İndir
Dosyayı indirmek için giriş yapmanız ve VIP Üyelik Paketine sahip olmanız gerekir.
| YARARLI KISAYOLLAR | |
|---|---|
| Veri Doğrulama Penceresini Açma | Alt X VE V |
| Hücreyi Araya Yerleştirme | Shift Sürükle |
| Veri Aralığının En Altına Gitme | Ctrl ↓ |
| Sonraki Sayfaya Gitmek | Ctrl Page Down |
| Eğik Yazdırma | Ctrl T |