ช่วยดู Code ป้องกัน Sheet ให้หน่อยครับ

[tigerwit]

แนวคิดการทำงานคือ
ตอนนี้ทำโปรแกรมจาก Excel มาตัวหนึ่ง
จะให้ผู้สนใจทดลองใช้งาน โดยล็อคเซลบางเซลไว้ไม่ให้แก้ไข (ชื่อโรงเรียน)
หากโรงเรียนใดสนใจใช้งาน ให้ทำหนังสือขอความอนุเคราะห์มา แล้วผมจะส่ง รหัสปลดล็อคเซลไปให้
ลองทำดูแล้วติดปัญหาบางประการ
รายละเอียดอยู่ในไฟล์ที่แนบมา
รบกวนช่วยดูและแก้ไขให้ด้วยครับ

[snasui]

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

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

[tigerwit]

ขอบคุณครับ