关于隐藏表格打印问题

白金卡 · 发表于 2020-1-10 21:43

求助各位大神，现有一个里面包含很多表格的文件，部分表格需要隐藏，为了不让其他人看到，工作簿文件需要加密，加密后如何通过vba实现打印这些隐藏的表格。

gdw831001 · 发表于 2020-1-11 12:47

能打印还不让其他人看，打印出来不就看到了，有点搞笑

microyip · 发表于 2020-1-11 13:27

直接用表的PrintOut就可以了

白金卡 · 发表于 2020-1-11 20:27

gdw831001 发表于 2020-1-11 12:47
能打印还不让其他人看，打印出来不就看到了，有点搞笑

因为文件是公共的，部分人只能打印部分表格，其他人不让看

白金卡 · 发表于 2020-1-11 20:28

本帖最后由白金卡于 2020-1-11 21:44 编辑

microyip 发表于 2020-1-11 13:27
直接用表的PrintOut就可以了

试了试，加了工作簿保护后，使用printout隐藏表格就是报错

tangyy · 发表于 2020-4-28 13:54

同问，解决了吗？

网海遨游 · 发表于 2020-4-28 14:31

点击打印按纽时，取消工作表保护，打印完成，增加工作表保护。
sub test()
取消工作表保护
……你的其他代码
activesheet.printout
增加工作表保护
end sub

tangyy · 发表于 2020-5-9 09:45

网海遨游发表于 2020-4-28 14:31
点击打印按纽时，取消工作表保护，打印完成，增加工作表保护。
sub test()
取消工作表保护

谢谢！我在打印语句前后对Worksheets.Visible进行设置，先显示隐藏表格，打印后重新隐藏表格，就可以了~

		自动登录	找回密码
密码			免费注册

[求助] 关于隐藏表格打印问题