อยากให้ VBA lock cell ทุกครั้งที่มีการเปลี่ยนข้อความในเซล

[akekorn]

สวัสดีครับคุณคนควนและเพื่อนสมาชิก
คือผมมีปัญหาอยากถาม คือต้องการ อยากให้ VBA lock cell ทุกครั้งที่มีการเปลี่ยนข้อความในเซลก่อนหน้าทุกครั้งที่ขึ้นคำที่ระบุ ผมได้โค๊ดไว้ ใน worksheet event activate แต่ไม่ทราบหากทุกครั้งที่เลื่อนลงไป excel จะรู้ได้ยังไงว่า หากเป็นคำว่า อื่นๆ ระบุเอง ไม่ต้องล๊อค แต่หากไม่ใช่คำนี้ ต้อง lock

อีกเรื่องในไฟด์เดียวกันครับคือจะหนด format validation ยังไง ผมได้ถามไว้ในไฟด์แล้วครับ
รบกวนคุณคนควน และ เพือนสมาชิกด้วยนะครับ

ขอบคุณครับ

[snasui]

สำหรับ Code ศึกษาได้ที่กระทู้นี้ครับ http://www.snasui.com/viewtopic.php?f=3&t=29

ส่วน Validation เปลี่ยนตรง Allow: เป็น Custom > ตรง Formula: คีย์สูตร =AND(ISNUMBER(K5+0),LEN(K5)=4)

[akekorn]

ขอบคุณครับคุณควนแต่ที่ผมต้องการคือ หาก column I ตั้งแต่ I5 หากไม่ได้ key คำว่า อื่นๆ ให้ เซล J5 เท่านั้นที่ lock cell แต่หาก key คำว่า อื่นๆ ก็ให้คลาย lock cell สามารถระบุเหตุผลได้ครับ ควรจะปรับ code อย่างไรครับ แล้วลงบรรทัดต่อไป ก็คู่กันไปอย่างนี้ คือ
I6 คู่ J6 ,I7 คู่ J7 ลงไปเรื่อยๆครับผม

[snasui]

Link ที่ผมส่งให้นั้นมี Code ลักษณะเดียวกันนี้ ลองปรับใช้ดูครับ

การ Lock อาจจะทำได้ด้วยการ Protect หรืออีกแบบหนึ่ง เก็บค่าเดิมไว้ในตัวแปรใด ๆ หากเข้าเงื่อนไขให้ทำการ Lock ก็จะนำค่าตัวแปรที่เก็บไว้มาวางเหมือนเดิม คือไม่สามารถเปลี่ยนค่าในเซลล์ที่ต้องการ Lock ได้ เพราะเปลี่ยนไปมันก็จะเปลี่ยนกลับมาเหมือนเดิม

ยกตัวอย่างเช่น จากเงื่อนไขนี้

ตั้งแต่ I5 หากไม่ได้ key คำว่า อื่นๆ ให้ เซล J5 เท่านั้นที่ lock cell แต่หาก key คำว่า อื่นๆ ก็ให้คลาย lock cell

เราสามารถใช้ Event ในการตรวจสอบค่า J5 โดยเมื่อเปลี่ยนค่าใน J5 แล้วให้ตรวจสอบว่า I5 เป็นคำว่า อื่น ๆ หรือไม่ ถ้าไม่ใช่ให้นำค่าตัวแปรที่เก็บไว้กลับมาวางใน J5 เช่นนี้เป็นต้น

[akekorn]

คุณคนควนครับ
ผมได้ปรับcode ตามความเหมาะสมของงานผมแล้วแต่สงสัยครับว่าบางทีก็ทำงานเหมือนจะได้แต่บางทีก็รวน
ยกตัวอย่างบางครั้งเลือกที่ไม่ใช่ อื่นๆ แล้วเซลถัดไป ตาม code ก็ lock แต่บางทีเลือกอื่นๆ ก็ lock ซะงั้นมันไม่ตรงกับความต้องการซะทีเดียวควรทำอย่างไรดีครับให้ มัน เสถียรกว่านี้ผมได้แนบไฟด์ที่ผมทำมาให้ดูด้วยครับ

ขอบคุณครับ

[snasui]

ลองปรับ Code เป็นตามด้านล่างครับ

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 9 And Target.Row > 4 Then
        Call protectsheet
    End If
End Sub

Sub protectsheet()
    ActiveSheet.Unprotect Password:="Akekorn"
    If ActiveCell.Value <> "อื่นๆ (ระบุเหตุผล)" Then
         ActiveCell.Offset(0, 1).Locked = True
         'Sheets(1).Cells.Locked = True
    Else
         ActiveCell.Offset(0, 1).Locked = False
    End If
    ActiveSheet.Protect Password:="Akekorn"
End Sub

[akekorn]

ขอบคุณครับคุณคนควน
แต่ผมสงสัย If Target.Column = 9 And Target.Row > 4 ใช่หมายถึง หากมีการเลือกข้อมูลในคอลัมภ์ที่9 คือ คอลัมภ์ I และ แถวที่มีการเปลี่ยนแปลงข้อมูลคือ I5 เป็นต้นไปถึงค่อยเข้าไปทำงานใน module protectsheet ใช่ไหมครับ

[snasui]

เข้าใจถูกต้องแล้วครับ

[akekorn]

ขอบคุณมากครับผมได้อะไรมากเลยครับ