excel另存对话框不弹(vba不弹出保存对话框)

1. vba不弹出保存对话框

Subaa()DimmmSetmm=Application.FileDialog(msoFileDialogFolderPicker)Withmm.InitialFileName="E:\数据文件"'定义“E:\数据文件”为默认路径EndWithmm.ShowEndSub

有感叹号的文档是含有VBA宏的文档。常规的2007以后的文档是"x"结尾的（docx，xlsx）有宏的则以"m"结尾(含义是Macro)。宏可以设计为，打开时自动弹出对话，要求另存为（这样可以保护源文件）。你试试打开x结尾的文档，看会不会要求另存为？

谢邀题主的意思应该是把文本框里的内容转化到单元格中，之后删除文本框。以下VBA代码可以实现：

以上代码将当前激活的工作簿中所有的文本框中的内容输入到该文本框左上角所在的单元格中，之后删除文本框，并弹出完成提示。

这个对话框需要你自己做一个用户窗体，插入组合框控件。然后通过代码控制窗体的显示与隐藏。

先设置窗体隐藏，在该出现对话框的时候控制窗体显示，确定按钮赋值并隐藏，取消按钮不赋值并隐藏。

赋值只要带上完整对象名就行了，比如:

a = UserForm.ComboBox1.Value

简言之，就是不要用默认的对话框msgbox

新建一个Excel文件并保存。

打开VBE，可以用快捷键<Alt+F11>

在 ThisWorkbook 的 Open 事件，写入：

Private Sub Workbook_Open()

hh = MsgBox("是否打开此表？", vbOKCancel)

If hh = vbCancel Then Application.Quit

End Sub

msgbox "hello"MsgBox(prompt[, buttons] [, title] [, helpfile, context])buttons 参数有下列设置值：常数值描述vbOKOnly 0 只显示 OK 按钮VbOKCancel 1 显示 OK 及 Cancel 按钮。

VbAbortRetryIgnore 2 显示 Abort、Retry 及 Ignore 按钮。

VbYesNoCancel 3 显示 Yes、No 及 Cancel 按钮。

VbYesNo 4 显示 Yes 及 No 按钮。

VbRetryCancel 5 显示 Retry 及 Cancel 按钮。

VbCritical 16 显示 Critical Message 图标。

VbQuestion 32 显示 Warning Query 图标。

VbExclamation 48 显示 Warning Message 图标。

VbInformation 64 显示 Information Message 图标。

vbDefaultButton1 0 第一个按钮是缺省值。

vbDefaultButton2 256 第二个按钮是缺省值。

vbDefaultButton3 512 第三个按钮是缺省值。

vbDefaultButton 4768 第四个按钮是缺省值。如果"显示 Retry 及 Cancel 按钮" 且让"第三个按钮是缺省值"则：msgbox "hello",517 '517=5+512

和你上面的按钮是一样的，在编辑模式中，点击菜单就打开VBA宏编辑窗口，输入代码就行。如果是EXCEL的菜单需要加个按钮的话：

顶一下

(0)

踩一下

(0)