Excel Marco voorstel filename bij opslaan

[Weust]

Beste lezers,

Ik ben opzoek naar een macro in Excel die wanneer een gebruiker op 'opslaan' of op 'opslaan als' drukt een bepaalde bestandsnaam voorstelt.
Het liefst ook nog dat de extensie .xlsm geselecteerd wordt.

Ik heb nu de volgende macro's, maar hierbij loopt excel vast omdat hij door blijft gaan met opslaan (denk ik, vandaar 'END' in de code)

Iemand een idee?


Onderstaande in ThisWorkbook

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)


'voor als ik aan het knoeien ben en toch wil opslaan
If Sheets("KOSTPRIJS").Range("C4").Value = "Test1234" Then GoTo 9

    Call SaveasDialog 'module 1

End
9

End Sub

Onderstaande in module 1

Sub SaveasDialog()

Dim sWBName As String

sWBName = Sheets("KOSTPRIJS").Range("NR").Value & " " & Sheets("KOSTPRIJS").Range("PROJECTNAAM").Value
Application.Dialogs(xlDialogSaveAs).Show sWBName
End

End Sub

 

[edmoor]

Probeer het zo eens. Die module is dan ook niet nodig.

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

    With Sheets("KOSTPRIJS")
        [COLOR="#008000"]'voor als ik aan het knoeien ben en toch wil opslaan[/COLOR]
        If .Range("C4").Value <> "Test1234" Then
            Application.Dialogs(xlDialogSaveAs).Show .Range("NR").Value & " " & .Range("PROJECTNAAM").Value
            Cancel = True
        End If
    End With
    Application.EnableEvents = True
End Sub