• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Koddaki hatayı Bulamıyorum

E

Ergün GÖKER

Katılım
25 Ağustos 2012
Mesajlar
562
Excel Vers. ve Dili
Office 2003
Değerli arkadaşlar herkese iyi akşamlar.
Bir çalışmamda kullanmak üzere bir userformdayken Parola sorarark bir sayfaya izinli giriş yapmak istiyorum. Kodda bir hata var bulamıyorum. yardım ederseniz sevinirim. Şimdiden teşekkür ederim.Dosyam ektedir
 
Son düzenleme:
Userformların Showmodel özellikleri farklı ondan hata veriyor.Propertiesten 2sininde showmodel özelliklerini ayni yapımınız.:cool:
 
Hocam bunu nereden aynı yapacağımı anlamadım. Kodu Başka bir örnekten kopyaladım.yardımcı olurmusunuz Lütfen
 
Hocam koda bakarbilirmisiniz. Yine bir hata alıyorum. Verlen şifre doğruysa ilgili excel sayfasına gidecek ve ilk userform kapanacak eğer şifre yanlışsa giriş yapmayacak ve ilk userformda kalacak. Kodu bu şekilde düzeltebilirmisiniz . Şimdiden teşekkürler
 
Aşağıdaki kırmızı satırı iptal ettim.
Çünkü commandbuttun11 yok.O yüzden hata veriyor.:cool:
Kod: 
Private Sub CommandButton1_Click()
If TextBox1.Text = "12345" Then
    Application.Visible = True
    [B][COLOR="Red"]'BABASAYFA.CommandButton11.Caption = " "[/COLOR][/B]
    Unload Me
    Unload BABASAYFA
    m = Empty
Else
  If m = Empty Then MsgBox "Yanlış şifre girişi! Bir hakkınız kaldı", vbCritical, "UYARI"
  TextBox1 = ""
    m = m + 1
    If m = 2 Then
    m = Empty
    Unload Me
    Unload BABASAYFA
Application.Visible = True
Application.Quit
ActiveWorkbook.Close Save = True
End If
End If
End Sub
 
Hocam önceki USERFORM da böyle bir kod olduğu için şifre doğru bile girilse userformu aşağıdaki koddan dolayı kapatamıyor. Parola koduna bir ekleme mi yapmamız gerekiyor.

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Cancel = 1
MsgBox " LÜTFEN ( X ) KAPATMAYA ÇALIŞMAYIN YOKSA KIRACAKSINIZ. ÇIKMAK İÇİN KAYDET ÇIK BUTONUNU KULLANINIZ.....
End Sub
 
ergungoker03' Alıntı:
Hocam önceki USERFORM da böyle bir kod olduğu için şifre doğru bile girilse userformu aşağıdaki koddan dolayı kapatamıyor. Parola koduna bir ekleme mi yapmamız gerekiyor.

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Cancel = 1
MsgBox " LÜTFEN ( X ) KAPATMAYA ÇALIŞMAYIN YOKSA KIRACAKSINIZ. ÇIKMAK İÇİN KAYDET ÇIK BUTONUNU KULLANINIZ.....
End Sub
Genişletmek için tıkla ...

O satırları silin.:cool:
 
Orion1' Alıntı:
O satırları silin.:cool:
Genişletmek için tıkla ...

Hocam bu satır diğer userformda bu diğer userformu x kapatmayı engellemek için koymuştum. Şöyle anlatayım. Ana userformda commandbutona bastığım zaman parola userformu açılıyor. Parolamı doğru girersem ilgili excel sayfası açılıyor ama anauserform kapanmıyor ve x işaretinden kapatmayın uyarısı çıkıyor. 2 ,nci huşu diyelim şifreyi yanlış girdim 2 defa sonra yine aynı uyarıyı alıyorum tamam dediğimde userformların tamamı kapanıyor.

Benim yapmak istediğim
1 şifre doğruysa userform kapanacak ve ilgili excel sayfası açılacak
2 şifre yanlışsa ne kadar firerseniz girin parola userformu kapanmayacak.
3 parola userformunu kapattığım zaman X den ana userformum açık duracak

umarım anlatabildim.
 
ergungoker03' Alıntı:
Hocam bu satır diğer userformda bu diğer userformu x kapatmayı engellemek için koymuştum. Şöyle anlatayım. Ana userformda commandbutona bastığım zaman parola userformu açılıyor. Parolamı doğru girersem ilgili excel sayfası açılıyor ama anauserform kapanmıyor ve x işaretinden kapatmayın uyarısı çıkıyor. 2 ,nci huşu diyelim şifreyi yanlış girdim 2 defa sonra yine aynı uyarıyı alıyorum tamam dediğimde userformların tamamı kapanıyor.

Benim yapmak istediğim
1 şifre doğruysa userform kapanacak ve ilgili excel sayfası açılacak
2 şifre yanlışsa ne kadar firerseniz girin parola userformu kapanmayacak.
3 parola userformunu kapattığım zaman X den ana userformum açık duracak

umarım anlatabildim.
Genişletmek için tıkla ...
Dosyanız ektedir.:cool:

DOSYAYI İNDİR

..
 
Hocam sizin sayfanızda kod çok güzel çalışıyor. Teşekkürler. Ancak benim çalışmamın içine uyarladığım zaman Yine hata veriyor. Benim çalışmamda BABASAYFA Userform x dan kapatılmaması için bir kod olduğu için Kodu doğru yazdıktan sonra X den kapatmayın uyarısı geliyor. Sorunum budur. Temawiaver versem kısa bir zaman ayırabilirmisiniz. İlginiz için çok teşekkür ederim.
 
ergungoker03' Alıntı:
Hocam sizin sayfanızda kod çok güzel çalışıyor. Teşekkürler. Ancak benim çalışmamın içine uyarladığım zaman Yine hata veriyor. Benim çalışmamda BABASAYFA Userform x dan kapatılmaması için bir kod olduğu için Kodu doğru yazdıktan sonra X den kapatmayın uyarısı geliyor. Sorunum budur. Temawiaver versem kısa bir zaman ayırabilirmisiniz. İlginiz için çok teşekkür ederim.
Genişletmek için tıkla ...

özelmesajda ıd yolladım.
 
ID yollayınız.:cool:
 
BABASAYFA userformun kod bölümündeki queryclose olayı aşağıdaki gibi olmalaıdır.:cool:
Kod: 
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If kapat = True Then
    Cancel = kapat
    MsgBox " LÜTFEN ( X ) KAPATMAYA ÇALIŞMAYIN YOKSA KIRACAKSINIZ. ÇIKMAK İÇİN KAYDET ÇIK BUTONUNU KULLANINIZ..... "
End If
End Sub
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst