Сохранить как кнопку без подтверждения

Question

Эй У меня проблема с кнопкой «Сохранить как», которую я пытаюсь сделать. Он должен всегда сохранять один и тот же путь с тем же именем и без подтверждения. Вот код, который у меня до сих пор:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) 
Application.EnableEvents = False 

Dim vFile 
Dim strDirectoryPath As String 
    If SaveAsUI Then 
vFile = Application.GetSaveAsFilename("C:\temp\Sample.xlsm", "Excel files (*.xlsm),*.xlsm") 
If TypeName(vFile) = "Boolean" Then 
Cancel = True 
Application.EnableEvents = True 
    Exit Sub ' user cancelled 
End If 
strDirectoryPath = "C:\temp\" 
If Dir(strDirectoryPath, vbDirectory) = "" Then MkDir strDirectoryPath 

ActiveWorkbook.SaveAs vFile, FileFormat:=56 
Application.EnableEvents = True 
saveProcessStarted = False 
Cancel = True 
Exit Sub 
End If 
Application.EnableEvents = True 
End Sub 

Answer 1

Я думаю, вы не хотите видеть какие-либо диалоги при сохранении книги.

Попробуйте использовать следующий код:

Application.DisplayAlerts = False 
ActiveWorkbook.SaveAs vFile, FileFormat:=56 
Application.DisplayAlerts = True