Opslaan ->Marco uitvoeren

[Pander]

Hallo,

Is het ook mogelijk om, wanneer in Excel, op het opslaan icoontje wordt gedrukt er een macro wordt uitgevoerd? Of kan ik ergens regelen dat het opslaan icoontje niet werkt?

gr,

 

[edmoor]

Met dit in de ThisWorkbook sectie:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    [COLOR="#008000"]'Je code[/COLOR]
End Sub

 

[Pander]

Edmoor,

dankjewel voor je reactie.

Ik heb een gedeeld bestand dat door meerdere personen op het zelfde ogenblik moet kunnen worden geopend maar dat iedere keer als een bestand met een andere naam moet kunnen worden opgeslagen. Daarvoor is onderstaande code.

Ik wil eigenlijk voorkomen dat er alleen kan worden opslagen nadat onderstaande code is uitvoerd

Sub opslaan2()
Bestand = "P:\dezemap\endandezemap\" & Sheets("Blad1").Range("Y1") & ".xlsm"
If Dir(Bestand) <> "" Then
MsgBox "Bestand bestaat al"
Exit Sub
End If
If MsgBox("U staat op het punt om dit bestand op te slaan. Is dit de bedoeling?", vbYesNo, "Blad opslaan?") = vbNo Then Exit Sub
ActiveWorkbook.SaveAs Filename:=Bestand
End Sub

 

[edmoor]

Maak er dan dit van:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If ThisWorkbook.Saved Then Cancel = True
End Sub

Of neem je code in die Sub op.

 

[Pander]

Hoi Edmoor,

dank voor je oplossing.

gr,
P