Hello mr... Mr. bagaimana cara menghidden password di input box
 

 Private Sub CommandButton3_Click()
 'Tombol Edit
 Dim myCode As String
 myCode = InputBox("Please Insert your Password to Edit this Worksheet..", 
"Your Password")
 If StrPtr(myCode) = 0 Then  'Klik cancel atau close dialog (do nothing)
 ElseIf LenB(myCode) = 0 Then  'Not Fill -> press OK (do nothing)
 ElseIf myCode = "123" Then   'Fill 123 -> OK
 MsgBox "Good...your Password is Match", vbInformation, "Your Password"
 Sheet1.Unprotect ("123")
 CommandButton3.Enabled = False
 Else   'user mengisi suatu teks yang bukan berbunyi 123 lalu menekan OK
 MsgBox "Sorry...Your Password is not Match !!!" & vbCrLf & _
 "You Can not Edit this Worksheet", vbCritical, " Your Password"
 End If
 End Sub

 

Kirim email ke