ป้องกันผู้ใช้ปิด Excel ด้วย Password

ท่านที่ใช้ Excel เป็น SCADA อยู่อาจกลัวว่าจะมีคนมาปิด Excel ที่เปิดทิ้งไว้ซึ่งจะทำให้การทำงานเช่นเก็บค่าข้อมูลต้องขาดช่วงไป วันนี้ผมมีวิธีง่าย ๆ มาฝากครับ

ก่อนอื่นเปิด Excel ขึ้นมา แล้วเข้าหน้าโค้ด VBA โดยกดปุ่ม Alt + F11
จากนั้นดับเบิ้ลคลิ้กที่ ThisWorkbook แล้วเลือก Workbook / BeforeClose จากรายการดังรูป

image

เขียนโค้ด (ก็อปปี้ไปก็ได้ครับ) ดังนี้

Dim pw As String

pw = InputBox("Password", "Please insert pasword")

If pw = "12345" Then

Else
    Cancel = True
End If

จากโค้ดตัวอย่างเป็นการกำหนด password คือ 12345 ให้ Excel

 

ทดสอบใช้งานโดยกลับมาหน้า Excel จากนั้น Save As เป็นไฟล์แบบ Macro enable (นามสกุล xlsm) จากนั้นทดสอบปิด Excel จะมีหน้าต่างถามหารหัสผ่าน

image

ถ้ารหัสผ่านไม่มช่ 12345 ก็จะปิดหน้านี้ไม่ได้

อย่างน้อยก็ช่วยกรณีผู้ใช้เผลอมาปิดหน้า Excel นี้ครับ

Advertisements
This entry was posted in Uncategorized. Bookmark the permalink.

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s