求excel宏：加密码（22）保护工作表，并允许保护后的工作表设置列格式、行格式。

Question

谢谢一楼的回答，不过没看清我的要求，是用宏代码来实现。

Answer 1

2003版下：工具—保护——保护工作表
2007版下：审阅——保护工作表
在这下面“允许此工作表的所有用户进行”设置框里选中“设置行格式”和“设置列格式”
确定即可。
这里列出了多个保护后仍允许编辑的内容，你可以根据需要进行设置。

Answer 2

保护：
ActiveSheet.Protect Password:="22", DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True
撤消保护：
ActiveSheet.Unprotect Password:="22"本回答被提问者采纳

Answer 3

Sub ProtectSheet()
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowFormattingCells:=True, AllowInsertingColumns:=True, _
AllowInsertingRows:=True, AllowInsertingHyperlinks:=True, _
AllowDeletingColumns:=True, AllowDeletingRows:=True, AllowSorting:=True, _
AllowFiltering:=True, AllowUsingPivotTables:=True
ActiveSheet.Protect Password:="22"
End Sub

Answer 4

Sub Macro1()
'
' Macro1 Macro
'

'
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingColumns:=True, AllowFormattingRows:=True
End Sub

Answer 5

不用宏吧>?
工具-保护-保护工作表