Userform dan şifre kontrollü sheet erişimi

[nirvanarapeme]

Arkadaşlar aşağıdaki kodda şifre girildiğinde beni "TE" adlı sheet e yönlendirmesi gerekiiyor. Yani "TE" sheet erişimi userform üzerinden şifre kontrollü gerçekleşecek. Aşağıdaki bu kodda userform3 yazan yere "TE" sheet ini nasıl belirtmeliyim. . İyi çalışmalar


Private Sub CommandButton5_Click()
On Error GoTo hata
Dim deg As String
deg = InputBox("Lütfen Sifrenizi giriniz.")
If deg = 123456 Then
Unload Me
UserForm3.Show
Else
MsgBox "Sifreyi yanlis girdiniz.", vbInformation
End If
hata:
End Sub

 

[serqet]

Sheets("TE").Select

 

[nirvanarapeme]

Teşekkür ederim cevabınıza ama maalesef açılmıyor sorun nedir anlayamadım

 

[prmts]

Şifreleme olduğuna göre önce sayfa gizli olmalı. Thisworkbook kısmına kopyalayın excel açılırken sayfa gizlensin.

Private Sub Workbook_Open()
Sheets("te").Visible = xlSheetVeryHidden
End Sub

Sonrada sayfayı göstermeliyiz.

Private Sub CommandButton5_Click()
On Error GoTo hata
Dim deg As String
deg = InputBox("Lütfen Sifrenizi giriniz.")
If deg = 123456 Then
Unload Me

Sheets("te").Visible = xlSheetVisible

Else
MsgBox "Sifreyi yanlis girdiniz.", vbInformation
End If
hata:
End Sub

 

[numan şamil]

Arkadaşlar aşağıdaki kodda şifre girildiğinde beni "TE" adlı sheet e yönlendirmesi gerekiiyor. Yani "TE" sheet erişimi userform üzerinden şifre kontrollü gerçekleşecek. Aşağıdaki bu kodda userform3 yazan yere "TE" sheet ini nasıl belirtmeliyim. . İyi çalışmalar


Private Sub CommandButton5_Click()
On Error GoTo hata
Dim deg As String
deg = InputBox("Lütfen Sifrenizi giriniz.")
If deg = 123456 Then
Unload Me
UserForm3.Show
Else
MsgBox "Sifreyi yanlis girdiniz.", vbInformation
End If
hata:
End Sub

Merhaba
InputBox'a şifre yazıp "TE" sayfasına ulaşmak için
Kodlarınızı
Private Sub CommandButton5_Click()
On Error GoTo hata
Dim deg As String
deg = InputBox("Lütfen Sifrenizi giriniz.")
If deg = 123456 Then
Sheets("te").Select
Else
MsgBox "Sifreyi yanlis girdiniz.", vbInformation
End If
hata:
End Sub
Şeklinde denermisiniz

 

[numan şamil]

Pardon prmts
Affedersiniz
Sayın prmts 'nin müsadesiyle
Private Sub CommandButton5_Click()
On Error GoTo hata
Dim deg As String
deg = InputBox("Lütfen Sifrenizi giriniz.")
If deg = 123456 Then
Sheets("TE").Visible = xlSheetVisible
Sheets("TE").Select
Else
MsgBox "Sifreyi yanlis girdiniz.", vbInformation
End If
hata:
End Sub
Şeklinde olursa direk "TE" sayfasını açtıracaktır

 

[nirvanarapeme]

Arkadaşlar kodları girdim ancak sayfa açılmadı. Hazırladığım dosya ekte. İlgili commondbotton dosya açıldığında açılan userform un 3. sayfası olan "envanter sorgulama" adındaki kısımda. Bi bakabilirseniz çok sevinirim. teşekkürler

 

[numan şamil]

Arkadaşlar kodları girdim ancak sayfa açılmadı. Hazırladığım dosya ekte. İlgili commondbotton dosya açıldığında açılan userform un 3. sayfası olan "envanter sorgulama" adındaki kısımda. Bi bakabilirseniz çok sevinirim. teşekkürler

Merhaba
Dosyanız 2003 formatında olmadığı için dosyanız üzerinden uygulama yapmadım

Thisworkbook
Kod
Private Sub Workbook_Open()
Application.Visible = True
UserForm1.Show
Sheets("TE").Visible = xlSheetVeryHidden
End Sub
Şeklinde düzenleyiniz

Userform1 deki
Private Sub CommandButton5_Click()

On Error GoTo hata
Dim deg As String
deg = InputBox("Lütfen Sifrenizi giriniz.")
If deg = 123456 Then
'Unload Me
Sheets("TE").Visible = xlSheetVisible
Sheets("TE").Select

Else
MsgBox "Sifreyi yanlis girdiniz.", vbInformation
End If
hata:
End Sub
Unload Me kısmını pasif yapınız veya siliniz

Ekli dosyayı incelermisiniz

 

[nirvanarapeme]

Numan Bey teşekkürler. Yüklediğiniz Kitap1 dosyasında userform açılıyo şifreyi giriyorum formun arka fonunda TE adlı bir sayfa açılıyo ancak sorun şu ki userform kapanmıyo manuel kapatılınca da TE adlı sayfa tekrar gizli hale geçiyor. Benim aklımda tasarladığım şey; userform açılıp doğru şifre girildiğinde userformun kapanması ve TE adlı sayfanın açılmasıydı. Sorun nerede olabilir anlayamadım.

 

[numan şamil]

Numan Bey teşekkürler. Yüklediğiniz Kitap1 dosyasında userform açılıyo şifreyi giriyorum formun arka fonunda TE adlı bir sayfa açılıyo ancak sorun şu ki userform kapanmıyo manuel kapatılınca da TE adlı sayfa tekrar gizli hale geçiyor. Benim aklımda tasarladığım şey; userform açılıp doğru şifre girildiğinde userformun kapanması ve TE adlı sayfanın açılmasıydı. Sorun nerede olabilir anlayamadım.

Merhaba
Ekli dosyada
1) ThisWorkBook kod bölümü
2) UserForm1
3)Modüle1 Bölümlerindeki kodları incelermisiniz
Çalışma prensibi
Excel dosyasını açtığımızda çıkan UserForm Butona basıp şifre ile "TE" sayfasını seçeriz "TE" sayfası açılır açılmaz UserForum kapanacaktır "TE" sayfasında işlemimiz bittikten sonra sayfayı gizle düğmesine basıp sayfa gizlenmiş olur

Ben böyle bir yöntem düşündüm
İnşallah işinizi görür.

 

[numan şamil]

Merhaba
Buda "TE" sayfasında Butonsuz olanı Olmuşmu?

 

[nirvanarapeme]

Çok teşekkür ederim Numan Bey elinize sağlık

 

[numan şamil]

Çok teşekkür ederim Numan Bey elinize sağlık

Kolay gelsin

 

[nirvanarapeme]

Numan Bey bir sorum daha olacak size, yüklediğiniz Kitap1 dosyasında workbook kısmındaki kod şöyle;

Private Sub Workbook_Open()
Call sayfayıgızle
Application.Visible = True
UserForm1.Show
End Sub

Burada userformla birlikte excel sayfasının arka fonda görünmemesini sağlamak için True kısmını False yapıyorum ama o zaman da Commandbutton a şifreyi girdiğimde beni ilgili sayfaya yönlendirmiyor ve userform kapanıyor. Burada sorun ne olabilir