主题：[求助]用*代替表格原来的内容后，复制粘贴出来仍然会显示真实的值？

    e.Text = "****" '那么用*代替原来的内容
End IF

 你可以直接把这一列隐藏起来啊。

 

Tables("表A").Cols("密码").Visible = False

 你也可以多加一列，一列存放显示的值，一列存放真实的值，然后把存放真实的值的列隐藏起来。

不好意思，需求没描述清楚。实际需求是：不能隐藏整列，只是不想让不满足条件的登录用户看到该列中某些单元格的真实的值，这些值用*代替，不管用户用复制粘贴还是把数据导出到excel表中，这些表格的值都是用*显示的。我另外举个例子，比如有张订单表，里面记录了10个产品的销售记录。但是其中有两个产品的销售记录中值允许特定用户看到数量，金额显示为*；剩下8个产品的销售记录，该用户既可以看金额又可以看数量。如果隐藏金额列，那该用户所有的产品销售记录中的金额都看不到了。

 加一列临时列显示内容，把实际的列隐藏起来。

 

谢谢，红袍老师。但是加列临时列显示内容，上面还是存在啊

 

既然是不重要的列，里面要填入或显示什么内容，你都可以用代码控制啊。

 

不会做，说明逻辑，上传实例。