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

 时间:2026-02-13 10:35:13

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 = False

Else

  Cancel = True

  MsgBox "密码不正确不能打印!"

End If

End Sub

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

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

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

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

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

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

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

  • 在VBA中,如何打开目录下的工作表?
  • 使用VBA判断并填充颜色
  • EXCEL如何利用VBA提取唯一值做成数据有效性
  • 统计单条件/多条件以外数据的方法
  • Excel 2007中,VBA开发工具中Combobox的使用
  • 热门搜索
    网络诈骗怎么追回被骗的钱 有名的近义词 水竹叶子发黄怎么办 体面的近义词 理所当然的近义词 香椿怎么吃 空调不制冷了怎么回事 深圳博物馆开放时间 最好看的发型 鲜艳的近义词