protect ทุก sheet แล้ว coode vba ไม่ทำตามที่บันทึก
Posted: Wed Feb 14, 2018 12:19 pm
สอบถามเรื่องการ recode marco ทุกชีทแล้ว แต่พอจะ run marco ที่ record ไว้ กลับไม่protect ทุกชีทให้ค่ะ ตามเอกสารแนบ ไม่ทราบว่าเป็นเพราะอะไรคะ
Snasui Excel Forum
คลังคำตอบแห่งความรู้จากคนไทย เพื่อโลกที่ต้องการเข้าใจในสิ่งเล็ก ๆ อย่างลึกซึ้ง
https://snasui.com/
protect ทุก sheet แล้ว coode vba ไม่ทำตามที่บันทึก
Page 1 of 1
Re: protect ทุก sheet แล้ว coode vba ไม่ทำตามที่บันทึก
Posted: Wed Feb 14, 2018 12:28 pm
ทดสอบแล้วก็ Protect ทุกชีทนะครับ แค่ไม่ได้ใส่ Pass word มีการปลดล็อคการป้องกันมาโครไว้หรือไม่ครับทำให้โค้ดไม่รัน
Re: protect ทุก sheet แล้ว coode vba ไม่ทำตามที่บันทึก
Posted: Wed Feb 14, 2018 1:29 pm
ลองrecord marco แล้ว ใส่passord ทุกชีท แต่พอจะรันแล้ว ทำไมใน code vba ไม่บันทึกการใส่ password ให้คะ และลองเลืือกทุแชีทใส่ passord procet sheet แต่ vba ไม่ให้ใส่ password ค่ะ ก้องงว่าทำไม ระะบบไม่ใส่ให้คะ
Re: protect ทุก sheet แล้ว coode vba ไม่ทำตามที่บันทึก
Posted: Wed Feb 14, 2018 1:36 pm
ในโค้ดไม่มีโค้ดไหน ที่แสดงถึงว่าให้ใส่โค้ดรหัสล็อคเลยครับ ต้องการให้รหัส ล็อคอยู่ในโค้ดหรือเปล่า หรืออยู่ที่หน้าชีทครับ
Re: protect ทุก sheet แล้ว coode vba ไม่ทำตามที่บันทึก
Posted: Wed Feb 14, 2018 2:12 pm
ไม่ได้เขียน code vba ขึ้นเองค่ะ ใช้วิธี record marco. ตอนที่บันทึก record marco ใส่ทุกชีทนะคะ แต่ทำไมพอเปิดดูในcode vba แล้ว codeไม่ใส่ password ให้ ถ้ทเป็นอย่างนี้ ต้อง edit เข้าไปแก้ตรงไหนคะให้ใส่ protect sheet ทุก sheet คะ
Re: protect ทุก sheet แล้ว coode vba ไม่ทำตามที่บันทึก
Posted: Wed Feb 14, 2018 2:17 pm
ลองปรับเป็นโค้ดนี้ดูครับว่าได้ไหม
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 SubRe: protect ทุก sheet แล้ว coode vba ไม่ทำตามที่บันทึก
Posted: Wed Feb 14, 2018 4:54 pm
ได้แล้วค่ะ ถามต่อนิดนึงค่ะ ถ้าจะบ 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
ขอบคุณค่ะ
และถ้าจะ 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
ขอบคุณค่ะ
Re: protect ทุก sheet แล้ว coode vba ไม่ทำตามที่บันทึก
Posted: Wed Feb 14, 2018 6:03 pm
ใช้่ซ่อนชีทหรือไม่ก็format cellเมื่อล็อคก็จะมองไม่เห็น ส่วนที่เลือกล็อคบางชีทต้องใช้แบบเดิม array เพิ่มแค่passwordครับ
Re: protect ทุก sheet แล้ว coode vba ไม่ทำตามที่บันทึก
Posted: Wed Feb 14, 2018 6:18 pm
ถ้าระบุชื่อ จะได้ไหมคะ เช่น Sheets("aaa","bbb",eee").Protect Password:=1234, DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlNoSelection
ActiveSheet.EnableSelection = xlNoSelection
Re: protect ทุก sheet แล้ว coode vba ไม่ทำตามที่บันทึก
Posted: Wed Feb 14, 2018 7:38 pm
ตัวอย่าง 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
Re: protect ทุก sheet แล้ว coode vba ไม่ทำตามที่บันทึก
Posted: Thu Feb 15, 2018 2:16 pm
อาจารย์คะ protect sheet ได้ แค่ sheet a sheet เดียวเองค่ะ
Re: protect ทุก sheet แล้ว coode vba ไม่ทำตามที่บันทึก
Posted: Thu Feb 15, 2018 4:49 pm
ผมลองรันแล้ว ได้ตามที่ Array ชีท นะครับ ถ้าไม่ได้ลองแนบไฟล์ตัวอย่างที่ว่าใส่โค้ดแล้วไม่ได้มาดูครับMarch201711 wrote: Thu Feb 15, 2018 2:16 pm อาจารย์คะ protect sheet ได้ แค่ sheet a sheet เดียวเองค่ะ
Re: protect ทุก sheet แล้ว coode vba ไม่ทำตามที่บันทึก
Posted: Thu Feb 15, 2018 5:06 pm
sheet aaa protect ได้แค่ชื่อเดียว ส่วนsheet bbb, ccc, ddd,eee เห็น formula ตรง cell D5 คะ
Re: protect ทุก sheet แล้ว coode vba ไม่ทำตามที่บันทึก
Posted: Thu Feb 15, 2018 5:54 pm
ตัวอย่างการปรับ Code ครับเดิม
ActiveSheet.EnableSelection = xlNoSelection เปลี่ยนเป็น a.EnableSelection = xlNoSelectionRe: protect ทุก sheet แล้ว coode vba ไม่ทำตามที่บันทึก
Posted: Thu Feb 15, 2018 6:02 pm
ค่ะ จะลองทำพรุ่งนี้ค่ะ ไม่ได้อยู่ตรงหน้าคอมแล้ว ได้ผลอย่างไรจะตอบกลับนะคะอาจารย์ ขอบคุณค่ะ
Re: protect ทุก sheet แล้ว coode vba ไม่ทำตามที่บันทึก
Posted: Fri Feb 16, 2018 12:13 pm
ได้แล้วค่ะ อาจารย์ ขอบคุณมากค่ะ