创建一个新的空白文档工具 - 宏 - 宏安全性 - 选择“
ALT + F11打开VB编辑器来插入一个新的模块后,将以下代码粘贴到保存退出
打开你刚才保存的文件,在弹出的安全提示,选择“启用宏”
清除所有启动代码会自动运行
-------------------------------开始复制----------------- ---------------
Auto_Open()
??昏暗的FS作为对象
??昏暗的BK为工作簿
??昏暗的SHT作为工作表
??作为布尔点心ifExist
??在错误恢复下一步
??'判断是否有启动“,ifExist标记
??ifExist = FALSE
如果DIR(Application.StartupPath&“\”&“StartUp.xls”)<>“”,然后ifExist =??
如果ifExist = FALSE,则??
????对于每个工作簿中的BK
如果ifExist,然后退出??????
??????每个在BK.Sheets SHT对于
如果ifExist,然后退出????????
????????BK.Sheets(“启动”)。 <>“启动”,然后
??????????ifExist = FALSE
????????其他
??????????ifExist = TRUE
????????结束如果
???????SHT
????接下来BK
??结束如果
??'确定是否要清除启动
如果ifExist然后??
????,如果MSGBOX(见“启动”!“VbCrLf和”启动可能会影响您的Excel清楚了吗?“,VbOKCancel)= vbCancel然后退出小组
??其他
????MSGBOX“未找到启动”,自动退出
????ThisWorkbook.Close
????退出小组
??结束如果
??“关闭StartUp.xls
??工作簿(“StartUp.xls”)。关闭假
??“删除文件
??设置FS = CREATEOBJECT(“Scripting.FileSystemObject的”)
??FS.DeleteFile Application.StartupPath&“\”&“StartUp.xls”
??删除宏模块启动
??Application.DisplayAlerts = FALSE
??工作簿中的每个BK
????BK.Sheets(“启动”)。删除
??下一步BK
??Application.DisplayAlerts = TRUE
??'恢复变量
??Application.OnSheetActivate =“”
??Application.OnKey“%{F11}”
??Application.OnKey“%{F8}”
??MSGBOX“清除启动完成后自动退出!”
??ThisWorkbook.Close
END SUB
-----------------------------------------------复制结束 - -------------------------------------
如果你的office是在l默认的路径安装的,则删除以下文件夹中的Excel文件。
C:\Documents and Settings\Administrator\Application Data\Microsoft\Excel\XLSTART\
这个文件夹是隐藏的,在打开文件夹时,按菜单“工具”——“文件夹选项”,按“查看”,选“显示所有文件和文件夹”。
同问:
我的win7系统,我发现在同一系统下,其他版本的 Excel没事,只有2007版的 Excel文件,只要双击文件就自动打印了。究其原因是在 Excel文件上点击右键,发现以前的“打开”变成“打印”了。于是明白了为什么双击就打印了。但不知道怎么改回默认双击“打开”!!!!!!!!
执行了宏 选项 安全 禁止宏自动运行。
换个工具把。使用WPS2012金山出品 支持国产。效果不比老美的office 全面兼容office的所有格式。支持国产。抵制日美