protect ทุก sheet แล้ว coode vba ไม่ทำตามที่บันทึก

[March201711]

สอบถามเรื่องการ recode marco ทุกชีทแล้ว แต่พอจะ run marco ที่ record ไว้ กลับไม่protect ทุกชีทให้ค่ะ ตามเอกสารแนบ ไม่ทราบว่าเป็นเพราะอะไรคะ

[puriwutpokin]

ทดสอบแล้วก็ Protect ทุกชีทนะครับ แค่ไม่ได้ใส่ Pass word มีการปลดล็อคการป้องกันมาโครไว้หรือไม่ครับทำให้โค้ดไม่รัน

[March201711]

ลองrecord marco แล้ว ใส่passord ทุกชีท แต่พอจะรันแล้ว ทำไมใน code vba ไม่บันทึกการใส่ password ให้คะ และลองเลืือกทุแชีทใส่ passord procet sheet แต่ vba ไม่ให้ใส่ password ค่ะ ก้องงว่าทำไม ระะบบไม่ใส่ให้คะ

[puriwutpokin]

ในโค้ดไม่มีโค้ดไหน ที่แสดงถึงว่าให้ใส่โค้ดรหัสล็อคเลยครับ ต้องการให้รหัส ล็อคอยู่ในโค้ดหรือเปล่า หรืออยู่ที่หน้าชีทครับ

[March201711]

ไม่ได้เขียน code vba ขึ้นเองค่ะ ใช้วิธี record marco. ตอนที่บันทึก record marco ใส่ทุกชีทนะคะ แต่ทำไมพอเปิดดูในcode vba แล้ว codeไม่ใส่ password ให้ ถ้ทเป็นอย่างนี้ ต้อง edit เข้าไปแก้ตรงไหนคะให้ใส่ protect sheet ทุก sheet คะ

[puriwutpokin]

ลองปรับเป็นโค้ดนี้ดูครับว่าได้ไหม

Code: Select all

Sub Protect_allSheet()
For i = 1 To Sheets.Count
Sheets(i).Protect Password:=1234, DrawingObjects:=True, Contents:=True, Scenarios:=True
Next i
End Sub

[March201711]

ได้แล้วค่ะ ถามต่อนิดนึงค่ะ ถ้าจะบ protect sheet แบบ ไม่สามารถดูข้อมูลใน cell ได้เลย เช่น sheet aaa ค่ะ ต้องแก้ตรงไหนบ้างคะ
และถ้าจะ protect เฉพาะบาง sheet เช่น sheet aaa, bbb, eee เท่านั้น ต้องปรับเปลี่ยนอย่างไรบ้างคะ

code
For i = 1 To Sheets.Count
Sheets(i).Protect Password:=1234, DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlNoSelection
Next i

ขอบคุณค่ะ

[puriwutpokin]

ใช้่ซ่อนชีทหรือไม่ก็format cellเมื่อล็อคก็จะมองไม่เห็น ส่วนที่เลือกล็อคบางชีทต้องใช้แบบเดิม array เพิ่มแค่passwordครับ

[March201711]

ถ้าระบุชื่อ จะได้ไหมคะ เช่น Sheets("aaa","bbb",eee").Protect Password:=1234, DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlNoSelection

[snasui]

ตัวอย่าง Code ครับ

Code: Select all

Dim a As Worksheet
For Each a In Worksheets(Array("aaa", "bbb", "ccc"))
    a.Protect Password:=1234, DrawingObjects:=True, Contents:=True, Scenarios:=True
    ActiveSheet.EnableSelection = xlNoSelection
Next a

[March201711]

อาจารย์คะ protect sheet ได้ แค่ sheet a sheet เดียวเองค่ะ

[puriwutpokin]

อาจารย์คะ protect sheet ได้ แค่ sheet a sheet เดียวเองค่ะ

ผมลองรันแล้ว ได้ตามที่ Array ชีท นะครับ ถ้าไม่ได้ลองแนบไฟล์ตัวอย่างที่ว่าใส่โค้ดแล้วไม่ได้มาดูครับ

[March201711]

sheet aaa protect ได้แค่ชื่อเดียว ส่วนsheet bbb, ccc, ddd,eee เห็น formula ตรง cell D5 คะ

[snasui]

ตัวอย่างการปรับ Code ครับ

เดิม ActiveSheet.EnableSelection = xlNoSelection เปลี่ยนเป็น a.EnableSelection = xlNoSelection

[March201711]

ค่ะ จะลองทำพรุ่งนี้ค่ะ ไม่ได้อยู่ตรงหน้าคอมแล้ว ได้ผลอย่างไรจะตอบกลับนะคะอาจารย์ ขอบคุณค่ะ

[March201711]

ได้แล้วค่ะ อาจารย์ ขอบคุณมากค่ะ