Snasui Excel Forum

รบกวนสอบถามท่านผู้รู้แนะนำ 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

ขอบคุณมากคะ

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

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

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

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

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

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

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

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

เรียนอาจารย์ ดิฉันได้ลองปรับ 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

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

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

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