excel表怎么使用打印机加密？

img


word宏代码:

img


Sub FilePrint()
pass$ = InputBox("请输入打印密码：","密码错误")
If pass$ = "aaaa" Then
Dialogs(wdDialogFilePrint).Show
Else: MsgBox ("密码错误，你无权使用该打印机")
End If
End Sub
excel宏代码:
Sub FilePrint()
pass$ = InputBox("请输入打印密码：", "密码错误")
If pass$ = "aaaa" Then
Application.Dialogs(wdDialogPrint).Show
Else: MsgBox ("密码错误，你无权使用该打印机")
End If
End Sub
word打开打印按钮会出现输入密码提示框，而excel点了没反应怎么回事，初步判断为sub FilePrint问题，excel应该是什么呢？

Private Sub Workbook_BeforePrint(Cancel As Boolean)
pass$ = InputBox("请输入打印密码：", "密码错误")
If pass$ = "aaaa" Then
Application.Dialogs(wdDialogPrint).Show
Else: MsgBox ("密码错误，你无权使用该打印机")
Cancel = True
End If
End Sub

已测试：

img

img