Başka Dosyada Şifreli Userform Oluşturmak
26 Aralık 2020
26 Aralık 2020
922
Başka Dosyada Şifreli Userform Oluşturmak 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 SubGerekli Adımlar
Kodu çalıştırmanız için aşağıdaki adımları yerine getirmeniz gerekir.
- 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 eklenecek gelecek olan Module(1) yazısına çift tıklayın.
- Üstteki kodu yapıştırın.
| YARARLI KISAYOLLAR | |
|---|---|
| Bitişik Olmayan Hücrelerde Sola Gitme | Ctrl Alt ← |
| Filtre Ekleme/Kaldırma | Ctrl Shift L |
| Üstteki Veriyi Kopyalama | Ctrl D |
| Tablonun Sütununu Seçme | Ctrl Space |
| Bitiş Modunu Açma | End |