[求助]求PPT自杀VBA代码

jeo · 发表于 2008-8-24 15:41

求可以让PPT文档自杀的VBA代码，比如：超过一定时间或超过设定的打开次数后PPT自杀。

EXCEL的好像很多，但PPT的没见过。

含笑 · 发表于 2008-11-15 02:43

自杀就是自动删除吧？这个是个好东西！但是如果别人电脑上的VBA安全级别不够，那就自杀不了，惨了。

kklion · 发表于 2009-1-4 17:23

原帖由含笑于 2008-11-15 02:43 发表
自杀就是自动删除吧？这个是个好东西！但是如果别人电脑上的VBA安全级别不够，那就自杀不了，惨了。

给个思路大家解决这个问题
例如LZ这个VBA级别不够，就不能实行自杀。我们逆向思维迫使用户自主打开VBA安全级别，不然连自杀都不需要了。

这是我之前关于Excel自杀写得一段代码，内容大概是不打开VBA安全级别就不能查看关键数据，打开了又必须遵守我的自杀规则。
希望我这段思路能帮LZ解决这个问题！

Done.xls文件中的VBA代码
============================================================================
Sub sheet1Visible()
'工作簿打开时将Sheet1显示
Sheet1.Visible = -1
End Sub
Sub Killer()
'关闭并删除当前工作薄
With ThisWorkbook '定义当前工作薄为操作对象
      .Saved = True '关闭保存提示
      .ChangeFileAccess xlReadOnly  '将工作薄属性定义为只读
      Kill .FullName  '删除当前工作薄
      .Close False '关闭程序
End With
End Sub

Private Sub Workbook_Open() '在工作薄打开时运行以下过程
'如果日期在指定时间之前就运行Sheet1Visible 否则运行Killer
If Date <= #12/31/2008# Then Call sheet1Visible Else Call Killer
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean) '在工作薄关闭前运行以下过程
With Sheet1 '定义sheet1为操作对象
Sheet1.Visible = 2 '高级隐藏Sheet1
End With
ActiveWorkbook.Save '保存当前工作薄
End Sub
=====================================================================

莫悠悠 · 发表于 2013-10-11 17:11

PPT自杀能有个成功案例？

一笔书天地 · 发表于 2020-12-6 19:54

这个厉害了学习一下

fdgr12053 · 发表于 2021-1-8 20:14

厉害，我学习一下

superwil · 发表于 2022-2-17 14:19

小白表示不知道，怎样把这个放进excel中~~

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