Multipage'in Sayfalarına Şifre Koymak & comboboxa userformdan veri ekleme

[First_Class]

Arkadaşlar öncelikle merhabalar hepinize kolay gelsin
2 sorum olacak

1ncisi Multipagein sayfalarına nasıl şifre konulabilir (3 sayfa)

2ncisi ise combobox kullandığım listeme userform içinde bi kayıt yaptığım zaman comboboxta görünmesini nasıl sağlayabiliriz. Örn: Firma isimlerini combobox RowSource metodu ile liste alıyorum. Bu listeye userformdan ekleme yapıyorum ama userformu kapatıp açana kadar comboboxa eklenmiyor

 

[NBATMAN]

cevap

2.soru için şunu denermisiniz ?

Private Sub Userform1_Initialize()
ComboBox1.RowSource = "sayfa1!a1:a65536"
End sub

Kırmızı ile işaretli yerleri siz kendi nesne ve sayfa ve aralığa göre uyarlayınız.

 

[First_Class]

2inci sorumu Liste Kaynağımı Firma Eklediğim Butonun Altına Yazarak Çözdüm.

Yalnız İlk sorumu hala çözemedim bilen bi kişi yokmu arkadaşlar multipagein sayfalarına şifre koymak istiyorum. nasıl yapabilirim?

 

[halit3]

burada MultiPage birinci penceresinde durursa şifre isteyecektir şifre yanlış olursa diğer pencereler açılmıyacaktır.aşağıdaki kodu denermisiniz. şifre 123

Private Sub MultiPage1_Click(ByVal Index As Long)
yer = MultiPage1.Pages(Index).Caption
If (Index) <> 0 Then
yer = InputBox("Şifreyi giriniz.", "mesaj kutusu", "Şifreyi giriniz.", , , "", 10)
If yer <> 123 Then
MultiPage1.Value = 0
MsgBox "Şifre yanlış"
End If
End If
End Sub
Private Sub UserForm_Activate()
MultiPage1.Value = 0
End Sub