EXCEL TOOLS
Excel Add-ins ที่พัฒนาโดยคุณสันติพงศ์ ณสุย (MVP Excel 2010-2020) ด้วยภาษา C# เพื่อแก้ไขปัญหาไฟล์ใหญ่ คำนวณนาน ทำงานช้า จัดการข้อมูลต่าง ๆ ที่ทำงานประจำวันได้อย่างสะดวกรวดเร็ว สนใจคลิกไปดูได้ที่นี่ครับ => Excel Tools
Excel Add-ins ที่พัฒนาโดยคุณสันติพงศ์ ณสุย (MVP Excel 2010-2020) ด้วยภาษา C# เพื่อแก้ไขปัญหาไฟล์ใหญ่ คำนวณนาน ทำงานช้า จัดการข้อมูลต่าง ๆ ที่ทำงานประจำวันได้อย่างสะดวกรวดเร็ว สนใจคลิกไปดูได้ที่นี่ครับ => Excel Tools
[code]
และปิดด้วย [/code]
ตัวอย่างเช่น [code]dim r as range[/code]
เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)Code: Select all
Sub Macro1()
Sheets(Array("2", "3", "4")).Select
Sheets("2").Activate
ActiveSheet.Protect "password", True, True
End Sub
ตัวอย่างโค้ดครับyangkodza wrote: ↑Thu Mar 22, 2018 7:35 pmมีแผ่นงาน 5 แผ่น แต่ต้องการล๊อคเพียงแค่ 3 แผ่นงานCode: Select all
Sub Macro1() Sheets(Array("2", "3", "4")).Select Sheets("2").Activate ActiveSheet.Protect "password", True, True End Sub
เราจะเขียนเป็น VBA ได้อย่างไรครับ
Sheet.xlsm
Code: Select all
Sub Macro1()
For Each ws In Sheets(Array("2", "3", "4"))
ws.Protect "password", True, True
Next
End Sub
ตอนนี้ Protect ทั้ง 3 แผ่นงานดังกล่าวได้ครับpuriwutpokin wrote: ↑Thu Mar 22, 2018 7:52 pmตัวอย่างโค้ดครับyangkodza wrote: ↑Thu Mar 22, 2018 7:35 pmมีแผ่นงาน 5 แผ่น แต่ต้องการล๊อคเพียงแค่ 3 แผ่นงานCode: Select all
Sub Macro1() Sheets(Array("2", "3", "4")).Select Sheets("2").Activate ActiveSheet.Protect "password", True, True End Sub
เราจะเขียนเป็น VBA ได้อย่างไรครับ
Sheet.xlsmCode: Select all
Sub Macro1() For Each ws In Sheets(Array("2", "3", "4")) ws.Protect "password", True, True Next End Sub
Code: Select all
Sub Macro1()
For Each ws In Sheets(Array("2", "3", "4"))
ws.Unprotect "password", True, True
Next
End Sub
Code: Select all
Sub Macro3()
For Each ws In Sheets(Array("C1T1", "C2T1", "C3T1", "C4T1", "C5T1"))
ws.Unprotect Password:="2501"
Next
Sheets(Array("C1T1", "C2T1", "C3T1", "C4T1", "C5T1")).Select
Sheets("C1T1").Activate
Range("A4:AR57").Select
Selection.Locked = False
Selection.FormulaHidden = False
Range("E7").Select
Range("Y7:AP7,Y8:AA57,AD8:AF57,AI8:AI57,AL8:AP57").Select
Selection.Locked = True
For Each ws In Sheets(Array("C1T1", "C2T1", "C3T1", "C4T1", "C5T1"))
ws.Protect Password:="2501"
Next
End Sub
! | ws.Protect Password:="2501" |
ลองใส่คำสั่งyangkodza wrote: ↑Thu Mar 22, 2018 9:19 pm Code ที่ผมใช้งานครับติด ตรงส่วนก่อนจบครับCode: Select all
Sub Macro3() For Each ws In Sheets(Array("C1T1", "C2T1", "C3T1", "C4T1", "C5T1")) ws.Unprotect Password:="2501" Next Sheets(Array("C1T1", "C2T1", "C3T1", "C4T1", "C5T1")).Select Sheets("C1T1").Activate Range("A4:AR57").Select Selection.Locked = False Selection.FormulaHidden = False Range("E7").Select Range("Y7:AP7,Y8:AA57,AD8:AF57,AI8:AI57,AL8:AP57").Select Selection.Locked = True For Each ws In Sheets(Array("C1T1", "C2T1", "C3T1", "C4T1", "C5T1")) ws.Protect Password:="2501" Next End Sub
!ws.Protect Password:="2501"
Code: Select all
Sheets("ขื่อชีทที่ไม่ได้อยู่ในArray").Select
Code: Select all
Selection.Locked = True
ขอบคุณมากครับ ทำตามคำแนะนำใช้งานได้แล้วครับpuriwutpokin wrote: ↑Thu Mar 22, 2018 10:45 pmลองใส่คำสั่งyangkodza wrote: ↑Thu Mar 22, 2018 9:19 pm Code ที่ผมใช้งานครับติด ตรงส่วนก่อนจบครับCode: Select all
Sub Macro3() For Each ws In Sheets(Array("C1T1", "C2T1", "C3T1", "C4T1", "C5T1")) ws.Unprotect Password:="2501" Next Sheets(Array("C1T1", "C2T1", "C3T1", "C4T1", "C5T1")).Select Sheets("C1T1").Activate Range("A4:AR57").Select Selection.Locked = False Selection.FormulaHidden = False Range("E7").Select Range("Y7:AP7,Y8:AA57,AD8:AF57,AI8:AI57,AL8:AP57").Select Selection.Locked = True For Each ws In Sheets(Array("C1T1", "C2T1", "C3T1", "C4T1", "C5T1")) ws.Protect Password:="2501" Next End Sub
!ws.Protect Password:="2501" ไว้ใต้คำสั่งนี้ดูครับCode: Select all
Sheets("ขื่อชีทที่ไม่ได้อยู่ในArray").Select
Code: Select all
Selection.Locked = True