文档介绍：该【一个Excel文件通过设置不同的密码来访问不同的内容】是由【青山代下】上传分享，文档一共【5】页，该文档可以免费在线阅读，需要了解更多关于【一个Excel文件通过设置不同的密码来访问不同的内容】的内容，可以使用淘豆网的站内搜索功能，选择自己适合的文档，以下文字是截取该文章内的部分文字，如需要获得完整电子版，请下载此文档到您的设备，方便您编辑和打印。:,并将工作表Sheet1重命名为“权限管理”,然后根据自己的需求建立一个密码权限管理表格。(图1)如图1所示,按照图片的格式,横向第一行为:“操作密码”、“权限管理”、“样本1”、“样本2”、“样本3”……其中“操作密码”和“权限管理”为必须值,后面的“样本1”等为用户自定义值。“权限管理”中第一行的内容来建立新的工作表。笔者这里权限管理中提供了3个工作表,对应的就在下面添加三个工作,并且工作表的名字要与权限管理表中的名字对应。如图21/(图2),并且在右侧所交叉的位置输入数字1,否则留空。并且在下方再创建一个空白的工作表(可以自定义命名,笔者重命名为“空”)如图3(图3)2/,我们在“权限管理”工作表上右击选择“查看代码”在弹出的VBA对话框中双击左侧的“ThisWorkbook”在弹出的窗口中插入以下代码并保存。如图4代码如下:PrivateSubWorkbook_BeforeClose(CancelAsBoolean)Dimy,arr权限管理Fory=2ToUBound(arr,2)Sheets(arr(1,y)).Visible=2NextyEndSubPrivateSubWorkbook_Open()OnErrorResumeNextDimx,y,sr,arr请输入密码登陆权限管理Forx=2ToUBound(arr)IfVal(sr)=arr(x,1)ThenFory=2ToUBound(arr,2)Ifarr(x,y)=1ThenSheets(arr(1,y)).Visible=-1Sheets(arr(1,y)).ActivateEndIfNextyEndIfNextxEndSub(图4)3/,选择工作表的另存为(不能直接关闭保存)在弹出的另存为选项框中除了要选择保存地址和文件名外还需要将保存类型更换成“Excel启用宏的工作簿”之后再点击保存即可!如图5(图5):打开保存的文件,则会弹出输入密码框,赶紧输入不同的密码来查看各自的内容吧!如图64/(图6)5/5