hücredeki değer şifre olsun

[zulfuernek]

aşağıdaki kodda commandbuttona bıraktığım şifre "3333"

ancak şifre sabit değilde "SYSTEM" sayfasındaki "A1" hücresindeki değer olmasını nasıl sağlarım

A1 deki değer değişirse şifrede yeni değer olsun. (şifre kaç haneliyse olurmu yoksa sabit 4 hanelimi olmalı?)



Private Sub CommandButton1_Click()
sifre = InputBox("Şifre Giriniz", "TÜM TL VERİLERİNİ TEMİZLE")
If sifre = 3333 Then

'TL FİZİKİ
TextBox1.Text = ""
TextBox2.Text = ""


Exit Sub
End If
End Sub

 

[hamitcan]

Private Sub CommandButton1_Click()
[COLOR=RED]sifre = Sheets("SYSTEM").[A1][/COLOR]
If sifre = 3333 Then

'TL FİZİKİ
TextBox1.Text = ""
TextBox2.Text = ""


Exit Sub
End If
End Sub

 

[AdemCan]

Merhaba;
If sifre = 3333 Then satırını şu şekilde değiştirirseniz SYSTEM sayfası A1 hücresindeki değeri Şifre olarak kullanabilirsiniz.
Not: Bu şekilde şifreniz;
- Harf, sayı, özel karakter içerebilir.

If sifre = Sheets("SYSTEM").Range("A1").Text Then

 

[zulfuernek]

faye hocam emeğine sağlık. bende yazdım aynı şekilde olmamıştı meğerse sonuna text ibaresini eklememiz gerekliymiş.

emeğine sağlık. teşekkür ederim bu önemli bilgi ve kombinasyon için.

 

[AdemCan]

Merhaba,
Rica ederim öğrendikçe paylaşmaya çalışıyorum. İyi çalışmalar.