Makro Etkinleştirilmeden Sayfalar Görüntülenmesin
21 Nisan 2021
25 Nisan 2021
1076
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 | |
|---|---|
| Yeni Sayfa Ekleme | Shift F11 |
| Hücreyi Yüzde Oranı Olarak Biçimlendirme | Ctrl Shift % |
| Seçimi Ekle veya Kaldır | Shift F8 |
| İlişkili Hücre Aralığı Seçimi Yapma | Ctrl Shift Boşluk |
| İşlem Yapılmış En Üst Hücreye Gitme | Ctrl Home |