Code Protect และ Unprotect

[suka]

เรียนอาจารย์และท่านผู้รู้ค่ะ

ช่วยเรื่องปรับโค๊ดด้านล่างนี้ค่ะ
ต้องการสร้างปุ่มที่ชีท Sheet1 หากมีการ Protect ชีทอยู่เมื่อกดที่ปุ่ม Button1 ให้ Unprotect ชีทหากไม่ก็ให้ Protect ค่ะ

โค๊ดติดมีระบายสีเหลืองที่ If Sheets("Sheet1") = "Protect" Then ค่ะ ขอบคุณค่ะ

Code: Select all

Sub Protect()
        Dim formBook As Workbook
        Set formBook = ThisWorkbook
        If Sheets("Sheet1") = "Protect" Then
            formBook.Activate
            ActiveSheet.Unprotect
        Else
            formBook.Activate
            ActiveSheet.Protect
        End If
End Sub

[snasui]

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

Code: Select all

With Sheets("Sheet1")
    If .ProtectContents = True Then .Unprotect Else .Protect
End With

[วังวู ช่ง]

[suka]

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