Snasui Excel Forum

:D Code ที่ผมเขียนเป็นตัวอย่างไปนั้นมีการตรวจสอบหาก F7 [color=#FF4000]มีการเปลี่ยนแปลง[/color] โดยมีขั้นตอนการทำงานคือ
[list=1]
[*]หาก F7 เป็นค่าว่าง
[list=1]
[*]กำหนดคุณสมบัติ Locked เป็น True
[*]ทำการป้องกัน
[/list]
[*]หาก F7 [color=#FF4000]ไม่[/color]เป็นค่าว่าง
[list=1]
[*]หาก F7 เป็นตัวเลข
[list=1]
[*]ปลดการป้องกัน
[*]กำหนดคุณสมบัติ Locked เป็น False
[/list]
[*]หาก F7 [color=#FF4000]ไม่[/color]เป็นตัวเลข
[list=1][*]กำหนดคุณสมบัติ Locked เป็น True
[*]ทำการป้องกัน[/list]
[/list]
[/list]

ซึ่งต้องทำความเข้าใจและปรับปรุงมาเองว่าต้องการให้เป็นอย่างไร ติดตรงไหนค่อยถามกันต่อครับ

กรณี Error ที่กล่าวมาผมยังไม่พบปัญหานั้นครับ

ขอบพระคุณมากๆ ครับอาจารย์ โค๊ดใช้ได้ดีครับ
แต่สงสัยตรงจุดนึงครับ มี Run-time error แจ้งบอกว่า ไม่สามารถตั้งค่าคุณสมบัติ Locked ของคลาส Range ได้ เกิดจากสาเหตุใดครับผม

เราสามารถทำให้
[b]Range("F8:F62")[/b] ล็อค โดยไม่ต้องไป [b]ยกเลิกการป้องกันแผ่นงาน[/b] หรือ [b]ป้องกันแผ่นงาน[/b] เพียงแค่กรอกคะแนนเต็มที่ [b]cell F7[/b] การปลดล็อคก็จะเกิดกับ [b]Range("F8:F62")[/b] ทันที แต่พอเอาคะแนนเต็มที่ [b]cell F7[/b] ออก การล็อคก็จะเกิดกับ [b]Range("F8:F62")[/b] ทันทีเช่นกัน เพราะ [b]Sheet1[/b] มีการ [b]ป้องกันแผ่นงาน[/b] อยู่แล้ว
สรุปคือ มองแค่ [b]cell F7[/b] ไม่ใส่ค่าใดๆ Range ดังกล่าวอยู่ในสถานะ[b]ล็อค[/b] พอใส่ค่าใดๆ ให้กับ [b]cell F7[/b] Range ดังกล่าวอยู่ในสถานะ[b]ปลดล็อค[/b]

ขอบพระคุณครับอาจารย์

'Other code
If Target.Address(0, 0) = "F7" Then
    If Target.Value = "" Then
        Range("F8:F62").Locked = True
        Me.Protect Password:="pass"
    ElseIf Target.Value <> "" Then
        If IsNumeric(Target.Value) Then
            Me.Unprotect Password:="pass"
            Range("F8:F62").Locked = False
        Else
            Range("F8:F62").Locked = True
            Me.Protect Password:="pass"
        End If
    End If
End If
'Other code

:D ตัวอย่างการปรับ Code ครับ

[code]
'Other code
If Target.Address(0, 0) = "F7" Then
If Target.Value = "" Then
Range("F8:F62").Locked = True
Me.Protect Password:="pass"
ElseIf Target.Value <> "" Then
If IsNumeric(Target.Value) Then
Me.Unprotect Password:="pass"
Range("F8:F62").Locked = False
Else
Range("F8:F62").Locked = True
Me.Protect Password:="pass"
End If
End If
End If
'Other code
[/code]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Range("F7") = "" Then
        Range("F8:F62").Locked = True
    ElseIf Range("F7") <> "" Then
       Range("F8:F62").Locked = False
    End If
End Sub 

เรียนสอบถามอาจารย์ครับ
ผมอยากทราบครับว่า ถ้าเราจะกำหนดให้ [b]Sheet1[/b] เซลล์ [b]F8:F62[/b] มีสถานะเป็นเซลล์ที่ถูกล็อคอยู่ ถ้ามีการกรอกค่าตัวเลขใดๆ ที่เซล์ [b]F7[/b] เซลล์ที่ถูกล็อคอยู่คือเซลล์ [b]F8:F62[/b] ให้มันปลดล็อค เรากำหนดแบบใดให้ได้ค่าที่ถูกต้องครับ
[b]ข้อมูลที่ต้องการคือ ถ้าไม่มีการกำหนดคะแนนเต็มก่อน จะไม่สามารถป้อนคะแนนให้นักเรียนแต่ละคนได้[/b]
VBA ที่ใช้ใน [b]Sheet1[/b] คือ
[code]
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("F7") = "" Then
Range("F8:F62").Locked = True
ElseIf Range("F7") <> "" Then
Range("F8:F62").Locked = False
End If
End Sub
[/code]