为 Excel 加装快捷的公式保护器3

单元格

　　Selection.Locked = True ’添加锁定

　　Selection.FormulaHidden = True ’添加隐藏

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

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

　　’以下代码用于保存文件

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

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

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

页码：[1] [2] [3] [4] [5] [6] 第3页、共6页

设为首页 | 加入收藏 | 广告服务 | 友情链接 | 版权申明