• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Datum laatste keer opgeslagen

Status
Niet open voor verdere reacties.
Code: 
Sub VenA()
  MsgBox ThisWorkbook.BuiltinDocumentProperties(12)
End Sub
 
Deze voor in een cel

Code: 
Sub Macro1()
Cells(8, 4) = ActiveWorkbook.BuiltinDocumentProperties(12).Value
End Sub
 
En deze als het bestand wordt geopend.

Code: 
Private Sub Auto_Open()
Cells(10, 4) = ActiveWorkbook.BuiltinDocumentProperties(12).Value
End Sub


Cell geeft aan regel 10 kolom D
 
Of als functie, dit in een module:
Code: 
Function LaatstOpgeslagen() As Date
    ActiveCell.NumberFormat = "d/mm/yy h:mm;@"
    LaatstOpgeslagen = ThisWorkbook.BuiltinDocumentProperties(12)
End Function

Dan in bijvoorbeeld F6:
Code: 
=LaatstOpgeslagen()
 
Ben, de private sub (blad1) moet de macro toch uitvoeren bij het openen van het bestand? Hij wordt alleen uitgevoerd als ik de macro zelf uitvoer. Wat doe ik fout of weer een denkfout van mij?

Bekijk bijlage OpslaanOp_A.xlsb
 
Die sub moet in een Module.
Of dit in de ThisWorkbook sectie:
Code: 
Private Sub Workbook_Open()
    Cells(6, 6) = ActiveWorkbook.BuiltinDocumentProperties(12).Value
End Sub
 
Laatst bewerkt:
oh? Ik vraag dit omdat de andere private sub (auto fit) die ik in blad1 heb staan (weliswaar hier inactief) die wordt automatisch uitgevoerd bij iedere verandering in het blad
 
Dat is een totaal andere gebeurtenis (Event).
 
sorry edmoor, ik ben een nono.
Wat ik dus wil, tonen tijdstip laatste save, moet ik dus altijd met een macro knop doen?
 
Als iedereen alles zou weten was dit forum totaal overbodig ;)
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan