1、何加使用密碼保護工作表
(1)打開(kāi)需??要加密的何加工作表,點(diǎn)擊“審閱”選項卡,何加然后點(diǎn)擊“保護工作表”。何加
(2)在彈出的何加“保護工(gong)作(zuo)表”對話(huà)框中,勾選“使用密碼ヽ(′ー`)ノ進(jìn)行加密”,何加然后在文本框中輸入密(╬?益?)碼,密碼可以包含字母、數字和符號,長(cháng)度至少為6個(gè)字符。
(3)設置完成后,點(diǎn)擊“確定”按鈕,此時(shí),工作表中的數據將被加密,只有知道密碼的人才能訪(fǎng)問(wèn)。
(1)打(′ω`)開(kāi)需要加(jia)密的工作簿,點(diǎn)擊“文件”選項卡,然后點(diǎn)擊“信息”。
(2)在彈出的(′?_?`)“信息”窗口中,點(diǎn)擊“保護工作簿”按鈕,然后選擇“使用密碼進(jìn)行加密”。??
(3)在彈出ヽ(′ー`)ノ的??“加密文檔”對話(huà)框中,輸入密碼(′ω`*),密碼可以包含字母、數字和符號,長(cháng)度至少為6個(gè)字符。
(4)設置完成后,點(diǎn)擊“確定”按鈕(′?`),此時(shí),工作簿中的工作表將被加密,只有知道密碼的人才能訪(fǎng)問(wèn)。
1、解除工作表保護
(1)打開(kāi)被保護的(?????)工作表,??點(diǎn)擊“審閱”選項(′Д` )卡,然后點(diǎn)擊“取消工作表保護”。
(2)在彈出的“取消工作表保護”對話(huà)框?中,輸入正確的密碼,然后點(diǎn)擊“確定”按鈕,此時(shí),工作表的保護將被解除。
2、解除工作簿保護
(2)在彈出的“信息”窗口中,點(diǎn)擊“保護工作簿”按鈕,然后選擇“沒(méi)有密碼進(jìn)行解密”。
(3)在彈出的提示框中,點(diǎn)擊“確定”按??鈕,此時(shí),工作簿的保護將被解除。
1、請確保記住設置的密碼,否則將無(wú)法訪(fǎng)問(wèn)和修改加密后的數據。
2、如果忘記了密碼,可以嘗試使用第三方工具進(jìn)行解密,但成功率無(wú)法保(bao)證。
3、加(jia)密后的Exc(′_`)el文件可以在不同版本的Excel軟件中打開(kāi)和編輯,但請注意保存為兼容格式。
問(wèn)題1:如(ru)何只對部分單元格進(jìn)行加密?
答:在Excel中,我們無(wú)法直接(′;д;`)對部分單元格進(jìn)行加密,可以通過(guò)以下方法實(shí)現類(lèi)似的效果:(⊙_⊙)
1、將需要加密的部分單元格復制到一個(gè)新的工作表中。
2、對新工作表進(jìn)行加密。
3、刪除(′ω`)原工作表中的加密部分。
4、將新工作表中的加密部分粘貼回原位置。
5、對原工作表進(jìn)行保護,以防止用戶(hù)修改未加密的部分。
問(wèn)題2:如何批量加密多個(gè)Excel文件?
Sub EncryptFiles() Diヽ(′ー`)ノm strFolderPath As String, strFileName As String, strPassword As String Dim objFSO As Obj??ect, objFolder As Object, objFile As Object,?? objExcel As Object Set objFSO = Crea??teObject("Sc??riptinヽ(′▽?zhuān)?ノg(′_`).FileSystemObject&??quot;) Set objExcel?? = CreateObject("Excel.Application") objExcel.Visible = False '設置為不可見(jiàn)模式運行Excel程序,避免彈出窗口干擾操作 strFolderPath = "C:test" '需要加密的文件所在的文件夾路徑 strPassword = "password" '設置的密碼 Set objFolder = obj??F(′▽?zhuān)?SO.GetFolder(strFolderPath) '獲取文件夾對??象 For Each objFile In objFolder.Files '遍歷文件夾中的文件 If LCase(objFSO.GetExtensionName(objFile)) = "xlsx" Then '判斷文件是否為Excel文件 Set objWorkbook = objExcel.Workbooks.open='open'(objFile.Path) '打開(kāi)Excel文件 objWorkbook.Protect Password:=strPassword '對文件進(jìn)行加密 objWorkbook.Save '保存修改后的文件 objWorkbook.Close '關(guān)閉文件對象,釋放資源 End If Next ob??jFile objE??xcel.Quit '退出Excel程序,釋放資源 Set objExcel = Nothing '釋放對??象引用(╬ ò﹏ó) Set( ?ヮ?) objFSO = Nothing '釋放對象引用 Set objFolder = Noth??ing '釋放對象引用 Se(╯°□°)╯︵ ┻━┻t objFile = Nothing '釋放對象引用 Set objWorkb??ook = Nothing '釋放ヽ(′▽?zhuān)?ノ對象引用End Sub問(wèn)題3:如何將加密后的Excel文件轉換為PDF格式?
2??、點(diǎn)擊“文件”選項卡,然后點(diǎn)擊“導出”。
4、點(diǎn)擊“創(chuàng )建PDF/XPS”按鈕,此時(shí),系統會(huì )提示你保存PDF文件??的位置和名稱(chēng),選擇合適??的位置和名稱(chēng)后,?點(diǎn)擊“保存”按鈕。