word宏代码:
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应该是什么呢?