工作簿密码破解VBA

nnsea

Sub 工作簿密码破解()
    ActiveWorkbook.Sheets.Copy
        For Each sh In ActiveWorkbook.Sheets
        sh.Visible = True
    Next
End Sub