Inputbox içine yazilan karakterler "*****" (password veya şifre karakterleri) şeklinde çikabilir mi? Hazır Excel Makroları (VBA) | Excel Programları

Makroyu Kopyala

'Excel Makro (VBA) online eğitimleri için: https://www.excelsizeyeter.com/excelsizeyeter.com/udemy_giris.php adresine tıklayınız. Bir eğitim alana bir eğitim bedavadır. İkinci eğitim olarak Excel, Excel pratik çözümler, finans eğitimleri vb. alabilirsiniz. 
 
Public MyPass '  Bu satir Modulün General_Declarations kisminda olucak (en üstte).
'
Sub MainProgram()
    '
    'Ana programin kodlari buralarda
    '
    '
    'Asagidaki satirla "*" karakterli sifre girme kutusunu çagiriyoruz
    '
    MyPasswBox
    '
    'Eger kullanici bir sifre girdiyse,
    'asagidaki satirlarda, kullanicinin girdigi sifreyi
    '"çiplak" olarak görüntülüyoruz.
    '
    'Sizin yapmaniz gereken If - End If satirlari arasinda
    'sifre kontrolunu yaptirip, kodlari çalismaniza göre yönlendirmek olucak
   
        If MyPass  "" Then
            MsgBox "Girilen sifre : " & MyPass
        End If
    '
    'Ana programin kodlarinin devami buralarda
    '
End Sub
'
Sub MyPasswBox()
    Dim PassWForm
    Set PassWForm = ThisWorkbook.VBProject.VBComponents.Add(3)
    PassWForm.properties("Width") = 200
    PassWForm.properties("Height") = 90
    Set NewTextBox = PassWForm.Designer.Controls.Add("forms.TextBox.1")
    PassWForm.properties("Caption") = "Sifre girisi !"
        With NewTextBox
            .Width = 120
            .Height = 18
            .Left = 8
            .Top = 20
            .PasswordChar = "*"
            .ForeColor = vbRed
        End With
    Set NewCommandButton1 = PassWForm.Designer.Controls.Add("forms.CommandButton.1")
        With NewCommandButton1
        .Caption = "Vazgeç"
        .Height = 18
        .Width = 50
        .Left = 140
        .Top = 18
        End With
    Set NewCommandButton2 = PassWForm.Designer.Controls.Add("forms.CommandButton.1")
        With NewCommandButton2
            .Caption = "Tamam"
            .Height = 18
            .Width = 50
            .Left = 140
            .Top = 42
        End With
        With PassWForm.CodeModule
            X = .CountOfLines
            .InsertLines X + 1, "Sub CommandButton1_Click()"
            .InsertLines X + 2, "Unload Me"
            .InsertLines X + 3, "End Sub"
            .InsertLines X + 4, "Sub CommandButton2_Click()"
            .InsertLines X + 5, "MyPass = TextBox1"
            .InsertLines X + 6, "Unload Me"
            .InsertLines X + 7, "End Sub"
            .InsertLines X + 8, "Sub UserForm_Activate()"
            .InsertLines X + 9, "Me.SpecialEffect=3"
            .InsertLines X + 10, "End Sub"
        End With
    VBA.UserForms.Add(PassWForm.Name).Show
    ThisWorkbook.VBProject.VBComponents.Remove VBComponent:=PassWForm
End Sub

Benzer Sonuçlar
No	Makro Adı
1	Inputbox içine yazilan karakterler "*****" (password veya şifre karakterleri) şeklinde çikabilir mi?
2	excel operatörleri hk
3	Tüm Çalışma Sayfalarını Hemen Koruyun: Tüm çalışma sayfalarınızı tek seferde korumak istiyorsanız, sizin için bir koddur. & Nbsp; Bu makroyu çalıştırdığınızda, bir şifre girmek için bir giriş kutusu bulacaksınız. Parolanızı girdikten sonra Tamamı tıklayın. Ve, CAPSye dikkat etmeyi unutma.
4	sayfa sekmelerine koruma atamak
5	yazdırma alanı seçme
6	dosyayı sizden başkası kaydetmesin
7	sayfalara şifre koymak
8	comboboxta değer seçmek
9	sayfa koruması nasıl kaldırılır
10	word sayfası olarak çıktı almak
11	commandbuton a şifre ekleme
12	kullanıcı adı ve parola eklemek
13	renkli hücreye şifreli giriş (sarı)
14	hareketsiz inputbox
15	veri değiştirirken uyarı alma
16	çalışma kitabına şifreli giriş
17	tüm kitabı şifreleleme-şifreyi siz verin
18	korumali sayfada makro çalişir mi?
19	userformu kilitlemek 3
20	uyan şartlara göre userform3teki commandbutton gizlensin.

Benzer Sonuçlar

Makro Adı

Inputbox içine yazilan karakterler "*****" (password veya şifre karakterleri) şeklinde çikabilir mi?

excel operatörleri hk

Tüm Çalışma Sayfalarını Hemen Koruyun: Tüm çalışma sayfalarınızı tek seferde korumak istiyorsanız, sizin için bir koddur. & Nbsp; Bu makroyu çalıştırdığınızda, bir şifre girmek için bir giriş kutusu bulacaksınız. Parolanızı girdikten sonra Tamamı tıklayın. Ve, CAPSye dikkat etmeyi unutma.

sayfa sekmelerine koruma atamak

yazdırma alanı seçme

dosyayı sizden başkası kaydetmesin

sayfalara şifre koymak

comboboxta değer seçmek

sayfa koruması nasıl kaldırılır

word sayfası olarak çıktı almak