从这段代码看应该是一段宏表代码,通过调用宏函数来检测用户是否禁用了VBA,如果禁用了就关闭程序。可能是用4.0的宏编写的,试着找找office宏病毒专杀看看,如果不行,可以考虑手工查杀。
把这段代码复制进代码区执行,应该可以把隐藏的宏表显示出来。
Sub xShow()
Dim sht As Worksheet
For Each sht In Excel4MacroSheets
sht.Visible = 1
Next
End Sub
如果显示出来了宏表,直接在宏表标签上点击右键删除,就可以,有关模块也一并移除。
或者用下面的代码直接删除。
Sub xKill()
Application.DisplayAlerts = False
Dim sht As Worksheet
For Each sht In Excel4MacroSheets
sht.Visible = 1
sht.Delete
Next
Application.DisplayAlerts = True
End Sub
按ALT+F11看是否有代码