Etiket: Excel UserForm Örnekleri

Transparan UserForm Oluşturma isimli makro kodu, UserForm nesnenizin transparan yani şeffaf olmasını sağlamaktadır. Private Declare Function FindWindow Lib “user32” Alias “FindWindowA” _ (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function GetWindowLong Lib “user32” Alias “GetWindowLongA” _ (ByVal hWnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetWindowLong…

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 =…