textbox değerinin değiştirilen değer olarak kalması

[muratti60]

merhabalar;
ekteki dosya şifre olarak textbox2 deki veriyi girdiğimde açılıyor, fakat şifre değiştir dediğimde ve yeni şifreyi onayladığımda userform1 deki textbox2 deki değer
otomatik olarak değişiyor ve yeni oluşturulan şifreyle giriş yapılıyor. Buraya kadar herşey normal, fakat dosyayı açıp herhangibir işlem yapıp veya yapmayıp kaydedip çıktıktan sonra, tekrar açtığımda textbox2de yine ilk baştaki şifreyi görüyorum. Benim orda değiştirdiğim şifre olması lazım ve benim onunla giriş yapmam lazım.
Bunu halledebilirsem userform1 i alttaki textbox görünmeyecek şekilde boyutunu küçültüp kullanacağım çünkü.
Şimdiden teşekkür ederim.

 

[Orion1]

Şifreyi bir hücreye yazdırın.Orada o zaman değiştirebilirsiniz.

 

[muratti60]

Açılışta application kapali olarak geliyo o yuzden cekmiyo sanırım. Textbox degerini sheets(sayfa1! "a1") seklindemi yazmamiz gerekiyo. Sayfa ismi ve hucreyi temsili olarak yazdim

 

[Orion1]

Aşağıdaki gibi.

sheets("sayfa1").range("a1").value

 

[muratti60]

öncelikle sadece userform1 deki giriş butonuna dediğiniz kodu ekledim ve excel sayfamdaki a1 hücresine yazmış olduğum şifreyi textboxıma yazdım, yanlız şöyle bir durum var eğer a1 hücresine harf rakam karışık yada sadece harf girersem problem yok ama sadece rakam girersem kabul etmiyor, dosyayı ekte gönderiyorum şifre aa kontrol edebilirmisiniz.

 

[muratti60]

cevap verebilecek kimse yokmu acaba rica etsem bakabilirmisiniz teşekkürler...

 

[Ömer]

Merhaba,

CommandButton1_Click kodlarını aşağıdakilerle değiştirip deneyiniz.

Private Sub CommandButton1_Click()
Dim d
If IsNumeric(Sheets("ANA MENÜ").Range("a1").Value) = True Then
    d = CDbl(TextBox1.Value)
Else
    d = TextBox1.Value
End If
If Sheets("ANA MENÜ").Range("a1").Value = d Then
Application.Visible = True
Worksheets("ANA MENÜ").Activate
UserForm1.Hide
Else
If TextBox1 = "" Then
MsgBox ("Lütfen şifyeri giriniz..."), , ("DİKKAT")
TextBox1.SetFocus
Else
MsgBox ("Lütfen şifrenizi kontrol ediniz..."), , ("DİKKAT")
TextBox1.Value = ""
TextBox1.SetFocus
End If
End If
End Sub