如何用VBA获取另存为对话框“取消”按钮的代码

yjc532 · 发表于 2013-9-24 20:17

如何用VBA获取另存为对话框“取消”按钮的代码，或者直接将取消按钮变为灰色不可用。

wpxxsyzx · 发表于 2013-9-24 20:37

If Application.Dialogs(xlDialogSaveAs).Show = False Then MsgBox "你单击了取消"

yjc532 · 发表于 2013-9-24 22:09

wpxxsyzx 发表于 2013-9-24 20:37
If Application.Dialogs(xlDialogSaveAs).Show = False Then MsgBox "你单击了取消"

谢谢！正是我想要的效果

学好VBA啊 · 发表于 2018-11-22 17:45

Do Until WordApp.Dialogs(Word.WdWordDialog.wdDialogFileSaveAs).Show = True
ShowMsg("不能取消保存未存档Word文件。" & vbCrLf & vbCrLf & "如果确实不用保存，请保存到任意路径并删除。", vbOKOnly + vbInformation)
Loop

复制代码

学好VBA啊 · 发表于 2018-11-22 17:46

以上代码来自VB.net

kafuelee · 发表于 2024-2-4 20:11

谢谢分享，谢谢分享，

vistababy · 发表于 2024-2-4 21:26

我一般设置为在任何新文件未保存为文件名时，每隔1分钟弹出一个提示要求保存，保存以后不再提示，如果不保存，每隔1分钟一直提示。

		自动登录	找回密码
密码			免费注册

[求助] 如何用VBA获取另存为对话框“取消”按钮的代码