如何在Excel中一次保護(hù)文件夾中的所有工作簿？
如何在Excel中一次保護(hù)文件夾中的所有工作簿？
在Excel中，您可以保護(hù)工作簿以防止其他用戶對(duì)其進(jìn)行編輯，但是您是否曾經(jīng)想過(guò)一次保護(hù)多個(gè)工作簿？ 在這里，我介紹了一些保護(hù)Excel中一個(gè)工作簿中的所有工作簿以及一個(gè)工作簿中的多個(gè)工作表的技巧。
使用VBA一次保護(hù)文件夾中的工作簿
一次保護(hù)多張紙 Kutools for Excel
驚人的！ 在 Excel 中使用高效的選項(xiàng)卡，如 Chrome、Firefox 和 Safari！
每天節(jié)省50％的時(shí)間，并減少數(shù)千次鼠標(biāo)單擊！
要保護(hù)特定文件夾中的工作簿，可以應(yīng)用宏代碼來(lái)解決。
1.啟用一個(gè)新的工作簿，然后按 Alt + F11鍵 鍵打開(kāi) Microsoft Visual Basic應(yīng)用程序ns窗口，然后單擊 插頁(yè) > 模e，然后將以下代碼粘貼到 模塊 腳本。
VBA：保護(hù)文件夾中的工作簿。
Sub ProtectAll()
Dim xWorkBooks As Workbook
Dim xExitFile As String
Dim xPassWord As Variant
Dim xStrPath As String
Dim xFileDialog As FileDialog
Dim xFile As String
On Error Resume Next
Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
xFileDialog.AllowMultiSelect = False
xFileDialog.Title = "Select a folder [Kutools for Excel]"
If xFileDialog.Show = -1 Then
xStrPath = xFileDialog.SelectedItems(1)
End If
If xStrPath = "" Then
Exit Sub
Else
xStrPath = xStrPath + "\"
End If
xPassWord = Application.InputBox("Enter password", "Kutools for Excel", , , , , , 2)
If (xPassWord = False) Or (xPassWord = "") Then
MsgBox "Password cannot be blank!", vbInformation, "Kutools for Excel"
Exit Sub
End If
xFile = "*.xls"
xExitFile = Dir(xStrPath & xFile)
On Error Resume Next
Application.ScreenUpdating = False
Do While xExitFile <> ""
Set xWorkBooks = Workbooks.Open(xStrPath & xExitFile)
Application.DisplayAlerts = False
xWorkBooks.SaveAs Filename:=xWorkBooks.FullName, Password:=xPassWord
Application.DisplayAlerts = True
Workbooks(xExitFile).Close False
Set xWorkBooks = Nothing
xExitFile = Dir
Loop
Application.ScreenUpdating = True
MsgBox "Successfully protect!", vbInformation, "Kutools for Excel"
End Sub
Copy
2。 按 F5 鑰匙和一個(gè) 選擇一個(gè)文件夾
彈出窗口，供您選擇一個(gè)文件夾來(lái)保護(hù)其所有工作表。
3。 點(diǎn)擊 OK
彈出對(duì)話框，輸入保護(hù)工作簿的密碼。
4。 點(diǎn)擊 OK
，將彈出一個(gè)對(duì)話框，提醒您所選文件夾中的所有工作簿已通過(guò)一個(gè)密碼成功保護(hù)。
當(dāng)您打開(kāi)受以上代碼保護(hù)的工作簿時(shí)，將彈出一個(gè)對(duì)話框，用于輸入密碼。 看截圖：
Tips:：此代碼適用于2007或更高版本的Excel，如果您想將其應(yīng)用于保護(hù)較低的版本，則可以更改 xFile =“ * .xls” 至 xFile =“ * .xlsx” 在代碼中。
一次保護(hù)多張紙 Kutools for Excel實(shí)際上，在我們的日常工作中，保護(hù)工作簿中的多個(gè)工作表會(huì)更加頻繁。 但是在Excel中，您需要使用其內(nèi)置功能來(lái)一張一張地保護(hù)工作表。 但是，有一個(gè)強(qiáng)大的工具– Kutools for Excel，它的 保護(hù)工作表 實(shí)用程序可以幫助您一次保護(hù)工作簿的所有工作表或選定工作表。
Kutools for Excel, 與超過(guò) 120 方便的Excel功能，可提高工作效率并節(jié)省工作時(shí)間。前往下載60天免費(fèi)試用購(gòu)買貝寶/ MyCommerce
后 免費(fèi)安裝 Kutools for Excel，請(qǐng)執(zhí)行以下操作：
1.啟用要保護(hù)其工作表的工作簿，然后單擊 企業(yè) > 保護(hù)工作表
。 看截圖：
2.在 保護(hù)工作表
對(duì)話框中，您可以從列表中根據(jù)需要檢查要保護(hù)的圖紙。 看截圖：
3。 點(diǎn)擊 Ok
，然后彈出另一個(gè)對(duì)話框供您輸入和重新輸入密碼，請(qǐng)參見(jiàn)屏幕截圖：
4。 點(diǎn)擊 Ok
，然后會(huì)彈出一個(gè)對(duì)話框，提醒您成功保護(hù)工作表。
要取消保護(hù)這些工作表，您只需點(diǎn)擊 企業(yè) > 取消保護(hù)工作表
輸入用于取消保護(hù)的密碼。
最佳辦公生產(chǎn)力工具
將小時(shí)轉(zhuǎn)化為分鐘 Kutools for Excel!
準(zhǔn)備好增強(qiáng)您的 Excel 任務(wù)了嗎？ 利用的力量 Kutools for Excel - 您終極的節(jié)省時(shí)間的工具。 簡(jiǎn)化復(fù)雜的任務(wù)并像專業(yè)人士一樣瀏覽數(shù)據(jù)。 以閃電般的速度體驗(yàn) Excel！
為什么需要 Kutools for Excel
??? 超過(guò) 300 項(xiàng)強(qiáng)大功能: Kutools 包含 300 多項(xiàng)高級(jí)功能，可簡(jiǎn)化您在 1500 多種場(chǎng)景中的工作。
?? 卓越的數(shù)據(jù)處理能力：合并單元格、刪除重復(fù)項(xiàng)并執(zhí)行高級(jí)數(shù)據(jù)轉(zhuǎn)換 - 所有這些都不費(fèi)吹灰之力！
?? 高效的批量操作：當(dāng)你可以聰明地工作時(shí)，為什么還要付出額外的努力呢？ 輕松批量導(dǎo)入、導(dǎo)出、組合和調(diào)整數(shù)據(jù)。
?? 可定制的圖表和報(bào)告：訪問(wèn)各種附加圖表并生成富有洞察力的報(bào)告。
??? 強(qiáng)大的導(dǎo)航窗格：通過(guò)強(qiáng)大的列管理器、工作表管理器和自定義收藏夾獲得優(yōu)勢(shì)。
?? 七種類型的下拉列表：通過(guò)各種功能和類型的下拉列表使數(shù)據(jù)輸入變得輕而易舉。
?? 用戶友好：對(duì)于初學(xué)者來(lái)說(shuō)輕而易舉，對(duì)于專家來(lái)說(shuō)是一個(gè)強(qiáng)大的工具。
立即下載，與 Excel 一起穿越時(shí)空！
閱讀更多
免費(fèi)下載... 采購(gòu)...
Office Tab 為 Office 帶來(lái)選項(xiàng)卡式界面，讓您的工作更輕松
在Word，Excel，PowerPoint中啟用選項(xiàng)卡式編輯和閱讀，發(fā)布者，Access，Visio和Project。
在同一窗口的新選項(xiàng)卡中而不是在新窗口中打開(kāi)并創(chuàng)建多個(gè)文檔。
每天將您的工作效率提高50％，并減少數(shù)百次鼠標(biāo)單擊！
閱讀更多
免費(fèi)下載... 采購(gòu)...
版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實(shí)的內(nèi)容，請(qǐng)聯(lián)系我們jiasou666@gmail.com 處理，核實(shí)后本網(wǎng)站將在24小時(shí)內(nèi)刪除侵權(quán)內(nèi)容。
版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實(shí)的內(nèi)容，請(qǐng)聯(lián)系我們jiasou666@gmail.com 處理，核實(shí)后本網(wǎng)站將在24小時(shí)內(nèi)刪除侵權(quán)內(nèi)容。
相關(guān)文章
