ต้องการให้ password ใน InputBox แสดงค่า "*****" แทนตัวอักษร

[natthaporn]

รบกวนสอบถามท่านผู้รู้แนะนำ code ในกรณีที่เรา key password "TEST" ให้แสดงค่า "****" แทน
ซึ่ง code ดังกล่าวด้านล่าง ดิฉันได้เข้าดูจาก web ต่าง ๆ แล้วนำมาประยุกต์ใช้กับงานของดิฉันคะ

Private Sub CommandButton2_Click()
Const pWord = "TEST"
Dim ws As Worksheet
'Prompt the user for a password and unhide the worksheet if correct
Select Case InputBox("Please enter the password to unhide the sheet", _
"Enter Password")

Case Is = pWord
For Each ws In Worksheets(Array("A", "B", "C", "D"))
ws.Visible = xlSheetVisible
Next ws
Case Else
MsgBox "Sorry, that password is incorrect!", _
vbCritical + vbOKOnly, "You are not authorized!"
End Select

End Sub

ขอบคุณมากคะ

[snasui]

การกำหนดดอกจันสำหรับ Password นั้นให้ใช้ TextBox วางบน UserForm แทนการใช้ InputBox เนื่องจากสามารถกำหนดได้ว่าให้แสดงตัวอักษรเป็นแบบ Password ในขณะที่ InputBox เราไม่สามารถกำหนดได้ครับ

[natthaporn]

ขอบคุณมากคะ จะทดลองใช้ดูคะ

[natthaporn]

ทดลองทำตามที่อาจารย์แนะนำแล้วคะ แต่ลอง run ดูแล้ว password ที่แสดงใน Textbox ที่อยู่ใน userform ก็ยังเป็นตัวอักษรเหมือนเดิม ไมได้โชว์ "***"
รบกวนอาจารย์ช่วยแนะนำด้วยคะ เพราะดิฉันยังไม่เก่งเรื่องการเขียน code เลยคะ เพิ่งจะเริ่มต้นศึกษาการเขียน code คะ
ขอบคุณคะ

[snasui]

แนบไฟล์ตัวอย่างมาด้วย จะได้สะดวกในการตอบครับ

[natthaporn]

ดิฉันได้ส่ง file แนบมาให้อาจารย์แล้วคะ โดยที่ดิฉันได้เปลี่ยนจาก Inputbox เป็น textbox ใน userform แล้ว โดยดิฉันได้สร้างปุ่ม Inputbox เพื่อเปิด userform ขี้นมาอีกขั้นตอนหนึ่ง
รบกวนอาจารย์ช่วยแนะนำด้วยคะ
ขอบคุณคะ

[snasui]

ผมลองกรอกดูก็เห็นเป็น Password แล้วตามภาพด้านล่างครับ

[natthaporn]

เวลาใส่ password เป็น "****" แล้วคะ แต่ดิฉันอยากจะรบกวนอาจารย์ช่วยแนะนำ เรื่อง code ที่ใช้ด้วยคะ
เพราะ code เดิมยังเป็น code ที่ใช้กับ Inputbox อยู่คะ
ขอบคุณคะ

[snasui]

ลองปรับ Code เดิมให้มาใช้กับ UserForm ก่อนแล้วแนบที่ติดปัญหามาถามกันครับ

[natthaporn]

เรียนอาจารย์ ดิฉันได้ลองปรับ code และเมื่อทดลอง run ดูแล้วได้ผลตามที่ต้องการ
แต่ยังมีปัญหาอยู่ตรงที่เมื่อ run เสร็จเรียบร้อยแล้ว curser ยังคงหมุนอยู่เรื่อย ๆ จนกว่า
ดิฉันจะเอา mouse click ไปที่ cell ใด cell หนึ่ง curser ถึงจะหยุดหมุน ดิฉันไม่แน่ใจว่า
ดิฉันใส่ code "unload me" ไม่ถูกที่หรือเปล่าคะ ดิฉันขอรบกวนขอคำแนะนำจากอาจารย์ด้วยคะ
ขอบคุณคะ

Private Sub CommandButton1_Click()
Dim ws As Worksheet
If Me.TextBox1.Value = "test" Then
For Each ws In Worksheets(Array("A", "B", "C"))
ws.Visible = xlSheetVisible
Next ws

For Each ws In Worksheets(Array("A", "B", "C"))
ws.Visible = xlSheetVeryHidden
Next ws
Unload Me
Else
MsgBox "Sorry, that password is incorrect!"
Unload Me
End If
End Sub

Private Sub CommandButton2_Click()
Dim ws As Worksheet
If Me.TextBox1.Value = "test" Then
For Each ws In Worksheets(Array("A", "B", "C"))
ws.Visible = xlSheetVisible
Next ws
Unload Me
Else
MsgBox "Sorry, that password is incorrect!"
Unload Me
End If
End Sub

[snasui]

ผมทดสอบแล้วไม่พบปัญหาใดครับ

สำหรับการโพสต์ Code ให้แสดงเป็น Code เพื่อสะดวกในการอ่านดูที่นี่ครับ viewtopic.php?f=3&t=1187

[natthaporn]

ขอบคุณอาจารบย์มากคะ สำหรับคำแนะนำคะ