Pop -up bij opslaan

[Disturbed7]

Hallo,

Het kan je in excel een boodschap op je scherm krijgen als je het bestand opslaat?

Ik vermoed dat je dit met vb kan, maar vind daar niet direct iets van terug.

Alvast bedankt

 

[dHijlkema]

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Not ThisWorkbook.Saved Then
    lAnswer = MsgBox("Wil je dit bestand opslaan?", vbQuestion + vbYesNo)
    If lAnswer = vbYes Then
        ThisWorkbook.Save
        MsgBox ThisWorkbook.Name & " heb ik maar even gesaved voor je!"
    End If
End If
End Sub

zoiets?

Groeten,
Dennis

 

[Warme bakkertje]

@Dennis
Het kan ook zonder variabele

If MsgBox("Wil je dit bestand opslaan?", vbQuestion + vbYesNo) = vbYes Then

 

[dHijlkema]

@Dennis
Het kan ook zonder variabele

If MsgBox("Wil je dit bestand opslaan?", vbQuestion + vbYesNo) = vbYes Then

Mooi, weer wat geleerd

 

[Disturbed7]

Dat ziet er goed uit è!

Klopt het dat je dan wel niet kan saven als xls of xlsx bestand?

Edit: dus dit lukt niet als er enkel gesaved wordt?

 

[Warme bakkertje]

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Not ThisWorkbook.Saved Then
    If MsgBox("Wil je dit bestand opslaan?", vbQuestion + vbYesNo) = vbYes Then
        ThisWorkbook.SaveAs "D:\Mijn documenten\" & ThisWorkbook.Name & ".xls"
        MsgBox ThisWorkbook.Name & " heb ik maar even gesaved voor je!"
    End If
End If
End Sub

 

[Disturbed7]

Eigenlijk mag het niet automatisch gesaved worden, omdat de locatie niet op voorhand bekend is.
Dus eerst de boodschap, daarna het venster van opslaan als.

Is dat mogelijk met een klik op de opslaan toets?

 

[Warme bakkertje]

Dan heb je toch geen boodschap nodig maar wel dit

sub tst()
Application.Dialogs(xlDialogSaveAs).Show
end sub

 

[Disturbed7]

Dit heb ik nodig, maar ook de boodschap.

Met een concreet vb zal het mss beter zijn:

Wanneer iemand op de save knop drukt, dan moet er een boodschap verschijnen "heb je de datum wel ingevuld?". Wanneer op ja geklikt wordt dan moet het scherm "opslaan als" verschijnen.

 

[Warme bakkertje]

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    If [A1].Value = "" Then
        MsgBox "Je hebt geen datum ingevuld", vbOKOnly, "Waarschuwing"
        Cancel = True
    Else
        Application.Dialogs(xlDialogSaveAs).Show
    End If
End Sub

Als de datumcel ( A1 in het vb) leeg is krijg je de boodschap en ga je terug naar het werkblad, anders wordt het opslaan als venster getoond

 

[matthiej88]

Even een vraag in de lijn van de vorige vraag:

Kan ik ervoor zorgen dat een moederbestand nooit overschreven wordt? Ik heb namelijk een standaardprojectplan gemaakt en dit basisbestand moet altijd het zelfde blijven.

Kan er een popup komen, waardoor er alleen "opslaan als.." kan worden gekozen? of in ieder geval een extra vraag of je dit bestand gewoon wilt opslaan oid..

alvast bedankt!

Matthijs

 

[Warme bakkertje]

Maak van je moederbestand een sjabloon zodat er enkel met kopieën gewerkt wordt en niet geraakt wordt aan je origineel

 

[matthiej88]

super, bedankt!

 

[Warme bakkertje]

Zet je de vraag dan nog even op opgelost(rechts onderaan de pagina)

 

[matthiej88]

Zet je de vraag dan nog even op opgelost(rechts onderaan de pagina)

Helaas ben ik daar niet toe gemachtigd. Dat is de melding die ik krijg in ieder geval

Kan alleen de vraag starter dat misschien?