高手请指教,为什么Excel里面的宏消失了~!

来源:百度知道 编辑:UC知道 时间:2024/05/21 01:31:36
我本来是按着百度里面的设置Excel双面打印的帖子按部就班的,
即,
第一步:启动Excel 2000(其他版本请仿照操作),执行“工具”à“宏”→“Visual Basic编辑器”命令,进入Visual Basic编辑状态。
第二步:在右侧的“工程资源管理器”区域中,选中“VBAProject(PERNOSAL.XLS)”选项,执行“插入”→“模块”命令,插入一个新模块(模块1)。
小提示:“PERNOSAL.XLS”叫做“个人宏工作簿”,第一次使用宏功能时,需要进入下述操作,添加“个人宏工作簿”:在Excel中,执行“工具→宏→录制新宏”命令,打开“录制新宏”对话框(如图2),输入一个名称,然后选择将其“保存在”“个人宏工作簿”中,确定返回,随便做一下编辑操作,然后按“停止录制”工具栏上的“停止录制”按钮,系统即可自动添加“个人宏工作簿”。
第三步:双击“模块1”进入代码输入区域,将下述代码输入其中:

Sub dy()
On Error Resume Next
x = ExecuteExcel4Macro("Get.Document(50)")
For i = 1 To Int(x / 2) + 1
ActiveWindow.SelectedSheets.PrintOut From:=2 * i - 1, To:=2 * i - 1
Next i
MsgBox "请将打印出的纸张反向装入纸槽中", vbOKOnly, "打印另一面"
For j = 1 To Int(x / 2) + 1
ActiveWindow.SelectedSheets.PrintOut From:=2 * j, To:=2 * j
Next j
End Sub

第四步:输入完成后,关闭Visual Basic编辑窗口返回。
添加按钮
第一步:执行“工具→自定义”命令,打开“自定义”对话框(如图3)。
第二步:切换到“命令”标签下,在“类别”下面选中“宏”选项,然后将右侧“命

你是将工具菜单改动了,可以自己改回来的。
1.在“文件”这一排菜单下的工具栏上按右键,选最下面的“自定义”;如果一个工具栏都没有了,就选“视图”,工具栏,自定义

2.按住“工具”将它从菜单栏移走;

3.点“命令”标签,在左边的类别下面选“内置菜单”,再点右边的命令下面选“工具”,按住后拖动到菜单栏就行了。

最简单的方法:
删除这个文件
C:\Documents and Settings\你的用户名\Application Data\Microsoft\Excel\Excel11.xlb

这个文件是Excel菜单工具栏的配置文件,删除后菜单和工具栏就会重置。会重新生成一个Excel11.xlb文件

或者工具-自定义(如果工具菜单里面没有了,可以在任意一个工具栏上右键,最下面有自定义)
命令选项卡-重排命令按钮,
菜单栏下拉框,选择工具,点击最下方的重新设置。

安全级别的问题