Excel2010工作簿被锁定，无法复制或者新增加sheet表格。

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