Excel Forum

เรียน สอบถามผู้รู้ ขอคำแนะนำหน่อยค่ะ
ตอนนี้ทำ Excel แล้วติดปัญหาเรื่องของการ Lock Cell หลายช่วง และ แต่ละช่วงก็ต่าง Password กัน
โดยใน Excel นี้ได้กำหนด Macro สำหรับบันทึกการขอซื้อของผู้ขอซื้อ พอกดปุ่มบันทึกข้อมูล จะได้ข้อมูลดังนี้

ข้อมูล Master Record
ข้อมูลผู้ขอซื้อ คลังสินค้า ผู้อนุมัติ จัดซื้อ
กรอกข้อมูลได้เฉพาะผู้ขอซื้อ กรอกข้อมูลไม่ได้ Lock กรอกข้อมูลไม่ได้ Lock กรอกข้อมูลไม่ได้ Lock

หลังจากกดปุ่มบันทึกข้อมูล
ข้อมูล AddRecord
ข้อมูลผู้ขอซื้อ คลังสินค้า ผู้อนุมัติ จัดซื้อ
แก้ไขได้เฉพาะจัดซื้อ รหัสคลังกรอกได้ต้องระบุPW ผู้อนุมัติกรอกได้ต้องระบุ PW จัดซื้อกรอกได้ต้องระบุ PW

รายละเอียดตัวอย่างแบบไฟล์แนบค่ะ
ขอบคุณคะ

เพิ่มเติมรูปที่เกิดปัญหา เหมือนว่าเงื่อนไขจะขัดแย้งกันเลยนะคะ
- อยากจะล๊อคข้อมูลของผู้ขอซื้อที่ได้บันทึกลงข้างล่าง ไม่ให้แก้ไขได้

การ Lock นอกจากจะกำหนดรหัสแต่ละพื้นที่แล้วต้องทำการ Protect Worksheet ด้วยจึงจะ Lock ได้ตามที่ต้องการ

ซึ่งควรแจ้งมาด้วยว่ารหัสสำหรับปลด Lock แต่ละพื้นที่คืออะไร จะได้ช่วยทดสอบได้

สำหรับการบันทึก Macro ในชีททีมีการ Lock ให้ทำดังนี้ครับ

1. ก่อนการบันทึกรายการให้ทำการปลดการ Protect Worksheet เสียก่อน
2. ทำการบันทึกรายการ
3. ทำการ Protect Worksheet กลับไปเช่นเดิม

ผู้ที่มีรหัสตามตำแหน่งที่เราให้แก้ไขก็จะแก้ไขได้ในพื้นที่ที่ได้รับอนุญาตเท่านั้น

ตามที่แนะนำสามารถทำการ AddRecord ตามช่วงได้แล้ว และ Lock Cell ข้อมูลการขอซื้อ ไม่ให้ทำการแก้ไขได้
แต่ติดปัญหาในช่องของการ Approve ไม่สามารถทำการ Lock Password ได้ ถ้าจะ Key ลง Cell นี้ต้องกรอกรหัส Password ก่อน
- Protect Sheet ไว้
- Add Macro -> UnProtect Sheet -> Copy MasterRecord -> วางในช่วงข้อมูล -> Lock Cell
- Protect Sheet ใหม่ -> Stop Record Macro

Password -> Protect Sheet 1111
Password -> Approve คลังสินค้า 1234

1. ทดสอบโปรแกรมสามารถ Add Record ได้ และไม่สามารถแก้ไขช่องนั้นได้
2. ช่อง Approve คลังสินค้าสามารถกรอกได้เลย (ทั้งๆ ที่ใส่ Password ไว้)
3. ติด Error VBA -> ว่า .EntireColumn.AutoFit
ต้องทำการแก้ไขอย่างไรคะ

เซลล์ทีทีเป็นการ Approve คือเซลล์ไหนครับ

Column K,L ค่ะ
Column K -> ให้คน Approve ระบุชื่อ
Column L -> จะปรากฎวันที่ให้ทันทีที่ช่อง K มีการกรอกข้อมูลนะคะ
ต้องการให้ Column K มีการร้องขอ Password ก่อนที่จะกรอกข้อมูลนะคะ
ทดลองทำหลายรอบมากเลยก็ยังคงไม่ร้องขอ Password
รบกวนแนะนำวิธีให้หน่อยนะคะ

ลองดูตามไฟล์แนบซึ่งผมได้ Clear ของเดิมแล้วตั้งใหม่เพื่อเป็นตัวอย่าง โดย Password สำหรับการแก้ไขใน L7:K8 คือ 12345

ทีสำคัญพื้นที่ใดที่ต้องการป้องกันให้คลิกพื้นที่นั้นแล้วเลือก Format Cells > ที่แถบ Protection กำหนดเป็น Locked

ทดลองทำตามคำแนะนำ
สามารถนำไปใช้งานได้ดีเลยค่ะ
ขอบคุณมากมากนะคะ