Makro Etkinletirilmezse Sayfalar Gizlenir
21 Nisan 2021
25 Nisan 2021
1064
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 | |
|---|---|
| Hücre Biçimlendirme Yazı Tipi Sekmesini Açma | Ctrl Shift F |
| Özel Yapıştır Penceresini Açma | Ctrl Alt V |
| Bir Ekran Sağa Git | Alt PgDn |
| Üstü Çizgili Yazdırma | Ctrl 5 |
| Sayfayı Sağa Sola Taşıma | Alt Sürükle |