Check if file is saved.

[S Oberlander]

I have the following sub to save my excel file as a binary workbook. It works great, I just want to add that it should check if my excel file is actually saved already, and if yes it should just save the current file and not save a copy.
I am looking to replace the default save button on the quickaccess toolbar, I find the method used there annoying and long winding...

Sub SaveBinary()

    Dim fname As Variant
    Dim FileFormatValue As Long
     
        fname = Application.GetSaveAsFilename(InitialFileName:=ActiveCell, filefilter:= _
            " Excel Macro Free Workbook (*.xlsx), *.xlsx," & _
            " Excel Macro Enabled Workbook (*.xlsm), *.xlsm," & _
            " Excel 2000-2003 Workbook (*.xls), *.xls," & _
            " Excel Binary Workbook (*.xlsb), *.xlsb", _
            FilterIndex:=4, Title:="Save as xlsb")

        'Find the correct FileFormat that match the choice in the "Save as type" list
            Select Case LCase(Right(fname, Len(fname) - InStrRev(fname, ".", , 1)))
            Case "xls": FileFormatValue = 56
            Case "xlsx": FileFormatValue = 51
            Case "xlsm": FileFormatValue = 52
            Case "xlsb": FileFormatValue = 50
            Case Else: FileFormatValue = 0
            End Select
         
         If fname = False Then
         Exit Sub
         End If
         
           ActiveWorkbook.SaveAs fname, FileFormat:=FileFormatValue, CreateBackup:=False
           ActiveWorkbook.Save
           
End Sub

 

[BSALV]

change
       MsgBox "Original " & IIf(b, "only ", "and copy ") & "Saved", vbInformation, "Result Saving"
  into
       if not b then MsgBox "Original and copy Saved", vbInformation, "Result Saving"

 

[S Oberlander]

I do not need or want a copy

 

[BSALV]

you don't want that whole "getsaveas"-story ?
Just check of changes since last "Save" ?

If Not ActiveWorkbook.Saved Then ActiveWorkbook.Save

 

[S Oberlander]

I tried that, but if the workbook has never been saved yet it will run the save, but I will be unable to change its title or choose a location and I also did not figure out where it actually saves the file to.
If you read my post from yesterday at 1:54 pm, I have an amateurish solution there. I simply need a way to know if this workbook has ever been saved. When I use Mid(ActiveWorkbook.FullName, InStr(1, ActiveWorkbook.FullName, "\"), 1) I can tell vba to just save and skip the '"getsaveas"-story' if it finds a slash.
I had to put in error handling so the code should not get stuck if it doesn't find a slash and continue to the '"getsaveas"-story'.
I'm sure there is a better solution I just dont know it.