如果某个工作簿需要由多人合作,分不同的阶段完成,为了避免其中的某个用户将文件另存为其他文件名而影响下一个使用者,可以用VBA代码禁止用户使用“另存为”来保存工作簿。方法如下:

    1.按Alt+F11,打开VBA编辑器,在“工程”窗口中双击“ThisWorkBook”,在右侧的代码窗口中输入下列代码:

     Private Sub workbook_BeforeSave(ByVal SaveAsUI As Boolean, _
    Cancel As Boolean)
    Dim response As Long
    If SaveAsUI = True Then
    response = MsgBox("该工作簿不允许用“另存为”来保存," & _
    "你要用原工作簿名称来保存吗? ", vbQuestion + vbOKCancel)
    Cancel = (response = vbCancel)
    If Cancel = False Then Me.Save
    Cancel = True
    End If
    End Sub

    2.关闭VBA编辑器,保存工作簿。如果是Excel 2007,需保存为xlsm格式。

    这样,该工作簿只允许通过“保存”命令来保存,当执行“文件→另存为”命令时,将出现不允许使用“另存为”的提示。

    Excel用VBA禁止使用“另存为”来保存工作簿

    单击“确定”按钮将在原文件夹用原名称来保存工作簿,单击“取消”按钮则取消本次操作。

版权声明

本文仅代表作者观点,不代表本站立场。
本站资源均来自互联网整理,版权归原作者所有,切勿用作非法使用和未经授权的商用,因此带来的法律风险与本站无关。

本文链接:http://www.chousj.cn/exceljc/300.html

发表评论

评论列表(0人评论 , 69人围观)
☹还没有评论,来说两句吧...

免费资源分享网_电脑操作教程_免费源代码下载_免费字体下载_高清电脑壁纸

http://www.chousj.cn/

| 渝ICP备15004826号

Powered By

使用手机软件扫描微信二维码

关注我们可获取更多热点资讯