Şifre girilmeden butonlar aktif olmasın

[alptun20]

Arkadaşlar kitabım açıldığında, Giriş butonu haricindeki diğer butonların pasif olmasını, giriş butonuna basıncada kullanıcı adı (3-4 Kişi) ve şifre ekranı gelmesini ve şifre girildikten sonra butonların aktif hale gelmesini sağlayabilirmiyiz. Örnek dosyayı özel nedenlerden dolayı yükleyemiyorum. Saygılarımla..

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki linkteki konuları incelermisiniz.

http://www.excel.web.tr/forumdisplay.php?f=129

 

[turk-x]

S.A.
Sayın alptun20;
Sizin için örnek bir dosya hazırladım.
Umarım işinizi görür.

 

[kayserciyes]

üstadım ekdeki dosyayı makroya tek tek yazarak değilde
dosyanın içindeki bir sutuna ğirilmiş şifreleri kabul edecek şekilde düzenleye bilirmisiniz
bu dosyayıda brdan indirdim

şifresi : 41

teşekkür ediyorum

 

[kayserciyes]

üstad ekdeki dosyaya baka bilirsen sevinirim
çok uğraştıracak birşayse kalsın ama

 

[cansuyerlikaya]

evet bu dosyayı sormuştum bende şifreyi sayfadan alsın diye

 

[turk-x]

S.A:

userformdaki CommandButton10_Click (Giriş Butonu Kodu) kodunu aşağıdaki şekilde değiştirin.

Sayfa2 A2 hücresinden şifreyi alacaktır. Siz bu kısmı kendinize göre değiştirirsiniz.

Private Sub CommandButton10_Click()
sifre = Sheets("Sayfa2").Range("A2")
If TextBox1.Text = sifre Then
    Unload Me
    Application.Visible = True
MsgBox "PROGRAMA GİRİŞİNİZ ONAYLANMIŞTIR.", vbInformation, "                   SECURİTY"
Else
MsgBox " Gecersiz sifre!", vbCritical, " security© 2008 "
TextBox1.Text = ""
TextBox1.SetFocus
End If
End Sub