Vba实现彻底禁止表格内容复制,表格到期自动删除

2023-02-17 13:58:35 浏览数 (1)

分析:表格内容复制的方法

  1.  直接选择单元格进行复制。
  2.  复制表格到新的或者空白的工作簿
  3. 另存为其他格式表格

如何强制使用VBA

  1. 将所有表格的Visible属性设置为完全不可见,编写表格打开事件代码,打开时自动显示表格。不运行Vba时只显示空白表格。
  2. Vba工程资源设置密码。
  3.  退出表格时将所有数据表改为完全不可见。
  4. 打开时调用工作簿结构保护,退出时解锁隐藏所有表。

禁止单元格复制

  1. 编写表格选择事件,让只有指定范围的单元格才能被选中。
  2. 编写定时任务,以1秒一下的运行速度,定时清空剪贴板。

禁止表格复制

  1. 编写Excel应用新增表格事件,只要新增表格就退出软件。
  2. 通过事件,禁止另存为

表格到期删除

  1. 选择一个单元格记录时间,定时任务减小数值,为零时新建空白表,关闭错误提示,Delete删除其他表格,Save保存表格。
  2. 将时间保存到注册表,退出更新值。

实践发现的问题

  1. 新建表格事件能正常触发,但是复制表格产生新表格是触发不了的。

最终解决

  1. 监听鼠标右键,按下后改变选择区域。
  2. 监听ctrl c,按下触发指定宏,清空剪贴板。

0 人点赞