vba定時加密

④ excel2010vba加密的方法

在 Excel 中除了可以利用設置外還可以利用VBA編程進行加密，利用VBA編程可以令加密更加嚴謹，下面是由我分享的excel2010 vba加密的 方法 ，希望對你有用。

利用VBA加密步驟1：對想發布自己的Excel VBA的開發者來說，Excel VBA本身不提供VBA代碼的加密，封裝。目前比較最可靠的Excel VBA代碼加密的方法，就是把VBA代碼編譯成DLL(動態鏈接庫文件)，在VBA中調用，從而實現VBA代碼的加密，封裝，方便和Excel文件整合發布出去。DLL文件基本沒法被破解，除此之外其他的VBA加密方法，都可以被輕易破解。用戶只需要你的Excel文件，和這個dll文件就夠了，不必安裝其他任何程序。

利用VBA加密步驟2：編譯成DLL文件其實很簡單。機子上安裝Visual Basic 6.0就可以編譯成dll文件了，Visual Basic .Net反倒有點麻煩。Visual Basic通過OLE(對象鏈接引擎)技術調用Excel以及其中的對象。

利用VBA加密步驟3：總的來說，VBA代碼只要做一些簡單修改就可以了。主要是對Excel對象的引用，不然VB不能識別vba代碼中的對象。比如如下的VBA代碼

windows(workbook1).activate

range("L50")=1

直接放進VB中編譯成Dll就會有問題，因為VB不能直接識別range對象。

需要添加幾行簡單的代碼來告訴vb怎麼引用excel中的這些對象：

dim xlapp as excel.applicatiion

dim xlbook as excel.workbook

dim xlsheet as excel.worksheet

set xlapp=getobject(,"excel.application)

set xlbook=getobject(xxx)

set xlsheet=xlbook.worksheets(1)

利用VBA加密步驟4：然後就照搬你原有的vba代碼,但是前面加上對象引用：

xlsheet.range("L50")=1

利用VBA加密步驟5：對VBA代碼做這樣修改，在VB中調試通過，就可以成功的把多個sub子程序全部編譯封裝在一個單獨的DLL文件了。以後直接在VBA中引用這個DLL文件中的各個sub子程序。原來大段的VBA代碼全部被封裝在DLL文件中，對用戶不可見。

利用VBA加密步驟6：開發者還可以在程序運行前顯示軟體的版權信息，設置密碼。因為這些也封裝在DLL文件中，所以用戶沒法破解。

1、用數據有效性定義數據長度。

用滑鼠選定你要輸入的數據范圍，點"數據"->"有效性"->"設置"，"有效性條件"設成"允許""文本長度""等於""5"(具體條件可根據你的需要改變)。

還可以定義一些提示信息、出錯警告信息和是否打開中文輸入法等，定義好後點"確定"。

2、用條件格式避免重復。

選定A列，點"格式"->"條件格式"，將條件設成“公式=COUNTIF($A:$A,$A1)>1”，點"格式"->"字體"->"顏色"，選定紅色後點兩次"確定"。

這樣設定好後你輸入數據如果長度不對會有提示，如果數據重復字體將會變成紅色。

⑤ 怎麼給VBA加密呢

VBA是什麼？
如果是普通的文件或者文件夾，你可以試試文件夾加密超級大師。
加密方法就和加密普通文件夾一樣，先下載，然後在需要加密的文件上點擊滑鼠右鍵，輸入密碼，然後點擊確定就OK了。

⑥ EXcel定時加密

我只負責幫你做定時器。

在Excel的宏界面，在左上窗口裡找到本工作簿的ThisWorkbook，雙擊它，在右邊輸入

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
StartTime = Now
Application.OnTime StartTime + 5 / 60 / 24, "test"
End Sub

Private Sub Workbook_WindowActivate(ByVal Wn As Window)
StartTime = Now
Application.OnTime StartTime + 5 / 60 / 24, "test"
End Sub

Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
StartTime = Now
Application.OnTime StartTime + 5 / 60 / 24, "test"
End Sub

然後點菜單的插入，模塊，粘貼如下代碼：

Public StartTime As Date

Sub test()
If Now - StartTime > 5 / 60 / 24 Then MsgBox "Yes"
End Sub

這個代碼可以實現，當有以下操作，5分鍾後顯示「Yes」（當然任何一個操作都會重新計時）：
激活這個工作簿
離開這個工作簿
工作簿中任意表格的選中單元格改變

⑦ 怎麼用vba給excel 加密

操作步驟：

1、打開Excel2007啟用宏的Excel文件。

注意事項：

ALT+F11鍵必須同時按下。

選擇對象必須明確是模塊設置密碼還是SHEET表文件整個設置密碼，看代碼輸入是在哪個對象內。

⑧ 怎麼用VBA寫一段寫文件在某到某一列完成自動加密代碼如需要更改需要解密，或怎麼用vba代碼在沒有鎖

你看這樣行不行（保護工作表狀態下解鎖B列輸入數據）

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim pass
If Target.Columns.Count > 2 Then '判斷選取的是否為B列，如果不是則維持原來的選取動作，即ActiveCell.Select
ActiveCell.Select
Else
If Target.Column = 2 And Columns("B:B").Locked = True Then '判斷如果是B列並且單元格已鎖定，執行下面的語句。這里判斷Columns("B:B").Locked = True的目的是防止選取B列單元格時不停的彈出輸入密碼提示框
pass = InputBox("歡迎訪問，請輸入第B列保護密碼", "錄入提示") '把InputBox對話框中輸入的密碼賦予變數pass
If pass = 123 Then '如果輸入的解除保護密碼正確，則運行解除工作表保護(ActiveSheet.Unprotect Password:=123456)和取消B列鎖定（Columns("B:B").Locked = False）的語句，最後再保護工作表（Sheets("第1節").Protect Password:=123456
ActiveSheet.Unprotect Password:=123456
Columns("B:B").Locked = False
Sheet8.Protect Password:=123456
MsgBox "密碼正確，請輸入數據"
Else
MsgBox "密碼錯誤！"
End If
End If
End If
End Sub

⑨ EXCEL過期自動加密VBA代碼

在VBA窗口，右鍵工作薄或者工作表名選擇VBAProject屬性，第二個選項卡「保護」，輸入密碼就可以對工程代碼加密了

⑩ excel有沒有辦法利用vba實現當文檔保存退出時自動加密

你問的不是加密文件吧（打開文件時候提示密碼），加密文件除非你另存刪除密碼，否則保存的時候默認是加密的啊，所以，你應該是指是保護工作表吧。
確實可以通過編程來讓文件退出時候自動設置保護，但問題在於：
設置/切換保護狀態，實際上標記了文件被修改，正常退出會應該會提示你保存文件。
如果你在VBA里強制保存的話可能會有問題，因為也許你之前做的改動並不想保存的。
而如果不保存呢，也一樣，你的保護狀態就不能被保存了。
並且在禁用宏的情況下，也很難保證，這樣就容易混亂。