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

　　ChDir z

　　ActiveWorkbook.SaveAs Filename:=z & ““ & y & “.xls“

　　Else

　　ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.Path & ““ & ActiveWorkbook.Name

　　End If

　　End Sub

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

小提示:

　　★上述代码中，“保护公式”为宏名称，在实际输入时可以更换为其他名称。

　　★代码中，英文单引号及其后面字符是对代码的解释，在实际输入时可以不输入。

　　★代码中的密码(“123456”

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

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