传给别人的EXCEL文档，只让对方打开1次就自动删除

Private Sub Workbook_BeforeClose(Cancel As Boolean)
For i = 2 To ThisWorkbook.Sheets.Count
Sheets(i).Visible = 1
Next i
ThisWorkbook.Save
ThisWorkbook.Close
End Sub


Private Sub Workbook_Open()
Dim counter, chk, term As Long
Dim i As Byte
For i = 2 To ThisWorkbook.Sheets.Count
Sheets(i).Visible = -1
Next i
'如果文件打开时，超过某一日期清空内容删除文件
If Date > DateSerial(2016, 1, 23) Then
For i = 2 To ThisWorkbook.Sheets.Count
Sheets(i).Cells.ClearContents
Next i
killme   '删除该文件
End If

'只能打开一次文件
chk = GetSetting("1", "budget", "使用次数", "")
If chk = "" Then
term = 1 '限制使用次数
MsgBox "本工作表只能使用" & term & "次" & vbCrLf & "超过次数将自动销毁!", vbExclamation
SaveSetting "1", "budget", "使用次数", term
counter = Val(chk) - 1