Butona basıldığında sayfayı açmak için şifre sorsun

[Mdemir63]

Selamlar,

Arkadaşlar dosyamda bir kaç tane buton var belirli sayfaları açan, örneğin VERİ sayfasını açan butona basıldığında o sayfa hemen açılmasın açılmak için şifre sorsun istiyorum böyle bir şey nasıl yapabilirim?


Saygılar

 

[Mdemir63]

Yönetici arkadaşların dikkatine

Yanlışlıkla aynı konu başlığı 2 tane oldu özür dilerim

Saygılar

 

[arifcell]

Safyaya Gecerken Soru

Sayfa 2 Ye Gecerken Soru Sorar
Cevap A Ise Gecersin Degilse Gecemezsin

 

[conari]

Basit olarak,sayfayı açmadan önce ilgili koda

Sub sifre()
i = InputBox("Şifre??")
On Error Resume Next
If i = "Conari" Then 'şifre tuttumu
Sheets("sayfa2").Select
Else
MsgBox ("Hatalı şifre")
End If
End Sub

 

[Mdemir63]

Arkadaşlar çok teşekkür ederim.

Saygılar

 

[Seyit Tiken]

Aşağıdaki kodu 2.sayfanın kod bölümüne yapıştırınız. Şifre, k harfidir.

Private Sub Worksheet_Activate()
a = InputBox("Şifre Giriniz")
If a = "k" Then Sayfa2.Select Else: Sayfa1.Select
End Sub

 

[Mdemir63]

Aşağıdaki kodu 2.sayfanın kod bölümüne yapıştırınız. Şifre, k harfidir.

Private Sub Worksheet_Activate()
a = InputBox("Şifre Giriniz")
If a = "k" Then Sayfa2.Select Else: Sayfa1.Select
End Sub

Hocam elinize sağlık teşekkürler, Birşey öğrenmek istiyorum hocam burada şifre k ancak inputbox açıldığında k yazdığımızda şifre girdiğimiz yerde harf gözükmese de * bu şekilde simge gözükse nasıl olur daha doğrusu olabilir mi?

Saygılar

 

[Orion1]

İnputBox'la olurmu bilmem ama bu dediğniz userformda textbox ile çok kolay olur.

 

[Mdemir63]

İnputBox'la olurmu bilmem ama bu dediğniz userformda textbox ile çok kolay olur.

Hocam merhaba
Eğer TextBox la oluyorsa Bilemiyorum ama İnputBox la da olabilir.

Saygılar

 

[Orion1]

Hocam merhaba
Eğer TextBox la oluyorsa Bilemiyorum ama İnputBox la da olabilir.

Saygılar

Merhaba.
Tetxbox'ın özelliklerinden PasswordChar'e * işaretini koyuyorsunuz ve işelm tamam.
Ama inputBox'ın böyle bir özelliği yok.
Ne olacak canım,bir tane userform koyun ve bir textbox koyun işi bitirin.
Hadi başlayın isterseniz.

 

[Mdemir63]

Okey hocam

Saygılar