อยากให้ inputbox password แสดงเป็น *****
Posted: Sun Mar 25, 2018 12:49 pm
Code: Select all
Sub Pass()
x = InputBox("กรุณาใส่รหัสผ่าน", "รหัสผ่าน")
If x = "jv123456" Then
MsgBox "รหัสผ่านถูกต้อง!"
Else
MsgBox "รหัสผ่านผิดพลาด"
End If
End Sub
รหัสผ่าน คือ jv123456
ตำแหน่งนี้ไม่สามารถกำหนดรูปแบบตัวอักษรได้ หากจะทำต้องทำผ่าน UserForm ครับ