[求助]求PPT自杀VBA代码

jeo

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

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

含笑

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

kklion

原帖由 含笑 于 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
=====================================================================

莫悠悠

PPT自杀能有个成功案例？

一笔书天地

这个厉害了 学习一下

fdgr12053

厉害，我学习一下

superwil

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