Soru MultiPage e ait sekmeyi makro ile "False" yapma

[xternet]

Merhaba Arkadaşlar,


Bazı konuları taratarak bulmak çok zor oluyor gerçekten. Bu konu daha önce soruldu mu bilemiyorum ama ben ulaşamadım.
UserForm üzerindeki bir MultiPage in bir sekmesini (örneğin ortadaki "YAZDIRMA (Page2)" sekmesini makro ile "False" durumuna getirebilir miyiz?
Herkese iyi çalışmalar..

 

[hamitcan]

Private Sub UserForm_Initialize()
    MultiPage1.Pages(1).Enabled = False
End Sub

 

[xternet]

If Sheets("METIN").Range("K16") = Sheets("METIN").Range("S80") Then MultiPage1.Page3.Enabled = False

If Sheets("METIN").Range("K16") = Sheets("METIN").Range("S81") Then MultiPage1.Page3.Enabled = True

Yukarıdaki şekilde ufak bir rutuşla (s ve parantez) sorunsuz çalıştı.
Çok teşekkürler Sayın hamitcan. Elinize, zihninize sağlık.

Müsadenizle yeni başlık açmadan bir şeyi daha sormak istiıorum.



VBA şifresinden dolayı bu ekranda düzenleme seçenekleri pasif.
Makro isimlerinin görünmesini ve çalıştırılmasını da engelleyebilir miyiz?

 

[1Al2Ver]

Merhaba,

Modülde kayıtlı makrolar için en üst satıra ,

Option Private Module

yazarak makro adının görülmemesini sağlıyorum,

Deneyin derim,

Kolay gelsin.

 

[xternet]

Merhaba,

Modülde kayıtlı makrolar için en üst satıra ,

Option Private Module

yazarak makro adının görülmemesini sağlıyorum,

Deneyin derim,

Kolay gelsin.

Dediğiniz gibi makro gizlendi ama, kısayol tuşu ile çalıştırdığım makroyu gizleyince kısayol tuşu çalışmadı.
Kodu bir butona atadım. O şekilde de çalışmadı.

Aslında burada amacım, sadece benim kullandığım bir kontrol panelini açmak için

Sub KONTROL_PANEL()
Option Private Module
UserForm_YKOC.Show 0
End Sub

şeklinde bir makrom var.
Kısayol tuşu ile ben çalıştırıyorum bu makroyu ve sadece benim kullanmak istediğim komutları içeren kontrol paneli açılıyor.
Bu makro kodu içerisine şifre ekleyebilirsek de aslında aynı iş görülmüş olur.
Makroyu keşfeden birisi çalıştırmak istese de şifre sorsun?
Bu nasıl olur acaba!

 

[xternet]

Sorumun son kısmını site içerisinde biraz daha araştırınca çözdüm arkadaşlar.
Makro kodu çalışmadan önce belirlediğim şifreyi çözüyor.

ŞİFRE = "12345"
cvp = InputBox("ŞİFRE GİRİNİZ", "FEDEAL")
If cvp = ŞİFRE Then
UserForm_YKOC.Show 0
Else
MsgBox "ŞİFRE YANLIŞ"
End If

Emek veren arkadaşlara teşekkürler.
İyi çalışmalar herkese.