Pages

▼

2019-11-21

〔VBA〕ProtectContents-取得工作表保護狀態--v038

【如何取得工作表保護(鎖定)狀態】


Private Sub cmdLock_Click()
    '鎖定或解鎖
    If ActiveSheet.ProtectContents = True Then
        ActiveSheet.Unprotect    '解鎖
        Me.cmdLock.Caption = "鎖定"
    Else
        ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
            , AllowFormattingCells:=True, AllowFormattingColumns:=True, _
            AllowFormattingRows:=True        '鎖定
        Me.cmdLock.Caption = "解鎖"
    End If
End Sub

相關課程：


章老師的電腦小講堂 https://www.facebook.com/ScenicSchool/
※※ 本區做為經常使用之程式碼複製區，提問請至小講堂唷 ※※