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

21 Nisan 2021 25 Nisan 2021 944

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
Başka Dosyada Şifreli Userform Oluşturmak
Tekrar Eden Verileri Farklı Sütunda Yazma
Kopyala ve Özel Yapıştır
Excel Alarm Kurma
Negatif Sayıları Vurgulama
Makro Çalışırken İmlecin Hareket Etmemesi
2. Derece Denklemin Grafiğini Çizmek
Seçili Alanda Yinelenenleri Vurgulama
Boş Hücreleri Vurgulama
Seçili Aralığa Ait Bilgilerin Listelenmesi
Excel Satır Seçme Kodu
Aç Penceresini Açan Makro
Son Sütun Numarasını Bulma
Birden Çok Satır Ekleme
Grafiği Görüntü Olarak Yapıştırma
Toplu Sütun Silme
Sayfada Alan Seçme ve Listeleme
Makro ile Dosya Açma
Excel Hücresini Seçme Makrosu
Tüm Sütunda İşlem Yapan Döngü
Seçimdeki Alternatif Satırları Vurgulama
Sayfadaki Kelime ve Sayı Adetlerini Bulma
Excel Üzerinden Klasör Açma Kodu
Sürücü Seri Numarasını Gösterme
Hesap Makinesini Açma
Makrolar ile Txt Dosya Silme
Aktif Sütuna Göre Diğer Sütunda İşlem
Birleştirilmiş Hücrelerin Başlangıç Bitiş Sütununu Belirleme
İki Sütundaki Değerleri Karşılaştırıp Ayrıştırma
Sayfadaki Grafikleri Yeniden Boyutlandırma
Sütun Genişliğini Ayarla
Makro ile Klasör Açma
Ekran Çözünürlüğünü Bulma
Boşluk Olan Hücreleri Renklendirme
Birleştirilmiş Tüm Hücreleri Ayırma
Txt Dosyası Oluşturma
Bir Sayfadaki Veriyi Diğer Sayfalara Kopyalama
Hücredeki Değere Göre İşlem Yapma
ListBox Üzerindeki Verilere Çoklu Seçim Yapma
Dördüncü Sütunda İşlem Yapılınca Çalışan Makro
Kes Kopyala ve Başka Çalışma Kitabına Yapıştır
Aktif Hücreye Açıklama Ekleme
Tam Dizin İsmini Bulma
Google Üzerinde Arama Yapma
Bir Aralıktaki Maksimum Değeri Renklendirme
Hücre İçerisine Kelime Ekleme
Aktif Hücrenin Üstüne Satır Ekleme
Excel Dosya Silme İşlemi Makrosu
Alfabenin Harflerini Sayfaya Sıralı Olarak Ekleme
Excel Seçenekleri Penceresini Açma

Daha önce yorum yapılmamış!

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