Excel Forum

Code: Select all

Sub lockcell()
'
    On Error Resume Next
    Range("B3").Select
     Selection.Locked = True
       If Err <> 0 Then
        MsgBox "โปรดทำการปลดล็อคชีทก่อน"
            Exit Sub
    End If
    Selection.FormulaHidden = False
End Sub
Sub locksheet()
'
    ActiveSheet.Protect Password:="123456", DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Sub unlocksheet()
'
On Error Resume Next
    ActiveSheet.Unprotect
    If Err <> 0 Then
        MsgBox "รหัสผ่านไม่ถูกต้อง"
        Exit Sub
    End If
End Sub
Sub unlockAll()
On Error Resume Next
    Sheets("Main").Select
    ActiveSheet.Unprotect
    If Err <> 0 Then
        MsgBox "รหัสผ่านไม่ถูกต้อง"
        Exit Sub
    End If
    Range("B3").Select
    Selection.Locked = False
    Selection.FormulaHidden = False
    ActiveSheet.Unprotect DrawingObjects:=False, Contents:=False, Scenarios:=False
    Range("B3").Select
End Sub