[已解决]如何使用ＶＢＡ限制工作表打印？

fwx391

各位老师好，
最近有个想法，但是由于本人对ＶＢＡ掌握尚浅，未能解决，来此请教各位老师，我的设想是：
1. 限制工作表打印
2. 在ＶＢＡ中需增加一个打印判断，即如果输入打印密码正确就可以打印，反之不能打印

最佳答案

月排行榜 / 总排行榜

1970-1-1 08:00

跳转到最佳答案楼层

Select

1. 
   
2. Sub main()    '你原来的代码
   
3.     Call test
   
4.     '打印
   
5. End Sub
   
6. 
   
7. 
   
8. Sub test()
   
9.     Dim x As String
   
10.     x = InputBox("请输入密码:")
    
11.     '将"abc"改为你的密码
    
12.     If x <> "abc" Then
    
13.         MsgBox "密码不正确，退出程序。"
    
14.         End
    
15.     End If
    
16. End Sub

复制代码

BAIXINGR

三楼的比较好            

fwx391

谢谢楼上几位的答案，都可以解决我的问题

shaokui123