[已解决]Excel如何打印时候自动隐藏指定列

xingqi6shenye · 发表于 2014-6-11 10:10

请教老师，当我的表格完成时，我打印，能不能用代码讲折扣率那一列自动隐藏，就是我做表的时候有，打印的时候出来单上没有折扣率那一列，我本来用分裂做了一个按钮，但我发现我保护表格的时候，分列按钮不能展开我选择的列，求老师支招

销售单.rar (43.58 KB, 下载次数: 21)

xingqi6shenye · 发表于 2014-6-11 10:11

如果不保护表格，怕销售员乱弄把公式又弄没了

zjdh · 发表于 2014-6-11 10:25

本帖最后由 zjdh 于 2014-6-11 10:31 编辑

xingqi6shenye · 发表于 2014-6-11 10:28

zjdh 发表于 2014-6-11 10:25
你这人没有道德！
帮你解决了问题连一个屁都不放！！
大家别帮他！！

老师我已经采纳你的最佳答案了呀

xingqi6shenye · 发表于 2014-6-11 10:33

zjdh 发表于 2014-6-11 10:25

老师，你忙我解决这个小问题把，拜托，。。。{:191:}

zjdh · 发表于 2014-6-11 10:39

销售单.rar (44.69 KB, 下载次数: 44)

xingqi6shenye · 发表于 2014-6-11 10:44

zjdh 发表于 2014-6-11 10:39

老师，告诉你一个密码，当保护工作表的时候点击打印就出错 {:301:}

zjdh · 发表于 2014-6-11 10:44

本帖最后由 zjdh 于 2014-6-11 10:49 编辑

加密码保护，密码：123

销售单2.rar (45.37 KB, 下载次数: 128)

su45 · 发表于 2014-6-11 11:12

用VBA来控制打印可以先隐藏，打完后再显示！

xingqi6shenye · 发表于 2014-6-11 11:14

zjdh 发表于 2014-6-11 10:44
加密码保护，密码：123

老师，为什么我修改了下密码就不行了呢？ Sub AutoShape3_Click() Dim i%
ActiveSheet.Unprotect Password:="123"
i = Right(Range("j2").Value, 6) + 1
Range("j2").Value = "ksjg" & Format(i, "000000")
ActiveSheet.Columns("H").Hidden = True
Application.ActiveSheet.PrintOut copies:=1
ActiveSheet.Columns("H").Hidden = False
ActiveSheet.Protect Password:="123"
ActiveSheet.EnableSelection = xlUnlockedCells
End Sub

能告诉我哪里更改自己想换的密码吗

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

[已解决]Excel如何打印时候自动隐藏指定列

相关帖子