Excell VBA Сохранить файл

Формулировка задачи:

Здравствуйте.
Мне нужно чтобы при нажатии пользователем "Сохранить как" предлагалось нужное имя файла и диалоговое окно не высвечивалось два раза. Подскажите пожалуйста как это сделать.

Решение задачи: «Excell VBA Сохранить файл»

textual
                            Листинг программы 
                        

                            Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim fname As String
SaveAsUI = False
fname = Application.GetSaveAsFilename(CStr(Sheets(1).Range("A1").Value) & ".xls", "Excel Files (*.xls), *.xls")
application.enableEvents = 0
ThisWorkbook.SaveAs fname
Cancel = True
application.enableEvents = 1
End Sub

                        

Оцени полезность:

13 голосов , оценка 3.923 из 5

Похожие ответы