excel加密宏
⑴ 如何用宏給EXCEL文件加密碼
1.啟動Excel，執行「工具→宏→Visual Basic 編輯器」命令，進入VBA編輯狀態(如圖1)。進入VBA編輯狀態。
2.在左側的「工程資源管理器」窗口中，選中「VBAproject(PERSONAL.XLS)」(個人宏工作簿)選項。
3.執行「插入→模塊」命令，插入一個模塊(模塊1)。
4.將下述代碼輸入到右側的代碼編輯窗口中：
Sub Auto_close()
ActiveWorkbook.Password = "123456"
ActiveWorkbook.Save
End Sub
退出VBA編輯狀態。
注意：這是一個退出Excel時自動運行的宏，其宏名稱(Auto_close)不能修改。
5.以後在退出Excel時，軟體自動為當前工作簿添加上密碼(123456，可以根據需要修改)，並保存文檔。
⑵ 如何對excel中的宏設置密碼保護
在單位經常是多個人共用一台電腦，這樣一來，自己製作的Excel表格，不希望別人查看，我們可以為其設置密碼。
1、啟動Excel，打開相應的工作簿文檔，執行「工具→選項」命令，打開「選項」對話框。
2、切換到「安全性」標簽下，在「打開許可權密碼」右側的方框中輸入密碼，按下「確定」按鈕，再輸入一次密碼，確定返回。
3、保存一下文檔。
經過這樣設置後，如果需要打開該工作簿時，必須輸入正確的密碼，否則無法打開。
注意：打開「選項」對話框，切換到「安全性」標簽下，把「打開許可權密碼」右側的方框中的密碼清除，確定返回，再保存一下文檔，即可清除文檔的密碼。
1.在「文件」中選擇「另存為」 2.在「另存為」對話框的右上角點「工具」 3.在「工具」下拉菜單中選擇「常規選項」 4.在打開的對話框中輸入密碼，點「確定」即可。
⑶ excel 宏或代碼如何加密
從VBA編輯窗口工具欄的：工具→VBAProject屬性→保護→鎖定工程（點中查看時鎖定工程）→查看工程屬性密碼→密碼（在此框中輸入密碼）→確認密碼（在此框中再次輸入密碼）→確定→保存退出，下次打開的時候就要輸入正確的密碼，才能看到代碼的。具體請看下面的動畫圖（雙擊圖可以看的更清楚些）。
⑷ 如何對Excel內的宏設置密碼
設置打開密碼只有以下兩句就好了
ActiveWorkbook.Password = "tt"
ActiveWorkbook.WritePassword = "yy"
對於保護密碼設置可以參考如下內容。
對Excel工作表實現口令保護利用VBA調用Worksheet對象的Protect方法對工作表進行保護。
Protect帶有以下參量：Password 用於保護工作表的口令。Drawingobjects 若為True，則對工作表中的Drawingobjects對象進行保護,預設值為True。Contents 若為True，則對單元格內容進行保護，預設值為True。下面程序代碼完成對工作表「基礎數據表」的保護：
Sub 保護工作表（）
Worksheets（〃基礎數據表〃）.Protect Password:="1234"
End sub
對工作表實現隱藏保護，使他人無法看到工作表：利用VBA設置Worksheet對象的Visible屬性來隱藏工作表；Visible屬性的值為以下三個值中的一個：
True 工作表為顯示狀態。
False 工作表為隱藏狀態。
XlVerHidden 工作表為隱藏狀態，且用戶不能通過「取消隱藏」對話框將其改為顯示狀態。當Visible的值為XlVerHidden時，只能利用VBA將其重新設置為True。
Sub 隱藏工作表（）
Worksheets("基礎數據表").Visible=False
End sub
⑸ Excel中如何用宏加密單元格A1:A10數據
加密只需要工作表保護即可，不需要宏來加密
設置A1:A10的單元格格式為自定義「;;;」，把字體顏色設置為白色
選擇A1:A10，右鍵設置單元格格式，屬性「隱藏」和「鎖定」都勾選。
然後選擇保護工作表。這樣A1:A10中的數據就被隱藏和鎖定了
如果你只是想讓A1:A10的內容不被他人編輯，但可以看到。其它單元格允許編輯的話
就用下面這個方法了
選擇所有單元格，然後右鍵設置單元格格式，屬性「隱藏」和「鎖定」都不要勾選。
選擇A1:A10，右鍵設置單元格格式，屬性「隱藏」和「鎖定」都勾選。
然後選擇保護工作表。
保護工作表時可以設置密碼和其它勾選項目。
自己慢慢研究一下
⑹ Excel宏加密後,無論創建、刪除還是編輯均需密碼,如何破解
1、我新建一個excel文件（.xlsx格式的）來測試破解過程，其它文件可以參考，但最好要備份原來的文件,設置工作表、工作薄為密碼保護，保存後
⑺ 寫好Excel宏怎麼樣加密
Excel表格是我們工作中經常用到的，而它往往涉及統計數據等敏感問題，因此，Excel表格的保護也是經常遇到的問題，如何安全使用Excel呢？我們常用到的是Excel「工具」菜單提供的「保護工作表」和「保護工作簿」功能。有沒有其他方法呢？
用宏進行「顯式」加密
在需要加密的Excel 表中，點擊[工具]→[宏]→[Visual Basic編輯器]，打開「工程資源管理器」，雙擊該工作表，在右邊的是設置該表屬性的編輯窗口，單擊該窗口左上方的下拉列表框，選擇Worksheet，再從該窗口右上方的列表框中選擇Activate(激活)（如圖）。
察看原圖 發送到手機
添加如下代碼：（假設「123」為密碼，Sheet1為限制許可權表格，Sheet2為工作簿中為任何適合的工作表）
Private Sub Worksheet_Activate()
Sheets("sheet1").Cells.Font.ColorIndex = 2 '設置文字顏色為白色
If Application.InputBox("請輸入密碼:") = 123 Then
Range("A1").Select
ActiveSheet.Cells.Font.ColorIndex = 56
' 設置文字顏色為黑色
Else
MsgBox "密碼錯誤，即將退出!"
Sheets("sheet2").Select
End If
End Sub
每次當你選擇該「加密」表的時候都會彈出對話框要求輸入密碼，正確則進入該表（Sheet1），否則會選擇其他表（Sheet2）。
用宏進行「隱式」加密
「顯式」加密，雖然可以讓沒有密碼的使用者無法看到「加密」表格，但是每次選擇該表格時都會彈出對話框，實在不方便而且給其他用戶一種被防範的不舒服感覺。於是筆者就想出了下面的「隱式」加密方法。假如要加密的是Sheet1，我們可以設置在Sheet2的「A1」單元格為密碼的輸入處。於是修改以上代碼如下：
Private Sub Worksheet_Activate()
Sheets("sheet1").Cells.Font.ColorIndex = 2'設置文字顏色為白色
If Sheets("sheet2").Cells(1, 1) = 123 Then
Range("A1").Select
ActiveSheet.Cells.Font.ColorIndex = 56
' 設置文字顏色為黑色
End If
End Sub
設置好以後，只有Sheet2的（A1）單元格為密碼「123」時「加密」表Sheet1的內容才顯示出來，否則就是透明的，神不知鬼不覺；所謂「隱式」。
「隱式」加密雖然保證了沒有密碼的用戶不能查看「加密」表格的內容，但是不能保護其他用戶對其進行修改。所以我們要綜合運用上面所說的「保護表格」和「隱式加密」對要保密的表格進行設置。