Gemme en fil i et bestemt bibliotek via makro

Måsjke noget i denenc stil.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If IsEmpty(Range("a100")) Then
        ThisWorkbook.SaveAs "C:\Dokumenter\fil2006.xls"
        Application.Dialogs(xlDialogSaveAs).Show
    Else
        Exit Sub
    End If
End Sub

Jeg har lidt problemer med min pc i øjebvlikket, så det er ikke testet.

Den starter med at gemme filen c:\dokumenter\2006.xls og derefter åbner den dialogboksen gem som.

Det skal den helst ikke. Den skal helst bare foreslå filnavnet fil2006.xls og pege på stien c:\dokumenter\  (herefter vælger jeg selv en undermappe i denne mappe)

Jeg har ændret på rækkefølgen af linierne, men det virker heller ikke helt som det skal.


Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If IsEmpty(Range("a100")) Then
        Application.Dialogs(xlDialogSaveAs).Show
        ThisWorkbook.SaveAs "C:\Dokumenter\fil2006.xls"
    Else
        Exit Sub
    End If
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If IsEmpty(Range("a100")) Then
        Application.Dialogs(xlDialogSaveAs).Show
        ThisWorkbook.SaveAs "C:\Dokumenter\fil2006.xls"
  '******************
      Cancel = true
  '******************
    End If
End Sub

kabbak-> Når jeg afprøver din kode sker derv ingenting. SaveAs dialogvoksen vises ikke, og mappem bliver ikek gemt.

Fjerner jeg Cancel = True vises SaveAs to gange. Første gang i standrd anden gang som ønsket.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If IsEmpty(Range("a100")) Then
        Application.Dialogs(xlDialogSaveAs).Show "C:\Dokumenter\fil2006.xls"
    Else
        Exit Sub
    End If
End Sub

bak-> Din løsning viser også GemSom to gange. I hvert fald første gang der gemmes.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If IsEmpty(Range("a100")) Then
        Application.EnableEvents = False
        Application.Dialogs(xlDialogSaveAs).Show
        ThisWorkbook.SaveAs "C:\Dokumenter\fil2006.xls"
        Application.EnableEvents = True
        Cancel = True
    End If
End Sub

kabbak-> Det er ikek så nemt endda.

Linien

        ThisWorkbook.SaveAs "C:\Dokumenter\fil2006.xls"

gemmer filen, også hvis der trykkes Annuller i dialogboksen eller vælger et andet sted til at gemme.

Denne har jeg ingen problemer med

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Application.EnableEvents = False
    Cancel = True
    SaveAsUI = False
    If IsEmpty(Range("a100")) Then
        Application.Dialogs(xlDialogSaveAs).Show "C:\fil2010.xls"
    End If
    Application.EnableEvents = True
End Sub

og dog... det viser at den ikke fastholder stien, men kun filnavnet, så man skal nok lige have CHDIR "C:\Dokumenter" indsat før.

Jeg kan se at der har været en heftig debat på området, siden jeg sidst har været herinde på siden.
Jeg kan forstå at det ikke er så lige til at lave. Bak´s kommentar omkring chdir.... forstår jeg desværre ikke.

Er der nogen der kan hjælpe med chdir... og drible bolden i mål?

Det er kun et problem hvis den har været gemt før og ikke i alle excelversioner.

Test og check. Ellers brug nedenstående version

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Application.EnableEvents = False
    Cancel = True
    SaveAsUI = False
    If IsEmpty(Range("a100")) Then
        chdir "C:\Dokumenter"
        Application.Dialogs(xlDialogSaveAs).Show "C:\Dokumenter\fil2010.xls"
    End If
    Application.EnableEvents = True
End Sub