[已解决]如何批量去除/添加"工作表保护密码"?

yyyydddd8888

navywong 发表于 2013-12-25 11:31
非常感谢,帮了我大忙了,省了很多工夫!!!!

最后提一个建议,"添加密码"功能能否自定 ...

如果解决问题，请帮忙评个最佳哦！

navywong

yyyydddd8888 发表于 2013-12-25 12:31
再作改进

还是不能自定义多选功能?
下面这个选项可以自定义选择哪几项吗?

navywong

yyyydddd8888 发表于 2013-12-25 12:31
再作改进

还是不能自定义多选功能?
下面这个选项可以自定义选择哪几项吗?

yyyydddd8888

navywong 发表于 2013-12-25 15:20
还是不能自定义多选功能?
下面这个选项可以自定义选择哪几项吗?

如果要自定义，要用到窗体。我目前还不太会用窗体。现在有两个选择：

1、如果你要求默认有哪些选项，可以说明，我再加入在代码中写入，就能达到你要求。
2、如果实在要用自定义，可能要等几天，我要再去学习几天，学会了再修改。

navywong

yyyydddd8888 发表于 2013-12-25 15:24
如果要自定义，要用到窗体。我目前还不太会用窗体。现在有两个选择：

1、如果你要求默认有哪些选项，可 ...

哦,谢谢!
你能不能告诉我这几个选项分别是哪个代码?
然后勾选哪一项的话怎么改代码?谢谢!

yyyydddd8888

navywong 发表于 2013-12-25 15:30
哦,谢谢!
你能不能告诉我这几个选项分别是哪个代码?
然后勾选哪一项的话怎么改代码?谢谢!

你可以在代码中选中protect按F1可以看到帮助信息。
点击应用于worksheet对象的protect方法。

就可以看到这些参数表示的意思：

DrawingObjects      Variant 类型，可选。如果为 True，则保护图形。默认值为 False。
Contents      Variant 类型，可选。如果为 True，则保护内容。对于图表，这样将保护整个图表。对于工作表，这样将保护锁定的单元格。默认值为 True。
Scenarios      Variant 类型，可选。如果为 True，则保护方案。本参数仅对工作表有效。默认值为 True。
UserInterfaceOnly      Variant 类型，可选。如果为 True，则保护用户界面，但不保护宏。如果省略本参数，则保护既应用于宏也应用于用户界面。
AllowFormattingCells      Variant 类型，可选。如果为 True，则允许用户为受保护的工作表上的任意单元格设置格式。默认值为 False。
AllowFormattingColumns      Variant 类型，可选。如果为 True，则允许用户为受保护的工作表上的任意列设置格式。默认值为 False。
AllowFormattingRows      Variant 类型，可选。如果为 True，则允许用户为受保护的工作表上的任意行设置格式。默认值为 False。
AllowInsertingColumns      Variant 类型，可选。如果为 True，则允许用户在受保护的工作表上插入列。默认值为 False。
AllowInsertingRows      Variant 类型，可选。如果为 True，则允许用户在受保护的工作表上插入行。默认值为 False。
AllowInsertingHyperlinks      Variant 类型，可选。如果为 True，则允许用户在受保护的工作表中插入超链接。默认值为 False。
AllowDeletingColumns      Variant 类型，可选。如果为 True，则允许用户在受保护的工作表上删除列，要删除的列中的每个单元格都是解除锁定的。默认值为 False。
AllowDeletingRows      Variant 类型，可选。如果为 True，则允许用户在受保护的工作表上删除行，要删除的行中的每个单元格都是解除锁定的。默认值为 False。
AllowSorting      Variant 类型，可选。如果为 True，则允许用户在受保护的工作表上进行排序。排序区域中的每个单元格必须是解除锁定的或取消保护的。默认值为 False。
AllowFiltering      Variant 类型，可选。如果为 True，则允许用户在受保护的工作表上设置筛选。用户可以更改筛选条件，但是不能启用或禁用自动筛选功能。用户也可以在已有的自动筛选功能上设置筛选。默认值为 False。
AllowUsingPivotTables      Variant 类型，可选。如果为 True，则允许用户在受保护的工作表上使用数据透视表。默认值为 False。

yyyydddd8888

navywong 发表于 2013-12-25 15:30
哦,谢谢!
你能不能告诉我这几个选项分别是哪个代码?
然后勾选哪一项的话怎么改代码?谢谢!

要设置这些选项，主要就是这句代码中的参数：
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

每个参数用逗号分隔，参数名后用冒号等号（：=）连接true或false.如果用true表示勾选上，用fals表示不勾选。

navywong

yyyydddd8888 发表于 2013-12-25 17:17
要设置这些选项，主要就是这句代码中的参数：
ActiveSheet.Protect DrawingObjects:=True, Contents:=Tr ...

非常详细,非常感谢!!!

yyyydddd8888 发表于 2013-12-24 21:51
再次修改，现在可以在运行代码时弹出的对话框中选择文件夹，再把其中的文件及子文件夹下的文件（.xls  .xls ...

你好，为什么我弄了无效呢？添加文件后，全部文件依次打开，依次要求输入密码。最后显示密码已删除。当关闭去分别打开文件时，密码还是在，是怎么回事尼？求解

suiyuan8981

学习 去除/添加"工作表保护密码"