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

  Sub 保護公式() '對活動工作簿中所有未保護的工作表生效 Dim Item As Integer '聲明變量 On Error Resume Next '有錯誤時繼續執行下一步 For i = 1 To Worksheets.Count '遍歷所有工作表(不能

>>阅读原文<<