Question

excel提示57121 应用程序定义或对象定义错误 附出错代码

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Unprotect Password:="12345"
Sheets("A").Visible = True
Sheets("A").Activate
For a = 1 To Sheets.Count
If Sheets(j).Name <> "A" Then
Sheets(j).Visible = False
End If
Next j
ActiveWorkbook.Protect Password:="12345"
End Sub
此代码中
If Sheets(a).Name <> "A" Then 显示出错 打开表就出错

请老师们给解决下

• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励30（财富值+成长值）

Answer 1

excel 的问题。
换成：
for each sh in sheets
if sh.name<>"a" then
sh.visible =false
end if

next

Answer 2

把你那个出错的工作表，先复制，再粘贴，再删除，把粘贴的工作表改名为原来的表。