"Dé grootste en gratis computerhelpdesk van Nederland"
Progress bar
- Onderwerp starter Ron001
- Startdatum
- Status
Deze staat er momenteel in...Private Sub Workbook_BeforeClose(Cancel As Boolean)
Omdat ik vraag als ze de file sluiten dat deze moet gesaved worden (Ja => Back up, Nee => Gebeurt niets), met MsgBox "Ja - Nee" zonder een "Cancel" dat men gewoon in de file kan blijven.
Nu sluit men altijd (met of zonder opslaan)
Nu ff in de tuin liggen, te goed weer :d
Omdat ik vraag als ze de file sluiten dat deze moet gesaved worden (Ja => Back up, Nee => Gebeurt niets), met MsgBox "Ja - Nee" zonder een "Cancel" dat men gewoon in de file kan blijven.
Nu sluit men altijd (met of zonder opslaan)
Nu ff in de tuin liggen, te goed weer :d
Code:
Sub Opslaan_copy()
If Not ThisWorkbook.ReadOnly Then
Select Case MsgBox("Bestand opslaan?", vbYesNo, "Vraagske") '2 keuze box openen, "Ja/Nee "
Case Is = vbYes 'Wanneer "Ja", opslaan op de locatie hieronder
Dim Origname As String
Application.DisplayAlerts = False
With Sheets("Blad2")
.Range("A1").Value = .Range("A1").Value + 1
If .Range("A1").Value >= 500 Then
.Range("A1").Value = 1
End If
ActiveWorkbook.Save
End With
ActiveWorkbook.SaveAs "W:\AS_ONDH\9. Mappen van WVB-IBT-WM\Ron\Up2DateCopyPoPlanfile\" & Sheets("Blad2").Range("A1") & " " & Replace(Environ("username"), ".", " ")
Application.DisplayAlerts = True
Exit Sub 'Afsluiten bestand na het opslaan
'Case Is = vbCancel 'Wanneer "Annuleren", terug naar bestand
'Cancel = True
Case Is = vbNo 'Wanneer "Nee", afsluiten zonder opslaan
ThisWorkbook.Saved = True
Exit Sub 'Afsluiten
End Select
End If
End Sub
Laatst bewerkt:
edmoor
Inventaris
- Lid geworden
- 8 sep 2000
- Berichten
- 39.708
- Besturingssysteem
- Windows XP, 7, 10, 11-23H2
- Office versie
- Office 365
En, zoals ik al eerder zei, dat moet niet.
De code uit de Sub Opslaan_Copy moet in de Sub Workbook_BeforeClose(Cancel As Boolean) als je gebruikt wilt kunnen maken van de Cancel = True mogelijkheid.
De code uit de Sub Opslaan_Copy moet in de Sub Workbook_BeforeClose(Cancel As Boolean) als je gebruikt wilt kunnen maken van de Cancel = True mogelijkheid.
- Status
