Snasui Excel Forum

Posted: **Thu Oct 27, 2016 10:22 am**

ในที่นี้รหัสผ่านใช้ 1975

Sub Lockok()
    ActiveSheet.Unprotect
End Sub

การปลดล๊อคแบบใส่รหัสผ่านเราต้องเพิ่มคำสั่งอะไรเข้าไปอีกครับ

Sub Unlockok()
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        False
End Sub

และการป้องกันงานถ้าเราล๊อค แต่ต้องการจะใส่รหัสผ่านด้วยต้องเพิ่มคำสั่งอะไรเข้าไปอีกครับ

Posted: **Thu Oct 27, 2016 6:54 pm**

ศึกษาจากระทู้นี้ครับ viewtopic.php?t=1506

Posted: **Thu Oct 27, 2016 8:59 pm**

snasui wrote: ศึกษาจากระทู้นี้ครับ snasui.com/viewtopic.php?t=1506

ขอบคุณครับ ทำได้แล้วครับ

การใช้มาโครป้องกันงานแบบใส่รหัสผ่าน