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
kilitiac butonun içeriği(komut27) aynen şöyle olsun;
GERİ SAYIM;Sen doğduğunda başladı ! Eğer (9) canlı bile olsaydın en fazla (8) kez kaçabilirdin Ölümden ! Bil ki (7) Düvele sultan dahi olsan yerin (6) Mekan olacak sana. En fazla (5) Metre kumaş götürebileceksin ! Kapatacaksın (4) açsanda gözlerini ! Bu (3) günlük fani dünyada Azraile (2) kat olup yalvarsanda nafile EceL geldiğinde (1) gün öleceksin ! İşte, o an herşey (0) dan başlayacak. Çünkü,
ÖLÜM BİR YOK OLUŞ DEĞİL,YENİDEN DOĞUŞTUR !
ÖLÜM BİR YOK OLUŞ DEĞİL,YENİDEN DOĞUŞTUR !