Macro

[refereenr1]

Ik heb zitten proberen op macro te maken om datum en uur op te slaan wanneer het excell document wordt opgeslagen en gesloten.
Ik ben gewoon van in 2003 te werken, maar nu 2007, is beetje teveel zoeken, en geeft steeds fout om VBA scriptje op te slaan.
Wie kan helpen voor in één cell datum en uur van laatste wijziging (bewaren + sluiten) weer te geven??

Bedankt
Bart

 

[paulva]

Dit werkt volgens mij hetzelfde in alle versies van Excel.
Bekijk bijlage save.xls

 

[refereenr1]

Het kan aan mij liggen, maar ik zie in je document save, geen bewaring of link naar een macro.
Ofwel gebeurt er iets niet door download naar mijn excell.
Kan je uw scriptje hier apart posten aub??

mercikes voor de hulp al.

bart

 

[paulva]

De volgende code plaats ik in de werkboek-module.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Sheets(1).Cells(1, 1).Value = Now()
End Sub

Dan worden datum en tijd in cel a1 geplaatst.
Het spreekt vanzelf dat het bestand hierboven moet gedownload worden en niet dadelijk geopend. Alleen-lezen-bestanden zijn beperkt in mogelijkheden. Misschien kan je zelfs niet opslaan in een temp-map. En het gebruik van macro's moet ook toegestaan worden.

 

[refereenr1]

Bij wil dus niet werken he
Ik weet niet wat ik misdoe

Dit heb ik geplakt onder vba code
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets(1).Cells(5, 5).Value = Now()
msg ("datum wordt bewaard")
End Sub
=> heb er msg bij toegevoegd om te zien dat hij doet, maar krijg geen pop-up...

 

[Jack Nouws]

  MsgBox ("Datum wordt Bewaard!")

 

[refereenr1]

Dat die messagebox niet werkt, vind ik minder, maar mijn vba script lukt niet om datum te saven, en dat is belangrijk om te weten wanneer laatste datum is opgeslagen

 

[cow18]

je events staan vemoedelijk uit.
zet die aan met application.enableevents=true in thisworkbook in de open-event

 

[paulva]

Bij mij worden die events vanzelf weer ingeschakeld als Excel afsluit en weer opstart.
Ik denk dat de macro's niet werken.
Het open-event zou trouwens ook niet werken, wel?

 

[refereenr1]

Macro staat aan, voor zover ik zie.

Wat moet ik allemaal checken om zeker te zijn?

Is wel enorm verschil tussen office 2003 en 2007 qua instellingen en dergelijke.

 

[Warme bakkertje]

Heb je de code wel degelijk geplaatst in ThisWorkbook ?

 

[paulva]

Dit lijkt mij het belangrijkste:

macrobeveiliging

 

[refereenr1]

Zie bijlage, dit is wat ik heb

 

[refereenr1]

En dit zijn settings van macro's:

 

[paulva]

Wel, de code in module1 (cijfertje 1 in bijgaande jpg) heeft weinig zin maar kan dienen om je event weer aan te zetten:
plaats dus een gewone subroutine hier:
sub doe()
Application.EnableEvents = true
end sub
(zoals cow18 zei)
Blijf dan even met je pointer op de lijn tussen sub en endsub, klik dan op het driehoekje net boven het cijfertje 3 in bijgaande jpg.

In de ThisWorkbook code (cijfertje twee in bijgaande jpg) verander je
msg in msgbox
(zoals Jack Nouws zei)

En als het dan niet werkt, dan weet ik het ook niet meer...