保护工作簿的整个文件夹(Microsoft Excel)
Mahesh有许多Excel工作簿,所有工作簿都存储在同一文件夹中。
他想知道是否可以为整个文件夹分配密码,以便保护所有工作簿。
简短的答案是不,您不能在Excel中做到这一点。但是,可以应用多种不同的技术来提供所需的结果。第一种方法是使用WinZip之类的程序将所有工作簿组合到一个zip文件中。该文件可以用密码保护(在WinZip中),以便并非所有人都可以打开它。然后,您可以打开zip文件(使用密码)并双击其中的任何工作簿,以便使用Excel对其进行修改。出于所有目的和目的,结果是您拥有一个受保护的“文件夹”(zip文件),而其中所包含的单个文件却未被保护。
另一种方法是将工作簿文件夹放在网络驱动器上,然后让网络管理员保护该文件夹。大多数网络操作系统都允许管理员控制谁可以访问特定文件夹及其内容。
第三种方法是使用第三方程序来保护文件夹。
快速搜索Web无疑会产生一些候选者,例如:
https://www.folder-password-expert.com
您还可以使用Excel宏来保护工作簿。虽然它不提供真正的文件夹级保护,但它确实允许您以尽可能简单的方式保护文件夹中的所有工作簿。
Sub ProtectAll() Dim wBk As Workbook Dim sFileSpec As String Dim sPathSpec As String Dim sFoundFile As String sPathSpec = "C:\MyPath\" sFileSpec = "*.xls?" sFoundFile = Dir(sPathSpec & sFileSpec) Do While sFoundFile <> "" Set wBk = Workbooks.Open(sPathSpec & sFoundFile) With wBk Application.DisplayAlerts = False wBk.SaveAs FileName:=.FullName, _ Password:="swordfish" Application.DisplayAlerts = True End With Set wBk = Nothing Workbooks(sFoundFile).Close False sFoundFile = Dir Loop End Sub
确保更改代码开头附近的sPathSpec和sFileSpec变量,以反映包含工作簿的文件夹以及要保护的工作簿名称的模式。该宏假定所有工作簿均不受保护;如果没有,则该宏将提示您输入工作簿的密码。
注意:
如果您想知道如何使用此页面(或_ExcelTips_网站上的任何其他页面)中描述的宏,我准备了一个特殊页面,其中包含有用的信息。
_ExcelTips_是您进行经济高效的Microsoft Excel培训的来源。
本技巧(12638)适用于Microsoft Excel 2007、2010、2013、2016、2019和Office 365中的Excel。您可以在此处为Excel的较早菜单界面找到此技巧的版本: