msoFileDialogSaveAs - no error on file save when file is open

Hello,
I'm not sure what I'm doing wrong. I get no error notification when I try to overwrite the file which is open in different app. For example Acrobat.
Like the error is not triggered.

Attachment 30406

http://www.vbaexpress.com/forum/imag...BJRU5ErkJggg==

Thank you in advance

Should post code as text between CODE tags so readers can copy/paste it - not image. Can edit your post.

Have you step debugged?

Quote:

---

Originally Posted by June7

Should post code as text between CODE tags so readers can copy/paste it - not image. Can edit your post.

Have you step debugged?

---

Hi, you are right. Sorry. Pasted an image.

I have added

Code:

---

Application.DisplayAlerts = True

---

Now it asks if I'm sure that I want to overwrite the file but there is no warning box that it could not be done as file is currently in use.

Tbh I can use native

Code:

---

Application.CommandBars.ExecuteMso("FileSaveAs")

---

but I would like to have more custom dialog

Here is what I have now:

Code:

---

Sub CommandButton3_Click()

Dim dlgSaveAs As FileDialog

On Error GoTo ErrorHandler
Application.DisplayAlerts = True

If Application.Presentations.Count = 0 Then
Call MsgBox("Please open presentation file before save", vbExclamation, "Test")
Exit Sub
End If

Set dlgSaveAs = Application.FileDialog(msoFileDialogSaveAs)

dlgSaveAs.Title = "Save PDF"
dlgSaveAs.ButtonName = "Save PDF"
dlgSaveAs.FilterIndex = 4

With dlgSaveAs
    If .Show Then
        .Execute
        Call MsgBox("PDF was saved successfully", vbInformation, "Test")
    Else
        Call MsgBox("PDF was not saved", vbInformation, "Test")
    End If
End With

NormalExit:
    Exit Sub

ErrorHandler:
    MsgBox "Error"
    Resume NormalExit:

End Sub

---

Try

Code:

---

Sub test()
Dim dlgSaveAs As FileDialog
Dim strPath As String
On Error GoTo ErrorHandler
If Application.Presentations.Count = 0 Then
  Call MsgBox("Please open presentation file before save", vbExclamation, "Test")
  Exit Sub
End If
Set dlgSaveAs = Application.FileDialog(msoFileDialogSaveAs)
dlgSaveAs.Title = "Save PDF"
dlgSaveAs.ButtonName = "Save PDF"
dlgSaveAs.FilterIndex = 4
With dlgSaveAs
    If .Show Then
        call  ActivePresentation.SaveAs (.SelectedItems(1), ppSaveAsPDF)
        Call MsgBox("PDF was saved successfully", vbInformation, "Test")
    Else
        Call MsgBox("PDF was not saved", vbInformation, "Test")
    End If
End With
NormalExit:
    Exit Sub
ErrorHandler:
    MsgBox "Error"
    Resume NormalExit
End Sub

---

Thank you!
I had a feeling this .Excecute was a problem.
I added path checking in ErrorHandler MsgBox so now it reflects native SaveAs behaviour.