在Excel VBA中将SaveAs对话框中的“取消”文本更改为“查看”

有没有办法将excel VBA的SaveAs对话框中的“取消”文本更改为“查看”？

我不知道如何更改默认值是，否，取消设置。

将感谢您的意见。

Answer 1

没有

要做到这一点，你需要：

1. 用Workbook事件拦截SaveAs
2. 如果用户使用“ Save而不是“ SaveAs为”，则退出
3. 提供您自己的自定义的SaveAs UserForm（ UserForm1.Show如下示例行到未devise的表单）

请注意，应禁用Events以防止您的UserForm保存重新调用Workbook_BeforeSave事件

所有 – 我会保持默认值！

 Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) 'exit on Save If Not SaveAsUI Then Exit Sub Application.EnableEvents = False Cancel = True UserForm1.Show Application.EnableEvents = True End Sub