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ı
- Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
- 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.
- Araç çubuklarından Insert -> Module yazısına tıklayın.
- Solunda klasör simgesi olan Modules yazısının başındaki + simgesine tıklayın.
- Alt kısma eklenen Module(1) yazısına çift tıklayın.
- Ü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.
GIPHY App Key not set. Please check settings