Makro Etkinleştirilmeden Sayfalar Görüntülenmesin
21 Nisan 2021
25 Nisan 2021
1128
Makro Etkinleştirilmeden Sayfalar Görüntülenmesin kodu, kullanıcıları makroları etkinleştirmeye zorlamak için yazılmış örnek bir kod içermektedir.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Sayfa1").Visible = True
For Each Worksheet In ActiveWorkbook.Worksheets
If Worksheet.Name <> "Sayfa1" Then
Worksheet.Visible = False
End If
Next
ActiveWorkbook.Protect Password:="sifre", Structure:=True, Windows:=True
End Sub
Private Sub Workbook_Open()
ActiveWorkbook.Unprotect Password:="sifre"
ActiveWorkbook.Unprotect
For Each Worksheet In ActiveWorkbook.Worksheets
Worksheet.Visible = True
Next
Sheets("Sayfa1").Visible = False
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 BuÇalışmaKitabı kısmına çift tıklayın.
- Üstteki kodu yapıştırın.
Kod Açıklaması
Excel dosyalarınızı açtığınızda mutlaka makroların etkinleştirilmesini istiyorsanız, bu kodlar tam sizin işinize yarayacak niteliktedir.
Kodların çalışma mantığı şu şekildedir:
- Dosya kapatılırken sadece Sayfa1 isimli sayfa açık bırakılır ve diğer tüm sayfalar gizlenir.
- Açılışta makrolar etkinleştirilmişse, bu sefer Sayfa1 isimli kod gizlenir, diğer tüm sayfalar aktif edilir.
Etiketler :
Hazır Dosyayı İndir
Dosyayı indirmek için giriş yapmanız ve VIP Üyelik Paketine sahip olmanız gerekir.
| YARARLI KISAYOLLAR | |
|---|---|
| Bitişik Olmayan Hücrelerde Sola Gitme | Ctrl Alt ← |
| Kaydetme | Ctrl S |
| Anlık Sistem Saatini Yazma | Ctrl Shift : |
| Hücreyi Para Birimi Olarak Biçimlendirme | Ctrl Shift $ |
| Eğik Yazdırma / Alternatif | Ctrl 3 |