前景提要(報表數(shù)據(jù)也有有效期 數(shù)據(jù)保護更加隱蔽高明）
之前我們分享了如何通過簡易登錄窗體的方式來保護我們的關(guān)鍵數(shù)據(jù)野哭，這是一種非常暴力的方式挂滓，使用我們的電腦的人，如果想要查看我們的數(shù)據(jù)膀懈，或者要打開我們的數(shù)據(jù)富岳，都必須輸入相應的密碼才可以，對于多班次多崗位同事共用一臺電腦的公司陈瘦，這個方法應該是比較有效果的幌甘，但是又有點太直接了，比方說其他同事想要當面找你要數(shù)據(jù)參考下痊项，你總不能直接拒絕吧锅风，畢竟大家一個公司的嘛，那今天和大家分享一下比較隱蔽一點的數(shù)據(jù)保護的方式鞍泉，來皱埠，快關(guān)門~
場景模擬
假設有同事想要看看你的數(shù)據(jù)，但是他對你又有提攜之恩咖驮，不好拒絕漱逸，但是嘛你自己的數(shù)據(jù)畢竟是你辛苦得到的，拒絕有不好游沿，不拒絕又不好饰抒，那怎么辦？簡單點诀黍，我設置個有效期嗎袋坑，假設我給你看一天，明天你打開的時候眯勾，這個工作薄就什么都看不到了枣宫，是不是好神奇，來吃环，上案板也颤，不上案例
代碼區(qū)
非常簡單
Private Sub Workbook_Open()
Dim t
t = Date
If t = #5/8/2019# Then
a = MsgBox("文件已損壞！", vbInformation)
ActiveWorkbook.Close
End If
End Sub
咦郁轻，代碼好像很簡單哦翅娶，真的可以實現(xiàn)這樣的功能嗎文留？來看看效果
對方接受了你的文件之后，到期后會提示
為什么會損壞呢竭沫，你不知道他不知道燥翅，大家都不知道，反正他的數(shù)據(jù)是看不成了蜕提，然后她有不好意思再找你要一份了森书，so，計策是不是很成功呢谎势？哈哈
代碼分析
看到代碼的外框架凛膏，大家就知道這一段代碼應該寫在哪里了吧
還是需要寫在這里，如果寫在其他的地方是不靈驗的哦
代碼的內(nèi)容也很簡單脏榆，當執(zhí)行了報表的打開命令之后译柏，就是會執(zhí)行下面的代碼
t = Date
先獲取當前的日期
然后進行判斷當前的日期，是否等于我們要設置的有效期的截止日期
If t = #5/8/2019# Then
a = MsgBox("文件已損壞姐霍！", vbInformation)
ActiveWorkbook.Close
End If
這里要注意日期的寫法鄙麦，日期之間要加上#****#，在VBA中镊折，這是日期的寫法胯府，這樣表示中間的代表的是日期
如果日期等于我們設定的日期，就會彈出我們預設的窗口（換成感嘆號好一點）
當然內(nèi)容你可以自己組織咯恨胚，文件損壞啊骂因，或者什么網(wǎng)上找的更加專業(yè)的報錯之類的，反正就是讓對方認為文件壞了赃泡，當他點擊了確定之后寒波，
ActiveWorkbook.Close
文件自動關(guān)閉，這個大家已經(jīng)很熟悉了升熊。
