Макрос "Сохранить как..."

[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(xlDialogSaveAs).Show(wbName & "_" & today & ".xlsm") Then
MsgBox "Сохранение отменено!", vbExclamation
End If
End Sub

раньше был комп win7 x32 и там всё отлично работало:
выдавалось диалоговое окно "Сохранить как..." и в случае нажатия "Отмена" выдавалось сообщение "Сохранение отменено!"
теперь комп поменяли стоит win8.1 x64 и данный макрос просто выдаёт сообщение "Сохранение отменено!" и ничего не сохраняется
может нужно куда подключить какие-нибудь дополнительные библиотеки?

PS: офис был и остался тот же MS Office 2007 из того же самого дистрибутива.

[EducatedFool]

вот в этом проблема:

today = Date

в переменную today запишется дата в том формате, который настроен в Windows

раньше был, например, формат даты в настройках windows такой: dd.mm.yyyy
и имя файла получалось корректное

а сейчас формат даты, например, такой (на новой винде): dd/mm/yyyy
имя файла получается некорректное (слеши недопустимы в имени файла) - потому и ошибка

попробуйте так:

Private Sub CommandButton35_Click()
    Dim wbName$, today$
    wbName = Sheets(1).Cells(2, 2)
    today = Format(Now, "dd.mm.yyyy_hh-nn") ' дата + время (кстати, минуты - это nn, а не mm)
    
    Sheets(1).Cells(3, 1) = ActiveWorkbook.Path & "\" & wbName & "_" & today & ".xlsm"
    
    If Not Application.Dialogs(xlDialogSaveAs).Show(wbName & "_" & today & ".xlsm") Then
        MsgBox "Сохранение отменено!", vbExclamation
    End If
End Sub

но вообще непонятно, зачем нужно диалоговое окно
может, надо просто сохранить копию файла с указанием даты и времени?
тогда это проще делается:

Private Sub CommandButton35_Click()
    ' создаем копию книги, с указанием даты и времени в имени файла
    ThisWorkbook.SaveCopyAs Replace(ThisWorkbook.FullName, ".xlsm", Format(Now, "_dd.mm.yyyy_hh-nn-ss") & ".xlsm")
End Sub

[who]

Сообщение от EducatedFool

вот в этом проблема:

today = Date

в переменную today запишется дата в том формате, который настроен в Windows

раньше был, например, формат даты в настройках windows такой: dd.mm.yyyy
и имя файла получалось корректное

а сейчас формат даты, например, такой (на новой винде): dd/mm/yyyy
имя файла получается некорректное (слеши недопустимы в имени файла) - потому и ошибка

формат даты времени такой же
если ввести промежуточную переменную

sa = wbPath & "\" & wbName & "_" & today & "_" & ttime & ".xlsm"

то получается вполне себе нормальное имя с нормальным путём без запрещённых символов, ("hh-mm" работает корректно):

"E:\заказы\2015\2015_08\19.08_15_Пи сково\19_1944.87_15 Писково_27.08.2015_08-10.xlsm"

При пошаговом выполнении пропускается именно выдача диалогового окна без всякой ругани на ошибки, причём даже если опустить в строке:

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

(wbName & "_" & today & ".xlsm")

не работает именно

If Not Application.Dialogs(xlDialogSaveAs).Show