Question

EXCEL用VB进行工作表保护时要怎么才能把“选定锁定单元格格式”前面的勾去掉啊！

我用的代码是
Sub wayy()
Dim i As Long
Application.ScreenUpdating = False
For i = 1 To Sheets.Count
Sheets(i).Select
ActiveSheet.Protect Password:="123", DrawingObjects:=True
Next
Application.ScreenUpdating = True
MsgBox "Protect OVER !", , "wayy"
End Sub

Answer 1

保护工作表，就是要保护工作表中锁定单元格的内容，如锁定的内容都不保护，那要保护什么内容。个人观点，仅供参考。

追问

看清楚问题啊！前面那个勾不去掉可以选定整张工作表，然后复制到别的表上这样就不受保护了

追答

expression.Protect(Password, DrawingObjects, Contents, Scenarios, UserInterfaceOnly, AllowFormattingCells, AllowFormattingColumns, AllowFormattingRows, AllowInsertingColumns, AllowInsertingRows, AllowInsertingHyperlinks, AllowDeletingColumns, AllowDeletingRows, AllowSorting, AllowFiltering, AllowUsingPivotTables)
expression 必需。该表达式返回一个 Worksheet 对象。
Password Variant 类型，可选。为一个字符串，该字符串为工作表或工作簿指定区分大小写的密码。如果省略本参数，不用密码就可以取消对该工作表或工作簿的保护。否则，必须指定密码，通过密码来取消对该工作表或工作簿的保护。如果忘记了密码，就无法取消对该工作表或工作簿的保护。最好在安全的地方保存一份密码及其对应文档名的列表。
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。

＝＝＝＝＝
写不下了，Contents这个参数改成False即可

追问

以上的那些内容我百度上找过，Contents这个参数改成False也改过了，还是可以选定受保护的地方，能不能直接帮我这个老头子直接做成像我发出来的代码那样的，我只是初中文化没系统学过这些东西

追答

Sub wayy() '与锁定无关
Dim i As Long
Application.ScreenUpdating = False
For i = 1 To Sheets.Count
Sheets(i).Select
ActiveSheet.Protect Password:="123", DrawingObjects:=True, Contents:=False
Next
Application.ScreenUpdating = True
MsgBox "Protect OVER !", , "wayy"
End Sub

程序这样就可以，问题不是出在程序上，你要对工作表的部分区域进行锁定和解锁，工作表默认状态是全部单元格锁定的。

Sub wayy() '与锁定有关
Dim i As Long
Application.ScreenUpdating = False
For i = 1 To Sheets.Count
Sheets(i).Select
ActiveSheet.Protect Password:="123", DrawingObjects:=True, Contents:=True
Next
Application.ScreenUpdating = True
MsgBox "Protect OVER !", , "wayy"
End Sub

可以进行测试