การกำหนดให้ผู้ใช้งานกรอกเฉพาะตัวอักษรลงใน Cell

[tigerwit]

สวัสดีครับ
มาขอความช่วยเหลืออีกครั้ง
ตามไฟล์ที่แนบมาครับ

1. Cell K9 Sheet Main ต้องการให้ผู้ใช้งานกรอกได้แค่ ก ข ค
2. Sheet Main ต้องการป้องกันไม่ใช้ผู้ใช้งานเลื่อนลงด้านล่างของ Sheet ด้วยการเลื่อนปุ่มกลาง ของเมาส์

ขอคำแนะนำด้วยครับ

[snasui]

ให้ทำการปลดการ Protect ก่อนแล้วทำตามภาพครับ

[tigerwit]

สวัสดีครับทำตามแล้วมารายงานผล
ข้อ 1. ได้ตามต้องการ
ข้อ 2. มีปัญหาครับ หลังจากล็อค ใช้ได้ สกอร์บาร์ไม่เลื่อน (ตอนที่ยังไม่ปิดไฟล์)
แต่หลังจากปิดไฟล์ลงไป แล้วเปิดไฟล์นั้นขึ้นมาใหม่ ที่ล็อคไว้ กลับมีปัญหา ไม่ล็อคครับ เลื่อนได้เฉยเลย

[snasui]

Excel ไม่จำค่าที่กำหนดให้ Lock พื้นที่ไว้ครับ หนทางที่ช่วยได้คือเขียน Code VBA ตามภาพด้านล่าง

แต่เครื่องที่จะมีผลคือได้กำหนด Security เป็น Medium หรือ Low เท่านั้นครับ วิธีกำหนด Security ให้ทำดังนี้ครับ

เข้าเมนู Tools > Macro > Security > กำหนดเป็น Medium หรือ Low หากกำหนดเป็น Medium โปรแกรมจะถามว่ายอมให้ใช้ Macro หรือไม่ ซึ่งต้องตอบรับว่ายอมให้ใช้ตอนที่เปิดไฟล์ขึ้นมาครับ ถ้าเลือกเป็น Low จะไม่มีการถาม

[tigerwit]

ขอบคุณครับ
ลองแล้วไม่ได้เหมือนเดิม
ผมพิมพ์โค๊ดผิดหรือเปล่าครับ

[snasui]

เนื่องจากต้อง Activate ถึงจะมีผลครับ เช่น คลิกไปที่ Sheet อื่นก่อนแล้วค่อยกลับมาคลิก Sheet Main

เพื่อให้มีผลตอนเปิดไฟล์ทุกครั้งสามารถเขียน Code ที่ ThisWorkbook โดย Copy Code ด้านล่างไปวางได้เลยครับ

Code: Select all

Private Sub Workbook_Open()
    Sheets("Main").ScrollArea = "A1:Q3"
End Sub

[tigerwit]

ได้แล้วครับ
ขอบคุณมากครับ