Dear Nurani, imho, input box tidak bisa dimodifikasi menjadi **** atau sejenisnya untuk input password, coba gunakan form dengan sebuah text box untuk media input password, lalu ubah nilai properti Password Characternya menjadi **** atau karakter lain yang diinginkan
cmiiw, -putri- 2015-06-03 15:39 GMT+07:00 [email protected] [belajar-excel] < [email protected]>: > > > 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 > >
