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

1. vba不弹出保存对话框

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

2. vba不弹出保存对话框内容

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

3. vba弹出消息框

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

4. vba用于弹出信息框

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

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

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

a = UserForm.ComboBox1.Value

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

5. vba保存时不弹出对话框

新建一个Excel文件并保存。

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

6. vba 打开文件对话框

在 ThisWorkbook 的 Open 事件，写入：

Private Sub Workbook_Open()

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

If hh = vbCancel Then Application.Quit

End Sub

7. vba打开对话框

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

8. vba窗体弹出后表格不能编辑

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

顶一下

(0)

0%

踩一下

(0)

0%