首页 › 实战技术 › 一键保护工作表一键撤销工作表保护VBA

nnsea 发表于 2024-2-10 22:11:35

一键保护工作表一键撤销工作表保护VBA

Sub 保护工作表()
    ' 保护工作表，要求密码才能取消保护
    ActiveSheet.Protect Password:="123", DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

Sub 取消工作表保护()
    ' 取消保护工作表（需要提供正确的密码）
    ActiveSheet.Unprotect Password:="123"
End Sub

查看完整版本: 一键保护工作表一键撤销工作表保护VBA