您现在的位置：星云电脑教程 >> 电脑教程 >> 办公软件 >> OFFICE >> Excel >> 正文

Excel加装快捷的公式保护器

星云电脑教程文章来源：电脑爱好者作者：星云整理更新时间：2005-8-13 13:07:43 点击数【有问必答】

　　第五步:用下面的代码替换右侧编辑区域中的代码:

　　Sub 保护公式()

　　ActiveSheet.Unprotect ("123456") '解除对工作表的保护

　　Cells.Select '选中整个表格

　　Selection.Locked = False '解除锁定

　　Selection.SpecialCells(xlCellTypeFormulas, 23).Select '选中包含公式的单元格

　　Selection.Locked = True '添加锁定

　　Selection.FormulaHidden = True '添加隐藏

　　ActiveSheet.Protect ("123456") '保护工作表，并设置密码

　　ActiveSheet.EnableSelection = xlUnlockedCells '让锁定单元格不能选中

　　'以下代码用于保存文件

　　If Left(ActiveWorkbook.Name, 4) = "Book" Then

　　y = InputBox("请输入保存文件名称:")

　　z = InputBox("请输入文件保存路径:")

　　ChDir z

　　ActiveWorkbook.SaveAs Filename:=z & "\" & y & ".xls"

　　Else

　　ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.Path & "\" & ActiveWorkbook.Name

　　End If

　　End Sub

　　输入完成后，关闭VBA编辑窗口返回。