文档库 最新最全的文档下载
当前位置:文档库 › word禁止打印和编辑

word禁止打印和编辑

Sub FilePrint()
'
' FilePrint 宏
' 打印活动文档
'
MsgBox "你无权打印该文档,请超级管理员打印密码", vbCritical

pass$ = InputBox("请输入打印密码:")
If pass$ = "5541864" Then
Dialogs(wdDialogFilePrint).Show
Else
MsgBox ("密码错误,你无权使用该打印机!")
End If
End Sub


Sub FilePrintdefault()
ActiveDocument.PrintOut
pass$ = InputBox("请输入打印密码:")
If pass$ = "AAAAA" Then
Dialogs(wdDialogFilePrint).Show
Else
MsgBox ("密码错误,你无权使用该打印机!")
End If

相关文档
相关文档 最新文档