Başka Dosyada Şifreli Userform Oluşturma

Başka Dosyada Şifreli Userform Oluşturma isimli kod ile, farklı bir Excel dosyası üzerinde kolayca şifreli UserForm oluşturabilirsiniz.

Public MyPass

Sub MainProgram()  
    MyPasswBox    
    If MyPass <> "" Then
        MsgBox "Girilen sifre : " & MyPass
    End If
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

Başka Dosyada Şifreli Userform Oluşturma Uygulama Adımları

  1. Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
  2. Project – VBAProject alanının, ekranın sol tarafında görüldüğünden emin olun. Görünmüyorsa, Ctrl + R kısayolu ile hızlıca açın.
  3. Araç çubuklarından Insert -> Module yazısına tıklayın.
  4. Solunda klasör simgesi olan Modules yazısının başındaki + simgesine tıklayın.
  5. Alt kısma eklenen Module(1) yazısına çift tıklayın.
  6. Üstteki kodu yapıştırın.

Kod Açıklaması

UserForm, Excel Visual Basic pencerelerinden erişilen ve tamamen sizin tasarım yeteneğinizle geliştirebileceğiniz nesnelerdir. Bu nesnenin desteklediği diğer nesneler ile, eşsiz formlar tasarlayabilir, Excel dosyalarınızı formlar üzerinden yönetebilirsiniz.

Daha Fazla Göster

Bir yanıt yazın

E-posta adresiniz yayınlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir

Başa dön tuşu