Snasui Excel Forum

Posted: **Wed Dec 19, 2012 7:57 am**

แก้ไขได้เฉพาะ B4:B7 นอกนั่นคลิ๊กที่ Cell ได้อย่างเดียว
หาข้อมูลในเน็ตเยอะมากยังไม่สามารถทำได้สั่งแล้วมันล๊อกหมดทั้งหน้า
ช่วยแนะนำหน่อยครับ

ตัวอย่าง คำสั่ง
ActiveSheet.Protect Password "motsx" มันล๊อกหมดทั้งหน้าเลย

Posted: **Wed Dec 19, 2012 10:17 am**

ควรแนบไฟล์มาด้วยเสมอครับ

สำหรับที่ถามมา ลองวิธีง่ายๆคือใช้โค๊ด

Code: Select all

ActiveSheet.Protect Password:="motsx"

จากนั้นคลุมทึบเซลล์ B4:B7 แล้วคลิ๊กขวา เลือก Format Cell จากนั้นไปที่หน้า Protection เอาเครื่องหมายถูกหน้าคำว่า Lock ออกไป

หรือลองปรับโค๊ดตามนี้

Code: Select all

Sub Macro1()
ActiveSheet.Unprotect Password:="motsx"
Worksheets("Sheet1").Range("B4:B7").Select
Selection.Locked = False
Selection.FormulaHidden = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.Protect Password:="motsx"
End Sub

Snasui Excel Forum

Protect Sheet โดยสามารถแก้ไข Allow user to edit ranges

Protect Sheet โดยสามารถแก้ไข Allow user to edit ranges

Re: Protect Sheet โดยสามารถแก้ไข Allow user to edit ranges