Excel2010工作簿被锁定,无法复制或者新增加sheet表格。 Sub 工作簿密码破解() ActiveWorkbook.Sheets.Copy For Each sh In ActiveWorkbook.Sheets sh.Visible = True Next End Sub