Question

求Excel文件限制打开次数而自动删除的代码

Answer 1

1、你在不启用宏的情况下打开文件，不受次数限制。
2、进入宏把宏语句删除。但可能vba工程已加密，如果方便发至huaich@163.com帮你处理一下，

追问

我的意思是一个工作表我用vba限制他的打开次数！比如限制三次，打开三次以后工作表也就自动删除了，我不懂vba，所以求个代码

追答

你是想设置VBA来控制次数对吗？代码如下 ：
Private Sub Workbook_Open()
ActiveWindow.DisplayWorkbookTabs = True
ActiveWindow.DisplayHeadings = True
ActiveSheet.Range("a1:a" & Rows.Count).EntireRow.Hidden = False
AAA = GetSetting(appname:="MyApp", section:="Startup", Key:="使用次数", Default:=1) '次数限制
MsgBox "你还可以使用的次数为" & (3 - AAA) & "次,请尽快和作者联系!"
If AAA = 20 Then
DeleteSetting "MyApp", "Startup"
MsgBox "系统将被删除,感谢您的试用!再见"
ActiveWorkbook.ChangeFileAccess xlReadOnly
Kill ActiveWorkbook.FullName
ThisWorkbook.Close False
End If
AAA = AAA + 1
SaveSetting "MyApp", "Startup", "使用次数", AAA
End Sub

追问

你好，谢谢你！到达次数以后他不删除文档啊

能给个达到次数后直接删除文档的吗！

比如限制使用次数是三次！当打开第四次的时候文档自动删除了！谢谢你！

追答

我设置的是10次，你继续打开文件，直到10次,文件就会自杀（删除）