Snasui Excel Forum

Posted: **Sat Feb 02, 2013 9:20 am**

สวัสดีครับ วันนี้ผมมีปัญหาเรื่องอยู่ว่า ผมมีไฟล์ ที่ประกอบด้วยหลายชี้ต ผมขอยกตัวอย่างชี้ตชื่อว่า 16040_3 แล้วกันเพื่อให้เข้าใจง่ายๆ
ปัญหาคือ ผมอยากให้มันล้อค ช่วง J1:J500 หรือตามที่เรากำหนดโดยที่ให้เซลล์อื่นทำงานได้ตามปกติ โดยมีเงื่อนไขว่าในช่อง I ปกติจะให้นับจำนวนสินค้าถ้าเกิน 400000 จะขึ้นจำนวนเลข 1 2 3 4 5 6 7 รันไปเรื่อยๆ และ ช่อง J จะถูกคลิกว่า Done PM และมีการส่งเมล์ด้วย แต่ปัญหาคือ อยากสงวนช่อง J ไว้สำหรับช่างซ่อมเครื่องเท่านั้น ที่มาคลิกได้ว่าจะ Done PM หรือไม่ ไม่อยากให้พนักงานคนอื่นที่ไม่ใช่ช่างซ่อมเข้าใช้
แต่พอผมใช้คำสั่งข้างล่างนี้ มันกลับบล้อคทั้ชี้ต เลย ปัญหาคือพนักงานคนอื่นก็ทำงานในชี้ตนี้ไม่ได้ ผมควรแก้ไขโค้ดเป็นอะไรดี ผมพยายามมาหลายวันแล้ว ขอความกรุณาด้วยครับ
พาสเวอรด คือ template นะครับ

Code: Select all

Sub ProtectSheet5()
Range("J11:J500").Select
ActiveWindow.ScrollRow = 6
Range("A3").Select
Worksheets("16040_03").Protect Password:="template"

End Sub[/clode]

Posted: **Sat Feb 02, 2013 12:17 pm**

เบื้องต้นยังไม่เข้าใจน่ะครับ เดี๋ยวรอท่านอื่นมาช่วยดูให้อีกทีครับ

Posted: **Sat Feb 02, 2013 12:24 pm**

ขอบคุณครับ ผมลองแล้วแต่ว่า มัน protect ทั้งชี้ต ผมอยากได้ protect เฉพาะช่วง ครับ แต่ว่าช่วงอื่นให้คนอื่นทำงานได้

Posted: **Sat Feb 02, 2013 1:36 pm**

Code: Select all

Sub ProtectSheet5()

On Error Resume Next
Cells.Locked = False
Range("J11:J500").Locked = True
Worksheets("16040_03").Protect Password:="template"

End Sub

ลองแบบนี้ดูครับ

Posted: **Sat Feb 02, 2013 3:06 pm**

ขอบคุณมากครับ ใช้ได้ดีเลย

Snasui Excel Forum

การ Protect ช่วงบางช่วงใน sheet ใส่ password

การ Protect ช่วงบางช่วงใน sheet ใส่ password

Re: การ Protect ช่วงบางช่วงใน sheet ใส่ password

Re: การ Protect ช่วงบางช่วงใน sheet ใส่ password

Re: การ Protect ช่วงบางช่วงใน sheet ใส่ password

Re: การ Protect ช่วงบางช่วงใน sheet ใส่ password