网站首页 美食营养 游戏数码 手工爱好 生活家居 健康养生 运动户外 职场理财 情感交际 母婴教育 时尚美容

在EXCEL工作簿中,加载宏的实例应用(1)

时间:2024-10-18 21:00:15

1、在工作表中,点击菜单栏【开发工具】,在其工具栏内,点击【visual basic】!

在EXCEL工作簿中,加载宏的实例应用(1)

2、会进入VBA编辑界面!双击左侧栏加载宏【new.xlam】中的【thisworkbook】!

在EXCEL工作簿中,加载宏的实例应用(1)

3、在弹出的代码编辑窗口中的左下拉箭头中选择【app】,右下拉箭头中选择【WorkbookBeforePrint】!

在EXCEL工作簿中,加载宏的实例应用(1)在EXCEL工作簿中,加载宏的实例应用(1)

4、在代码编辑窗口中输入一下代码:Private Sub app_WorkbookBeforePrint(ByVal Wb As Workbook, Cancel As Boolean)i = InputBox("请输入打印密码")If i = "112365" Then Cancel = FalseElse Cancel = True MsgBox "密码不正确不能打印!"End IfEnd Sub

在EXCEL工作簿中,加载宏的实例应用(1)

5、点击保存后,关闭EXCEL工作簿!

在EXCEL工作簿中,加载宏的实例应用(1)

6、重新打开任意EXCEL工作簿!点击【打印】按钮,都会弹出要求输入打印密码的对话框!

在EXCEL工作簿中,加载宏的实例应用(1)

7、只有正确输入密码后,才可以打印!否则提示【密码不正确不能打印!】

在EXCEL工作簿中,加载宏的实例应用(1)
© 2025 阿力知识库
信息来自网络 所有数据仅供参考
有疑问请联系站长 site.kefu@gmail.com