保护Excel工作表中的所有公式

  Sub 保护公式() '对活动工作簿中所有未保护的工作表生效 Dim Item As Integer '声明变量 On Error Resume Next '有错误时继续执行下一步 For i = 1 To Worksheets.Count '遍历所有工作表(不能

>>阅读原文<<