Snasui Excel Forum

snasui wrote: Wed Apr 14, 2021 2:13 pm มี Code เกี่ยวกับการจัดงานนี้หรือไม่ เขียนว่าอย่างไร

ลองเช็คว่าหากมีการเขียน ScreenUpdating = False เอาไว้แล้ว ก่อนที่จะออกจาก Sub ไม่ว่าจังหวะไหนจะต้องมี ScreenUpdating = True เสมอ เพื่อให้หน้าจอกลับคืนมาสู่สภาพเดิม ไม่เช่นนั้นจะเกิดภาพซ้อนขึ้นมาได้ครับ

Sub UnProtectAll()
On Error GoTo ErrorOccured
Dim pwd1 As String
Application.ScreenUpdating = False
pwd1 = InputBox("กรุณาใส่รหัสผ่าน")
If pwd1 = "" Then Exit Sub
For Each ws In Worksheets
ws.Unprotect Password:=pwd1
Next ws
Sheets("หน้าแรก").Select
Application.ScreenUpdating = True
Exit Sub
ErrorOccured:
MsgBox "รหัสผ่านผิดพลาด โปรดลองใหม่อีกครั้ง"
Exit Sub
End Sub

Sub UnProtectAll2()
Dim ws As Worksheet
Application.ScreenUpdating = False
For Each ws In ActiveWorkbook.Worksheets
ws.Unprotect Password:="1248"
Next ws
Application.ScreenUpdating = True
End Sub

yangkodza wrote: Wed Apr 14, 2021 4:28 pm

Code: Select all

Application.ScreenUpdating = False
pwd1 = InputBox("กรุณาใส่รหัสผ่าน")
If pwd1 = "" Then Exit Sub

snasui wrote: Wed Apr 14, 2021 4:54 pm จาก Code นี้

yangkodza wrote: Wed Apr 14, 2021 4:28 pm

Code: Select all

Application.ScreenUpdating = False
pwd1 = InputBox("กรุณาใส่รหัสผ่าน")
If pwd1 = "" Then Exit Sub

ก่อน Exit Sub จะต้องกำหนด ScreenUpdating = True ด้วยครับ