【如何取得工作表保護(鎖定)狀態】
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/
※※ 本區做為經常使用之程式碼複製區，提問請至小講堂唷 ※※