Frankell87
Gebruiker
- Lid geworden
- 7 mei 2015
- Berichten
- 141
Hallo,
Ik probeer een bestand op meerdere plaatsen op ons interne netwerk op te slaan. Niet iedereen kan namelijk overal bijkomen en dit geeft het voordeel dat we het bestand niet hoeven te kopieeren met de kans op fouten.
Er zijn een aantal personen die wel alle toegang en schrijfbevoegdheid hebben. (niet iedereen hoeft er ook dingen in te wijzigen)
Zodra ik de macro laat lopen die ik tot nu toe heb doet hij bij mij precies wat hij moet doen, bij het afsluiten komt hij met een pop-up of je wil opslaan of niet of wil annuleren. Bij het opslaan doet hij dat in 3 verschillende mappen (worden er meer).
MAAR, zodra iemand anders die niet de juiste bevoegdheden heeft een wijziging aanbrengt, afsluit en hem wil opslaan komt er een foutmelding van de macro en stopt hij. Zeker een leek weet nu niet wat er is gebeurt en of hij uberhaubt is opgeslagen. Als je de macro nu zou stoppen gaat hij verder met afsluiten.
Graag zou ik zien dat er alleen een POP-up komt die aangeeft in welke map hij niet heeft kunnen opslaan. Waarna de keuze er is om toch af te sluiten zonder dat wijzigingen in alle mappen zijn doorgevoerd. (Dus weer pop-up met keuze afsluiten ja/nee) Eerdere mappen waar de macro al wel langs is geweest zijn dan waarschijnlijk al aangepast
onderstaand de macro die ik nu heb:
Ik probeer een bestand op meerdere plaatsen op ons interne netwerk op te slaan. Niet iedereen kan namelijk overal bijkomen en dit geeft het voordeel dat we het bestand niet hoeven te kopieeren met de kans op fouten.
Er zijn een aantal personen die wel alle toegang en schrijfbevoegdheid hebben. (niet iedereen hoeft er ook dingen in te wijzigen)
Zodra ik de macro laat lopen die ik tot nu toe heb doet hij bij mij precies wat hij moet doen, bij het afsluiten komt hij met een pop-up of je wil opslaan of niet of wil annuleren. Bij het opslaan doet hij dat in 3 verschillende mappen (worden er meer).
MAAR, zodra iemand anders die niet de juiste bevoegdheden heeft een wijziging aanbrengt, afsluit en hem wil opslaan komt er een foutmelding van de macro en stopt hij. Zeker een leek weet nu niet wat er is gebeurt en of hij uberhaubt is opgeslagen. Als je de macro nu zou stoppen gaat hij verder met afsluiten.
Graag zou ik zien dat er alleen een POP-up komt die aangeeft in welke map hij niet heeft kunnen opslaan. Waarna de keuze er is om toch af te sluiten zonder dat wijzigingen in alle mappen zijn doorgevoerd. (Dus weer pop-up met keuze afsluiten ja/nee) Eerdere mappen waar de macro al wel langs is geweest zijn dan waarschijnlijk al aangepast
onderstaand de macro die ik nu heb:
Code:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Select Case MsgBox("Wil je het bestand opslaan voor het sluiten?", vbYesNoCancel)
Case Is = vbYes
Dim Origname As String
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs "C:\map 1" + ActiveWorkbook.Name
ActiveWorkbook.SaveAs "C:\map 2" + ActiveWorkbook.Name
ActiveWorkbook.SaveAs "C:\map 3" + ActiveWorkbook.Name
Application.DisplayAlerts = True
Case Is = vbCancel
Cancel = True
Case Is = vbNo
ThisWorkbook.Saved = True
Exit Sub
End Select
End Sub
Laatst bewerkt: