Makro Etkinleştirilmeden Sayfalar Görüntülenmesin

21 Nisan 2021 25 Nisan 2021 935

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 Sub

Gerekli Adımlar

Kodu çalıştırmanız için aşağıdaki adımları yerine getirmeniz gerekir.

  1. Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
  2. 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.
  3. Microsoft Excel Objects yazısının solundaki + simgesini tıklayın ve BuÇalışmaKitabı kısmına çift tıklayın.
  4. Ü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.
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.

Hazır Dosyayı İndir

Dosyayı indirmek için giriş yapmanız ve VIP Üyelik Paketine sahip olmanız gerekir.
50 Farklı Hazır Makro (VBA) Kodu
Sayılara Yeni Bir Sayı Ekleme
Makro ile Git Penceresini Açma
Aktif Çalışma Sayfası Korumasını Kaldırma
Şeffaf UserForm Oluşturma Kodu
Sayfadaki Grafikleri Yeniden Boyutlandırma
Excel Makroları ile Form Çağırma
Tekrarlayan Verileri Vurgulama
Bilgisayardaki Sürücü Sayısını Bulma
Sütunu Kes Kopyala ve Yapıştır
Excel Makroları ile Dosya Sayısını Bulma
Çalışma Sayfalarını Alfabetik Olarak Sıralama
Pivot Tablo Alt Toplamlarını Gizleme
UserForm Nesnesine Otomatik Buton Ekleme
Excel Hücresini Seçme Makrosu
Excel Üzerinden Klasör Açma Kodu
Excel Üzerinden Klasör Alma Kodu
Çalışma Sayfalarını Ayrı PDF Olarak Kaydetme
Tarih Değeri Yazarken Otomatik Ayraç Kullanımı
Seçili Aralığı PDF Olarak Kaydetme
Tüm Formülleri Değerlere Dönüştürme
Boş Hücreleri Vurgulama
Excel Kapanırken Otomatik İşlem Yaptırma
Çalışma Kitabını E-Posta Ekine Ekleme
Çalışma Kitabının Adını Tarih Olarak Kaydetme
Sütunda Yazılı Olanlardan Sayfa Adı Yapma
Dar Kenar Boşluğu Yazdırma
Her Bir Sütundaki Maksimum Değeri Bulma
C Klasörüne Sanal Dizin Oluşturma
Makro ile Web Sitesini Açmak
Aktif Hücrenin Sütun Numarasını Bulma
Formu Kapatma Makro Kodu
Hücre Aralığını Görüntüye Dönüştürme
R1C1 Referans Stilini Etkinleştirme
Negatif Sayıları Poztif Sayıya Çevirme
Çalışma Sayfasını Kaydetme
56 Koşula Kadar Biçimlendirme Yapma
UserForm Üzerinde Dört İşlem
Makrolar ile Klasör Oluşturma
Küp Kökünü Hesaplama
Sayfaların Seçilmesini Sağlama
PDF Dosyalarını Birleştirme
Çalışma Sayfalarını Tek Adımda Korumasını Kaldırma
Formül Bulunan Hücreleri Koruma ve Kilitleme
Dizinde Klasör Araması Yapma
Hatalı Hücreleri Renklendirme
Aktif Hücreye Açıklama Ekleme
Makro Çalışırken İmlecin Hareket Etmemesi
Açık Olan Tüm Excel Sayfalarını Kayıt Ederek Kapatma
Çalışma Kitabındaki Tüm Pivot Tabloları Yenileme
Özet Tablo Aralığını Otomatik Güncelleştirme

Daha önce yorum yapılmamış!

Backlink Reklam Bu alanda 50 karakterlik açıklama ile web sitenize ait Backlink Reklam yayınlayabilirsiniz.
Yükleniyor...