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

如下图所示，可以通过保护工作簿来限制移动工作表的位置和窗口的结构。

当忘记了这个保护密码后，可以通过以下的vba代码来另类破解。

Sub QQ1722187970()
    '撤销工作簿保护
    Dim oWb As Workbook
    Set oWb = ActiveWorkbook
    oWb.Sheets.Copy
    For Each oWK In oWb.Sheets
        oWK.Visible = True
    Next
End Sub