Microsoft Office Excel ® Kod Kılavuzu

Microsoft Office Excel® Code Guide

20 Ocak 2007 Cumartesi

Encyrption




'UserForm1

'AddTools on UserForm1: Image1, Label1, Label2, Label3, Label4, TextBox1, TextBox2, CommandButton1, CommandButton2
Option Explicit
Dim Veri As String
Private Const Tuş As Long = 215
Dim Yazılan() As Byte
Dim i As Long

Private Sub UserForm_Initialize()
On Error Resume Next
Me.Caption = "[PBİD®] Encyrption"
Application.Visible = False
Application.VBE.MainWindow.Visible = False
With TextBox1
.PasswordChar = "*"
.Text = "[PBİD®] Encyrption"
End With
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
On Error Resume Next
Application.Visible = True
Application.VBE.MainWindow.Visible = True
End Sub
Private Sub CommandButton1_Click()
On Error Resume Next
Veri = VBA.CStr(TextBox1.Text)
If (Veri <> VBA.CStr(False)) And (VBA.Len(Veri) > 0) Then
TuşDeğerininGörünürlüğü Veri
TextBox2.Text = Veri
Else
Veri = VBA.vbNullString
TextBox2.Text = Veri
End If
End Sub
Private Sub CommandButton2_Click()
On Error Resume Next
If (VBA.Len(Veri) > 0) Then
TuşDeğerininGörünürlüğü Veri
TextBox2.Text = Veri
Else
MsgBox "Hatalı veri girişi." & vbCrLf & vbCrLf & "Mustafa ULUSARAÇ 01ulusarac@superonline.com", vbExclamation, "[PBİD®] Encryption"
End If
End Sub
Private Sub TuşDeğerininGörünürlüğü(ByRef Veri As String)
On Error Resume Next
Yazılan = Veri
For i = LBound(Yazılan) To UBound(Yazılan)
Yazılan(i) = Yazılan(i) Xor Tuş
Next i
Veri = Yazılan
End Sub

Hiç yorum yok:

Blog Arşivi

Bu gadget'ta bir hata oluştu

Bu Blogda Ara

Contributor

Contributor
Mustafa ULUSARAÇ İstanbul, TÜRKİYE
free counters
T. C. Central Bank Indicative Exchange Rates
Currency Exchange Rate Widget,Currency Converter Widget
Borsa İstanbul