ช่วยแนะนำ การ Lock Cell

[Supfile2529]

ผู้รู้ทุกท่านและเพื่อน ๆ พี่ ๆ ทุกท่าน และอาจารย์ ช่วยแนะนำหน่อยครับ

1. ผมอยาก Lock Cell ใน sheet หน่อยนะครับคือ
ผมต้องทำอย่างไรครับ...?

2. ผมอยาก ดับเบิ้ลคลิก ช่องแถวนี้น่ะครับ
ต้องใช้ Code อย่างไรน่ะครับ

ผมลองศึกษา Code ชุดนี้ดูแล้วครับ งงเลย ไปไม่ถูกครับ
Code นี้ได้มาจากที่นี้หล่ะครับ แต่หากระทู้ไม่เจอครับ

Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Address
Case "$C$4"
Call addNewItem(Target.Value)
Range("C4").Select
'reset qty after add item
If Range("E4").Value > 1 Then Range("E4").Value = 1
Case "$E$4"
If Target.Value < 1 Then Target.Value = 1
Case Else:
If Left(Target.Address, 3) = "$C$" Then
If Target.Row >= 8 And Target.Row <= 47 Then
If IsEmpty(Target.Value) Then
Range("E" & Target.Row).ClearContents
End If
End If
End If
'Debug.Print "x " & Target.Address
End Select
End Sub

ช่วยแนะนำหน่อยครับ ความรู้ ทางด้าน VBA และอื่น ฯลฯ.
ผิดพลาดประการใด ขออภัยไว้ ณ ที่นี้ด้วยครับ
ขอบคุณครับทุกท่านครับ

[snasui]

1. ผมอยาก Lock Cell ใน sheet หน่อยนะครับคือ
ผมต้องทำอย่างไรครับ...?

2. ผมอยาก ดับเบิ้ลคลิก ช่องแถวนี้น่ะครับ
ต้องใช้ Code อย่างไรน่ะครับ

ผมลองศึกษา Code ชุดนี้ดูแล้วครับ งงเลย ไปไม่ถูกครับ
Code นี้ได้มาจากที่นี้หล่ะครับ แต่หากระทู้ไม่เจอครับ

ช่วยอธิบายถึงตำแหน่งชีท ตำแหน่งเซลล์ว่าต้องการจะ Lock ชีทไหน เซลล์ไหน อย่างไร Code ที่ Copy มาใช้นั้นแสดงค่าผิดพลาดอย่างไร

การโพสต์ Code ให้เป็น Code ดูที่นี่ครับ viewtopic.php?f=3&t=1187

[Supfile2529]

ช่วยอธิบายถึงตำแหน่งชีท ตำแหน่งเซลล์ว่าต้องการจะ Lock ชีทไหน เซลล์ไหน อย่างไร Code ที่ Copy มาใช้นั้นแสดงค่าผิดพลาดอย่างไร

การโพสต์ Code ให้เป็น Code ดูที่นี่ครับ viewtopic.php?f=3&t=1187

1. Sheet ชื่อ Main Search ที่ต้องการ Lock
2. ตำแหน่งที่ต้องการจะ Lock คือ Lock ทั้งหมดครับ
จะเหลือไว้ ก็แต่ " I15 " ลงไปครับ ที่สามารถดับเบิ้ลคลิกไ้ด้ครับ
เพื่อเอาไว้ Control Form ให้เปิด Form Update Data ครับ
3. Code ที่ Copy ไปนั้น เป็น code ตัวอย่าง ที่พยายามศึกษาแล้วไม่เข้าใจเลย ต้องการทำความเข้าใจน่ะครับ
4. เรื่องการโพสต์ code ต้องขอโทษด้วยน่ะครับ

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
    Select Case Target.Address
        Case "$C$4"
            Call addNewItem(Target.Value)
            Range("C4").Select
            'reset qty after add item
            If Range("E4").Value > 1 Then Range("E4").Value = 1
        Case "$E$4"
            If Target.Value < 1 Then Target.Value = 1
        Case Else:
            If Left(Target.Address, 3) = "$C$" Then
                If Target.Row >= 8 And Target.Row <= 47 Then
                    If IsEmpty(Target.Value) Then
                        Range("E" & Target.Row).ClearContents
                    End If
                End If
            End If
        
            'Debug.Print "x " & Target.Address
    End Select
End Sub

ผิดพลาดประการใด ขออภัยไว้ ณ ที่นี้ด้วยครับ
ขอบคุณครับทุกท่านครับ

[snasui]

ต้องขออภัยครับ การจะใช้ Code VBA นั้นจะต้องเข้าใจบ้างและถามเฉพาะที่ติดปัญหาตามกฎข้อ 5 ด้านบน หากไม่เข้าใจเลยยังไม่ควรใช้ จำเป็นต้องศึกมามาเป็นลำดับก่อน ศึกษาอย่างไรนั้นลองอ่านที่นี่เป็นแนวทางครับ viewtopic.php?f=5&t=3274

[Supfile2529]

ต้องขออภัยครับ การจะใช้ Code VBA นั้นจะต้องเข้าใจบ้างและถามเฉพาะที่ติดปัญหาตามกฎข้อ 5 ด้านบน หากไม่เข้าใจเลยยังไม่ควรใช้ จำเป็นต้องศึกมามาเป็นลำดับก่อน ศึกษาอย่างไรนั้นลองอ่านที่นี่เป็นแนวทางครับ viewtopic.php?f=5&t=3274

กำลังศึกษาอยู่ครับ ถ้าติดตรงไหน เดียวจะมาถามใหม่น่ะครับ
ขอบคุณมาก ๆ ครับ