Excel批量给工作表加解密码方法介绍.doc

《Excel批量给工作表加解密码方法介绍.doc》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、Excel批量给工作表加解密码方法介绍　　批量给工作表加解密码　　大家好，今天和大家分享“批量给工作表加解密码”，这是个学员提出来的，也就是一下把100个工作表加密码，一下了把100个工作表解密码，Ok，请看下面的动画效果　　一、动画效果　　　　二、所用的代码　　OptionExplicit　　Sub批量加密工作表()　　Dimx　　Forx=1ToSheets.Count　　Sheets(x).Protect1234　　Nextx　　EndSub　　Sub批量解密工作表密码()　　Dimx　　Forx=1ToSheets.Count　　WithSheets(x)

2、　　.ProtectDrawingObjects:=True,Contents:=True,Scenarios:=True,AllowFiltering:=True,AllowUsingPivotTables:=True　　.ProtectDrawingObjects:=False,Contents:=True,Scenarios:=False,AllowFiltering:=True,AllowUsingPivotTables:=True　　.ProtectDrawingObjects:=True,Contents:=True,Scenarios:=False,

3、AllowFiltering:=True,AllowUsingPivotTables:=True　　.ProtectDrawingObjects:=False,Contents:=True,Scenarios:=True,AllowFiltering:=True,AllowUsingPivotTables:=True　　.Unprotect　　EndWith　　Nextx　　EndSub　　三、操作方法　　复制上面绿色的代码　　快捷键AltF11打开VBE后台　　插入菜单→模块　　　　把代码粘贴到空白处　　工作表里的插入选项卡→横排文本框，内容输入“批量加密工作表

4、”　　　　对着文本框的边框→右击→指定宏...→选定过程名“批量加密工作表”→确定　　同理，另一个文本也是这样设置的　　你现在可以测试了，点相应的文本框。