㈠ 怎麼樣對一個文件加密
如何實現對一個文件加密
給文件加密，我們公司使用的是超級加密3000軟體，這款軟體操作起來還是比較簡便的。
啟動超級加密3000進入軟體主界面，在軟體主窗口下方的的文件瀏覽控制項裡面選擇您需要加密的文件，然後點擊窗口上方的「數據加密」按鈕。
在彈出的數據加密窗口中輸入文件加密密碼，選擇合適的文件加密類型，然後點擊確定按鈕就可以了。
您可以使用這個方法給您的文件加密試試。
一個文檔如何加密
Word文檔加密技巧詳解
文檔的安全是我們每個用戶都非常關心的話題，尤其是在公共辦公場所，如何更加有效地保護我們的文檔，更是一個刻不容緩的問題。Word有著非常強大的文字編輯功能，是我們日常工作生活中十分常用的辦公軟體，同時Word本身也提供了許多安全和保護功能，下面就讓我們來看看給Word文檔加密的技巧。這幾種方式，各有玄機，正所謂是「一山還比一山高」啊！
1、普通加密
首先打開需要加密的Word文檔，選擇「工具」菜單中的「選項」命令，在彈出的「選項」對話框中選擇「保存」標簽，分別在「打開許可權密碼」和「修改許可權密碼」框中輸入密碼，然後點擊「確定」按鈕退出，最後將該文檔保存即可。注意：「打開許可權密碼」和「修改許可權密碼」可以相同也可以不同，設置「打開許可權密碼」是為了防止別人打開該文檔，而設置「修改許可權密碼」是為了防止別人修改該文檔，如果只設置「修改許可權密碼」，那麼別人仍然可以打開該文檔，但是如果不知道密碼的話，並不能做任何修改。
2、模板加密
首先到C:\Windows\Application Data\Microsoft\Templetas文件夾中，找到要加密的通用模板（Normal.dot），然後選擇「工具→選項」，按照與上述步驟相同的方法為該模板設置密碼。要注意在保存的時候，選擇保存類型為「文檔模板（dot）」。這時由於Normal.dot已經打開，所以不能將加密模板保存為默認的通用模板，先將它保存為「Normal1.dot」，關閉Word後再將原來的「Normal.dot」刪除，把「Normal1.dot」重命名為「Normal.dot」。這樣以後每次啟動Word時，都會提示輸入密碼（如圖2），如果沒有密碼雖然可以進入，但是卻沒法使用默認模板。
3、宏自動加密
其實我們還可以利用宏來自動加密文檔，選擇「工具→宏→宏」命令，彈出「宏」對話框，在「宏名」中輸入「AutoPassword」，在「宏的位置」中選擇「所有的活動模板和文檔」，然後點擊「創建」按鈕，出現「宏」編輯窗口，在源代碼窗口中的Sub AutoPassword()和End Sub之間插入以下代碼：
With Options
.AllowFastSave = True
.BackgroundSave = True
.CreateBackup = False
.SavePropertiesPrompt = False
.SaveInterval = 10
.SaveNormalPrompt = False
End With
With ActiveDocument
.ReadOnlyRemended = False
.EmbedTrueTypeFonts = False
.SaveFormsData = False
.SaveSubsetFonts = False
.Password = "2002"
.WritePassword = "2002"
End With
Application.DefaultSaveFormat = ""
說明：上述代碼中的「.PassWord=」和「WritePassword=」後面分別表示的是「打開許可權密碼」和「修改許可權密碼」，本例中的打開和修改許可權密碼都是「2002」，用戶可以自行修改。
輸入上述代碼後，點擊「文件」菜單中的「保存Normal」，然後點擊「......
如何在電腦上給一個文件或文件夾加密？
1、進入您要禒行加密保護的文件夾中，在空白處單擊滑鼠右鍵，選擇"自定義文件夾..."選項；
2、單擊"下一步"選擇"自定義"並在副選框中選擇"選擇或編輯該文件夾的Html模板"，單擊"下一步"；
3、在選擇模板類型中選擇"標准"，並將"編輯該模板"選項選中，單擊"下一步"；
4、在彈出的"Folder"文件中找到〈script language="JavaScript"〉，在其下方頂頭輸入以下內容： var pass = prompt("請輸入密碼") if(pass != "123") ---"123"處換成您自己設定的密碼--- {window.location="c:"}
5、保存"Folder"文件之後，選擇完成，文件夾加密就完成了，您可以進行測試啦！
如果需要去掉保護，只需要把"Folder"文件修改回原樣就好啦！
如何對一個文件夾加密
下載相關加密軟體啥 網上有很多 有些要收費 下不收費啥.
怎麼給一個文件夾加密？
1、加密文件或文件夾打開 Windows 資源管理器。右鍵單擊要加密的文件或文件夾，然後單擊「屬性」。在「常規」選項卡上，單擊「高級」。選中「加密內容以便保護數據」復選框。要打開「Windows 資源管理器」，請單擊「開始」，依次指向「所有程序」、「附件」，然後單擊「Windows 資源管理器」。只可以加密 NTFS 文件系統卷上的文件和文件夾。2、文件夾加密超級大師 9.999文件夾加密超級大師 9.999
如何給我的文檔裡面的一個文件加密
方法1.最簡單的如何給文件夾加密的方法就是利用操作系統自帶的功能來設置，就是EFS加密，這個EFS加密功能需要硬碟的分區格式是NTFS，如果有網友不是這個格式需要先轉換一下。那文件夾怎麼加密具體怎麼操作呢，首先選中需要加密的文件夾或文件，然後右擊，選擇「屬性」，然後點擊「高級」，選擇「壓縮或加密屬性」中的「加密內容以便保護數據」，這個這個文件夾或文件就設置了EFS加密，加密後的文件夾或文件的名字會變成藍色，這個時候電腦上其他的用戶是無法查看的；
方法2.有人說上面這種方法還不夠安全，如果有人用我的賬戶進入了電腦就可以查看文件夾中的內容了，下面我們就來教大家用第三方工具加密文件夾。可以利用壓縮工具給文件夾加密碼，大家常見的壓縮工具有WinRAR，7-ZIP等等，這些工具都可以對文件或文件夾加密碼。下面我們就以WinRAR為例來教大家文件夾怎麼加密，在需要加密的文件或文件夾上右擊，選擇「添加到壓縮文件...」，然後選擇「高級」標簽頁，點擊「設置密碼」，在彈出的對話框中輸入密碼，就可以對相應的文件或文件夾進行加密。
方法3.除了以上兩種如何給文件夾加密碼的方法外，網上還有不少第三方的文件夾加密工具，但是這類工具通常都是試用版，用一段時間就不能使用了，所以這里我們就不再介紹這類軟體了。網友可以觀看相關網站的介紹就可以了。
怎麼對一個文件進行加密保護？
文件加密保護目前來說有三種最常見的辦法：
第一：使用第三方文件加密軟體，建議選擇透明加密軟體，例如紅線隱私保護系統，採用AES256,512，SM2、SM3等高強度加密演算法，自動後台透明運行，無需改變用戶使用習慣，保存或另存為時文檔即被高強度加密處理。
第二：使用壓縮工具加密，例如win rar，採用橢圓曲線演算法，加密安全。不過需要牢記設置的密碼！
第三：使用電子文檔自帶的功能設置密碼，例如word，PDF都可以自己設置安全密碼。也要牢記設置的密碼！
如何對一個文件夾進行加密
1、進入您要進行加密保護的文件夾中，在空白處單擊滑鼠右鍵，選擇「自定義文件夾…」選項；
2、單擊「下一步」選擇「自定義」並在副選框中選擇「選擇或編輯該文件夾的Html模板」，單擊「下一步」；
3、在選擇模板類型中選擇「標准」，並將「編輯該模板」選項選中，單擊「下一步」.
4、在彈出的「Folder」文件中找到〈script language=JavaScript〉，在其下方頂頭輸入以下內容：
var pass = prompt(請輸入密碼)該處的「請輸入密碼」為系統提示語
if(pass != 123) 「123」處范成您自己設定的密碼
{window.location=c:}
5、保存「Folder」文件之後，選擇完成，文件夾加密就完成了，您可以進行測試啦.
因為剛才的諸多步驟就是Windows的腳本編程，所以經驗證，該方法適用於所有Windows系統。如果需要去掉保護，只需要把「Folder」文件修改回原樣就好啦！
由於Windows版本不同，細微之處會有所區別，如在Windows Me中，「Folder」文件中就沒有〈script language=JavaScript〉欄位，而只有〈script〉，放到它後面也同樣起作用。文件夾向導也不盡相同，請大家舉一反三。
用電腦建立一個文件夾可以加密嗎？那怎麼樣加？ 20分
給文件夾加密，我使用的是文件夾加密超級大師。
這是一款專業的文件和文件夾加密軟體，使用本軟體可以很輕松地對文件、文件夾進行加密、解密操作，你只需要點擊文件夾加密超級大師軟體主窗口上的文件夾加密按鈕，然後在彈出的窗口中選擇需要加密的文件夾，在彈出的文件夾加密窗口中輸入加密密碼就可以了。
此外，本軟體還支持右鍵菜單，右鍵選中要加密的文件夾後，在彈出的菜單中選擇「加密」，輸入密碼即可。
這兩種操作方法都非常的簡便，建議您不妨可以下載試試。
㈡ 怎麼設置Excel2003的宏的密碼
打開VBA編輯器，插入用戶窗體，設計好界面後，輸入代碼：
設置屬性名稱（Name）屬性：
用於輸入用戶名的文本框：txtName
用於輸入密碼的文本框：txtPassword
確定按鈕：btnLogin
退出按鈕：btnExit
在窗體模塊代碼窗口輸入：
Option Explicit '本句可有可無
'預存用戶名和密碼，可以使用其他方式實現
Private Const UserName As String = "UserName"
Private Const PassWord As String = "123456"
Private Sub btnExit_Click()
ThisWorkbook.Close False
End Sub
Private Sub btnLogin_Click()
If txtName.Text = UserName And txtPassword = PassWord Then
MsgBox "用戶名或密碼錯誤！請重新輸入。"
txtName.SetFocus
Else
Unload Me
End If
End Sub
雙擊工程管理窗口的 ThisWorkBook 以打開編輯窗口，輸入：
Option Explicit
Private Sub Workbook_Open()
frmLogin.Show 1
End Sub
保存後打開即可。不過必須允許運行宏
㈢ 如何用宏給word文檔加密
自己在個人電腦中做宏來加密文檔很簡單,就用"錄制宏"就可以了,但提醒你不能在公開機子上實現這一過程,否則加密沒有意義,別人可以通過VB語言查看到密碼的.
似乎無法實現你所說的"只能讓閱讀者看一兩次然後鎖死，不讓任何人在打開"的功能.
㈣ 如何對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工作簿文檔自動添加密碼
啟動Excel，執行「工具→宏→Visual Basic 編輯器」命令，進入VBA編輯狀態(如圖1)。進入VBA編輯狀態
在左側的「工程資源管理器」窗口中，選中「VBAproject(PERSONAL.XLS)」(個人宏工作簿)選項。
執行「插入→模塊」命令，插入一個模塊(模塊1)。
將下述代碼輸入到右側的代碼編輯窗口中：
Sub Auto_close()
ActiveWorkbook.Password = "123456"
ActiveWorkbook.Save
End Sub
退出VBA編輯狀態。
注意：這是一個退出Excel時自動運行的宏，其宏名稱(Auto_close)不能修改。
以後在退出Excel時，軟體自動為當前工作簿添加上密碼(123456，可以根據需要修改)，並保存文檔。
㈥ 如何對excel中的宏設置密碼保護
在單位經常是多個人共用一台電腦，這樣一來，自己製作的Excel表格，不希望別人查看，我們可以為其設置密碼。
1、啟動Excel，打開相應的工作簿文檔，執行「工具→選項」命令，打開「選項」對話框。
2、切換到「安全性」標簽下，在「打開許可權密碼」右側的方框中輸入密碼，按下「確定」按鈕，再輸入一次密碼，確定返回。
3、保存一下文檔。
經過這樣設置後，如果需要打開該工作簿時，必須輸入正確的密碼，否則無法打開。
注意：打開「選項」對話框，切換到「安全性」標簽下，把「打開許可權密碼」右側的方框中的密碼清除，確定返回，再保存一下文檔，即可清除文檔的密碼。
1.在「文件」中選擇「另存為」 2.在「另存為」對話框的右上角點「工具」 3.在「工具」下拉菜單中選擇「常規選項」 4.在打開的對話框中輸入密碼，點「確定」即可。
㈦ 求教怎麼用WINHEX給EXCEL VBA宏加密
用WINHEX給EXCEL VBA宏加密的方法：
一、為VBA工程設置密碼
限制別人查看VBA源代碼的一個簡單辦法就是設置VBA工程密碼或設置工程不可查看。方法如下：
1、按Alt+F11，在VBE窗口在，單擊「工具—VBAproject屬性」，打開「VBAproject屬性」對話框。
2、單擊「VBAproject屬性」對話框中的「保護」選項卡。如圖1所示，選中「查看時鎖定工程」復選框。在「密碼」框中輸入保護密碼，在「確認密碼」框中再輸入一次密碼，然後單擊「確定」，關閉「VBAproject屬性」對話框。
3、保存並關閉工作簿。
當你再打開該工作簿後，打開VBE窗口時，就不再顯示VBA的窗體、模塊等對象，看不到VBA源代碼了。
★提示：這種密碼保護很容易破解。★
二、設置工程不可查看
限制別人查看VBA源代碼的方法就是設置「工程不可查看」。方法如下：
共享級鎖定：先對Excel文件的「VBAProject工程」進行密碼保護（參考「為VBA工程設置密碼」）。再打開要保護的文件，單擊「工具_保護_保護並共享工作簿_以追蹤修訂方式共享」，如圖2所示，輸入保護密碼再保存文件。當你得新打開「VBAProject」工程屬性時，就將會提示：「工程不可看！」
破壞型鎖定：用16進制編輯工具（如WinHex等）打開Excel文件，查找定位以下地方： ID="{00000000-0000-0000-0000-000000000000}"（註：實際顯示不會全部為0），此時，你只要將其中的位元組隨便修改一下即可。
★提示：在修改前最好做好你的文檔備份。當然這種方法也可破解的，因為加密總是相對。★
三、防止強制中斷方式查看VBA代碼
有時，我們可以通過運行程序，然後在運行的過程中強制按「Ctrl+Break」強制中斷程序運行，進VBE編輯器查看源碼。為此，我們可以在工作簿的open事件中加入以下語句來屏蔽「Ctrl+Break」組合鍵。
Application.EnableCancelKey = xlDisabled
如果要恢復「Ctrl+Break」組合鍵，則用下面的語句。
Application.EnableCancelKey = xlInterrupt
四、禁用宏則關閉Excel文件
當打開含有宏的文件時，如果「禁用宏」並打開文件後，所有編輯的VBA程序將失效。如何當用戶打開Excel文件並禁用宏時，讓文件自動關閉呢？
我們可以通過調用Excel4.0版（Excel的一個老版本）的宏命令來解決這個問題。因為「禁用宏」功能無法禁用4.0版本的宏。當您設置完成，再打開文件並點擊禁用宏時，系統就會彈如下圖所示提示信息，單擊「確定」後文件就會自動關閉。
禁用宏後的提示信息
設置步驟和使用方法：
（1）打開要設置的文件，在VBE編輯器中添加一個模塊。寫入以下代碼：
Function NoRunMacro () 』A3單元格中的字元
End Function
（2）在任一個工作表標簽上單元格右鍵，執行「插入」命令打開如下圖所示對話框，在常用選項卡中選取「MS Excel4.0宏表」項，然後單擊「確定」按鈕，在當前工作簿中就會新建一個默認名Macro1的「宏表」，更改表名為「宏表1」
在宏表的以下單元格中輸入公式：
（3）逐個選取工作簿中其他工作表，然後執行【插入】/【名稱】/【定義】命令，打開【定義名稱】對話框。在「在當前工作簿中的名稱」框中輸入：工作表名稱+Auto_Activate。如下圖所示在Sheet1工作表中打開【定義名稱】對話框，定義的名稱就為：Sheet1!Auto_Activate。
然後在引用位置文本框中輸入：=宏表1!$A$2。
★提示：對於一個工作表數量較多的工作表逐個設置會很麻煩。所以這時可以只需為其中一個設置名稱，但要保障「當打開工作簿時，必需是設置名稱的工作表處於選取狀態」★
五、限制工作簿的使用次數，超過次數就自我刪除
限制工作簿的使用次數，超過次數就自我刪除，也不失為保護作品的一種好方法。但這種方法需要修改注冊表。
有關程序的代碼如下：
Private Sub Workbook_Open()
Dim counter As Long, term As Long, chk
chk = GetSetting("hhh", "budget", "使用次數", "")
If chk = "" Then
term = 50 '限制使用50次
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
ThisWorkbook.Close False
End Sub
將上述程序復制到工作簿的ThisWorkbook對象模塊中，保存文件即可。