如何在忘记密码的情况下撤销excel工作表保护?

excel可以通过设置密码来保护工作表,防止他人修改工作表单元格的内容。

当工作表保护密码忘记时,可以通过以下的vba代码来解除excel工作表的保护密码。

Sub QQ1722187970()
    '撤销工作表保护密码
    Dim oWK As Worksheet
    Dim oWB As Workbook
    Set oWB = ActiveWorkbook
    For Each oWK In oWB.Worksheets
        oWK.Protect AllowFiltering:=True
        oWK.Unprotect
    Next
End Sub

 

       

发表评论