第1个回答 2013-11-11
简单录制了个宏,功能是把一个工作簿中所有的工作表中带公式的单元格都保护起来,设置密码为:123。因为没看懂你的具体意思,权当抛砖引玉了。如果自己还搞不来的话希望能上附件说明要求,我来帮你弄下。
Sub 保护()
Dim i As Integer
For i = 1 To Worksheets.Count
Worksheets(i).Activate
Cells.Select
Selection.Locked = False
Selection.SpecialCells(xlCellTypeFormulas, 23).Select
Selection.Locked = True
Worksheets(i).Protect 123
Next
End Sub本回答被网友采纳