Snasui Excel Forum

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$4" Then
    locksheet
 End If
End Sub

Code: Select all

Sub unlockAll()
Application.EnableEvents = False
On Error Resume Next
    Sheets("Main").Select
    ActiveSheet.Unprotect
    If Err <> 0 Then
        MsgBox "รหัสผ่านไม่ถูกต้อง โปรดติดต่อผู้พัฒนาโปรแกรม"
        Exit Sub
    End If
    Range("D4").Select
'    Selection.Locked = False
'    Selection.FormulaHidden = False
    ActiveSheet.Unprotect DrawingObjects:=False, Contents:=False, Scenarios:=False
        Range("D4").Select
    Selection.Interior.ColorIndex = xlNone
    Selection.Font.ColorIndex = 5
    Selection.Font.ColorIndex = 5
    ActiveCell.FormulaR1C1 = "กรอกชื่อโรงเรียนของท่านได้แล้ว"
'    Range("D4").Select
'    Call locksheet
    Application.EnableEvents = True
End Sub