[已解决]自杀代码错出错了？

homebaby2013

写了一串代码，让文件打开就自杀，但是出错了，不知何故，求大神解释下，谢谢

最佳答案

月排行榜 / 总排行榜

zjdh

2014-1-15 10:51

Private Sub Workbook_Open()
    With ThisWorkbook
        .ChangeFileAccess xlReadOnly
        Kill ActiveWorkbook.FullName
        .Close False
    End With
End Sub

跳转到最佳答案楼层

hwc2ycy

工作簿1.rar (10.63 KB, 下载次数: 20)

2014-1-15 10:42 上传

点击文件名下载附件

hwc2ycy

10下测试是可以的，代码没有错。

zjdh

Private Sub Workbook_Open()
    With ThisWorkbook
        .ChangeFileAccess xlReadOnly
        Kill ActiveWorkbook.FullName
        .Close False
    End With
End Sub

zjdh

没有“=”

homebaby2013

zjdh 发表于 2014-1-15 10:53
没有“=”

谢谢，可以了

homebaby2013

hwc2ycy 发表于 2014-1-15 10:43
10下测试是可以的，代码没有错。

谢谢老师

夻羽

编码大神们，想问下你们，怎么让做视频代码  就像（全城目击）里面那种 发过去不能拷贝，半小时内后自杀掉。有没有办法。或者这视频只能播放10次  不能拷贝，次数完了就自杀了。。。。。