Question

excel2010中下面的代码要怎样才能使保存类型默认为带宏的工作簿

Sub 保存客户开料单()
Dim temp$
temp = [输入!b1]
If temp = "" Then
MsgBox "客户名称未输入" & vbCrLf & "请返回重新输入"
Sheets("输入").Select
Range("b1").Select
Exit Sub
End If
Application.DisplayAlerts = False
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues
ActiveSheet.Copy
OpenTxtMessage = Application.Dialogs(xlDialogSaveAs).Show(arg1:=Format(Now, "yyyymmdd") & temp & ActiveSheet.Name & ".xls")
应该加上什么代码

Answer 1

追问

你可能不理解我的意思，我是要用代码去实现，如果能去掉其它选项更好，只能存为启用宏的工作簿。

追答

Sub 工作簿并提示保存名称()
Dim fname
Do
fname = Application.GetSaveAsFilename(filefilter:="Excel 启用宏的工作簿 , *.xlsm")
Loop Until fname False
ActiveWorkbook.SaveAs Filename:=fname, FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

End Sub

追问

我的宏就没用了，我要指定名称