-
1 # Excel技術分享
-
2 # 荒川吹雪
題主，你好！
我曾在自己做的資料分析系統中，透過vba來實現過這個功能。
我做此功能的目的，主要是我要為資料系統不斷升級更新，我是不允許寫著自己名字的表格存在低效率、甚至低階錯誤的。設定有效期的話，就可以讓使用者手裡拿到的永遠是最高階的系統，你最精華的成品。
好，閒言少敘，開始上菜~~~~
以上程式碼在thisworkbook 的open事件中，直接call就可以啦
最後：重要的事情說三遍，
編寫以上程式碼之前，請務必備份，俗話說資料無價，悔之晚矣。
編寫以上程式碼之前，請務必備份，俗話說資料無價，悔之晚矣。
編寫以上程式碼之前，請務必備份，俗話說資料無價，悔之晚矣。
-
3 # excel圖表
excel中如何設定excel表格到期後不能使用?要運用VBA去解決。
一、模板展示這個表格可使用的時間是一個月，當期後便不能使用，為了方便起見，我將當前時間改為到期時間，看下效果。
以上模板可實現表格到期後，不能使用。
二、製作步驟1、初始資料準備：初始時間，當前時間，到期時間，限制時間，可根據自己的要求調整限制時間。
2、時間自動更新：調出VBA視窗，插入一個模組，複製貼上以下程式碼：
3、到期判斷，調出VBA視窗，複製貼上以下程式碼：
4、最後設定宏的保護密碼即可
-
4 # 雷哥office
看到各位老師的回答都是VBA方法。今天雷哥給大家分享1種方法-條件格式
問題分析：到期後表格不能使用，即到期後開啟Excel表格，無法看到資料即可。
具體方法如下step1： 選中資料，單擊【條件格式】——【新建規則】；
step2： 在新建格式規則中，單擊【使用公式確定要設定格式的單元格】，輸入公式
=today()-$F$6>0；
step3: 單擊格式——自定義——型別輸入【;;;】即可
解釋: 當滿足這個 today()-$F$6>0 條件時，工作表中的資料就無法顯示了。
最後把F列資料設定為無法編輯即可哈。~ 這樣到期後，資料表格就無法使用啦~~~
為了讓大家看的更加清晰明瞭，雷哥進行了案例解釋：
今天是05-12，因此today() 就表示5-12
① 如果F6為 2019-05-11， 那麼滿足today()-$F$6>0 條件，因此資料無法顯示；
②如果F6為2019-05-13， 那麼今天不滿足today()-$F$6>0 ，因此資料可以顯示，後天（2019-05-14）開始，資料就無法顯示了。
-
5 # Excel和VBA
其實並不難，透過VBA可以實現，我近期正在分享相關的內容，上下程式碼
Private Sub Workbook_Open()Dim tt = DateIf t = #5/12/2019# Then a = MsgBox("檔案已損壞！", vbInformation) ActiveWorkbook.CloseEnd IfEnd Sub主要是實現工作薄開啟即判斷系統的日期，如果等於我們設定的日期，就彈出報錯視窗並強制關閉，等於無法開啟工作薄。
https://www.toutiao.com/i6688592929948172808/
-
6 # 小白影片資源
Excel無法就是用VBA來設定，但是如果使用者宏沒開啟，就沒有效果了；
所以要想做檔案管控，最根本的辦法還是用軟體；
推薦使用ACCESS開發使用者介面來控制。
-
7 # 永中軟體
Excel中如何設定表格到期後不能使用？為了保障工作表安全，大多數情況下需要設定時間限制來保護單元格內容，下面來介紹具體操作。
第一步，選中工作表內容，右鍵選擇【設定單元格格式】；
第二步，將【設定單元格格式】頁面切換至【保護】，取消勾選【鎖定】；
第三步，選中左下角工作表名稱，右鍵選擇【檢視程式碼】；
第四步，在程式碼介面中輸入以下內容：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)On Error Resume NextWith TargetIf .Value <> "" ThenPW = InputBox("請輸入密碼")If PW <> "123456" ThenCells(1, 1).SelectElseExit SubEnd IfEnd IfEnd WithEnd Sub第五步，為了保護單元格以及內部程式碼，選中sheet，右鍵選擇【VBAProject屬性】，勾選鎖定工程以及設定檢視工程時的密碼；
第六步，完成VBA設定後，在表格介面進行編輯時，將會彈出輸入密碼介面。
Excel中如何設定excel表格到期後不能使用的操作步驟介紹完畢，希望可以幫助到大家~
回覆列表
沒有絕對的到期後不能使用。
如果單純從EXCEL應用角度來說，無法透過軟體設定來達到到期就無法使用的目的。
如果EXCEL是啟用了宏的，裡面的功能是透過VBA來實現的
那麼倒是有個變通的方法：
在VBE的thisworkbook的開啟事件OPEN中加入如下程式碼：
Private Sub Workbook_Open()
If Date >= #7/20/2018# Then
With ThisWorkbook
.Saved = True
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close
End With
End If
End Sub
然後你儲存後再開啟試試效果。