Snasui Excel Forum

yangkodza wrote: Thu Mar 22, 2018 7:35 pm

Code: Select all

Sub Macro1()
    Sheets(Array("2", "3", "4")).Select
    Sheets("2").Activate
    ActiveSheet.Protect "password", True, True
End Sub

มีแผ่นงาน 5 แผ่น แต่ต้องการล๊อคเพียงแค่ 3 แผ่นงาน
เราจะเขียนเป็น VBA ได้อย่างไรครับ

Sheet.xlsm

Sub Macro1()
   For Each ws In Sheets(Array("2", "3", "4"))
    ws.Protect "password", True, True
    Next
End Sub

puriwutpokin wrote: Thu Mar 22, 2018 7:52 pm

yangkodza wrote: Thu Mar 22, 2018 7:35 pm

Code: Select all

Sub Macro1()
    Sheets(Array("2", "3", "4")).Select
    Sheets("2").Activate
    ActiveSheet.Protect "password", True, True
End Sub

มีแผ่นงาน 5 แผ่น แต่ต้องการล๊อคเพียงแค่ 3 แผ่นงาน
เราจะเขียนเป็น 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

Sub Macro1()
   For Each ws In Sheets(Array("2", "3", "4"))
    ws.Unprotect "password", True, True
    Next
End Sub

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"

 Sheets("ขื่อชีทที่ไม่ได้อยู่ในArray").Select

 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