[corbis]

Проверил на Win 8.1 64 и Excel 64. Всё работает. При нажатии на кнопку предлагается сохранить документ. При нажатии Отмена выдается messageBox.

[who]

Excel 64 »

Т.е. нужно ставить 64 битный excel? или у Вас другого года Office?

[corbis]

Точно, забыл версию указать. У меня Office 2013. Попробуйте на виртуалке затестить разные версии и посмотреть, как будет работать.

[who]

Может кому пригодится
сам методом проб и ошибок получил такой вариант:

Код:

Private Sub CommandButton35_Click()
Dim wb As Workbook, wbName, wbPath, today As String
 Set wb = Excel.Application.ActiveWorkbook
 wbName = Sheets(1).Cells(2, 2)
 today = Date
 ttime = Format(Time, "hh-mm")
 wbPath = wb.Path
 Sheets(1).Cells(3, 1) = wbPath & "\" & wbName & "_" & today & "_" & ttime & ".xlsm"
If Not Application.Dialogs(5).Show(wbName & "_" & today & ".xlsm") Then
MsgBox "Сохранение отменено!", vbExclamation
End If
End Sub

видимо в OS Win 8.1 как-то по иному обзываются данные диалоговые окна и нужна какая-нибудь заплатка для VBA 2007 года

[Iska]

видимо в OS Win 8.1 как-то по иному обзываются данные диалоговые окна »

Точно так же.

Const xlDialogSaveAs = 5 Member of Excel.XlBuiltInDialog

[who]

Цитата who: видимо в OS Win 8.1 как-то по иному обзываются данные диалоговые окна » Точно так же. Цитата: Const xlDialogSaveAs = 5 Member of Excel.XlBuiltInDialog »

честно говоря я совсем не понял, что именно вы тут написали...

[Iska]

То, что константа «xlDialogSaveAs» — это и есть «5» в Вашем последнем коде .

[who]

Охотно верю, но в текстовом виде почему-то VBA не воспринимает у меня

Код:

Application.Dialogs(xlDialogSaveAs).Show(wbName & "_" & today & ".xlsm")

[Iska]

who, упакуйте Вашу Рабочую книгу, содержащую данный проект, в архив и приложите к сообщению.