![Çözüldü](images/icons/cozuldu.png)
arkadaşlar öncelikle hepinize selam ve saygılar sunuyorum.ekde gönderdiğim örnekte formdaki "KİLİDİ ÇÖZ" butonunun sadece belirlenen bir şifre ile açılabilmesini istiyorum. Şimdiden herkese teşekkür eder saygılar sunarım.
Private Sub Komut27_Click()
Dim sifre, c As String
sifre = InputBox("Düzenleme Şifresini Giriniz", "Düzenleme Şifresi:[alper]")
If sifre = "alper" Or sif = "ALPER" Then
Kimlik.Enabled = True
FATURA_NO.Enabled = True
TARİH.Enabled = True
TUTAR.Enabled = True
KDV.Enabled = True
TOPLAM.Enabled = True
AÇIKLAMA.Enabled = True
FİRMA_İSMİ.Enabled = True
Else
c = MsgBox("Hatalı Şifre Girdiniz.", 64, "Hatalı Şifre Girişi")
End If
End Sub