Makro Etkinleştirilmeden Sayfaları Gösterme isimli içerikte, ilgili işlemin VBA kodları ile nasıl yapacağınızı öğreten bir Hazır Makro Kodu yer almaktadır.
[*]Microsoft Excel Objects yazısının solundaki + simgesini tıklayın ve BuÇalışmaKitabı kısmına çift tıklayın.
Kodların çalışma mantığı şu şekildedir:
[*]Microsoft Excel Objects yazısının solundaki + simgesini tıklayın ve BuÇalışmaKitabı kısmına çift tıklayın.
Hazır Kod
VBA:
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 SubAçıklama
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.
Sayfa1 isimli sayfayada "Dosyamızı kullanabilmek için Makroları Etkinleştirmeniz gerekir" tarzında bir uyarı mesajı koyup, kodları şifrelediğinizde; kullanıcılar mecburen makroların etkinleştirilmesine yönelik davranış içerisine girecektir. Özellikle makrolardan bihaber Excel kullanıcıları ile paylaşılan dosyalarda bu yöntemi kullanmak oldukça faydalı olacaktır.
Faydalanılması temennisiyle