di excel ada 2 InputBox:
Fungsi InputBox, maupun Method
InputBox;
keduanya tidak menyediakan
cara untuk mengatur agar text input yg kita
masukkan menjadi password-character
(misal * atau # atau charater lain)
jadi pakailah saja
object TEXTBOX
TextBox mempunyai
property bernama PasswordChar yg valuenya dapat anda isi
dengan character pilihan
anda misal * atau $ atau # atau charakter lain untuk
menggantikan text yg sedang
diketikkan pada textbox tsb.
terlampir file anda yg
sudah di obok-obok dikitt ..
sehingga module userform
nya berisi code sbb:
Private Sub
UserForm_Activate()
ComboBox1.Enabled = True
TextBox1.Visible = False
TextBox1.PasswordChar = "*"
Label1.Visible =
False
CommandButton2.Visible = False
End Sub
Private Sub
CommandButton1_Click()
If
WorksheetFunction.CountIf(Sheet1.Range("ID"), ComboBox1.Value) > 0
Then
Label1.Visible =
True
TextBox1.Visible =
True
CommandButton2.Visible =
True
CommandButton1.Visible =
False
ComboBox1.Enabled =
False
TextBox1.SetFocus
Else
MsgBox "Nama Anda tidak ada dlm daftar
user.."
ComboBox1.ListIndex =
-1
End If
End Sub
Private Sub
CommandButton2_Click()
If TextBox1 = ""
Then
MsgBox "Anda belum memasukkan
password.."
TextBox1.SetFocus
Exit Sub
ElseIf TextBox1 = Sheet1.Range("ID").Cells(ComboBox1.ListIndex + 1, 2)
Then
MsgBox "Selamat bekerja"
Else
MsgBox "Maaf, anda tidak diijinkan untuk
masuk ke area ini"
End If
Unload Me
End Sub
