Datum en uur NIET automatische aanpassen bij open bestandje

[davylenders123]

Ik heb in een bestandje de formule (nu) gebruikt om in een bepaalde cel automatische de datum en uur in te vullen van zodra het bestand wordt open gedaan.
Dit bestand wordt ingevuld en dan door op een button te klikken automatische 2 keer afgedrukt en door gemaild naar een bepaald persoon.

De persoon die het bestandje via mail krijgt en dit open doet daar wordt echter de datum en uur terug aangepast aan de actuele datum en uur.

Hier zou echter de datum en uur moeten blijven staan van wanneer het bestandje is ingevuld.

Hoe kan ik dit oplossen ?

in bijlage het bestandje

Bekijk bijlage 1 retour opdracht diverse.xls

 

[ExcelAmateur]

davylenders123

Zou dit werken?

Private Sub Workbook_Open()
   If Sheets("invulblad").[B20] = "" Then Sheets("invulblad").[B20] = Now()
End Sub

 

[oeldere]

b20=

25-5-2011 19:28

met een copy en paste (voor cel b20) voordat je het bestandje mailt.

dit kan uiteraard ook in je code worden opgenomen.

 

[davylenders123]

Heb het op de manier van ExcelAmateur geprobeerd en dit is wat ik zocht.

Alle 2 bedankt voor jullie hulp . :thumb::thumb:

 

[oeldere]

Davy,

lees ik dit nu verkeerd dan?

op de manier van ExcelAmateur wordt juist de cel gevuld met de formule now().

deze formule staat al in cel B20.

je wilt toch hebben dat er een "vaste" waarde in de cel komt te staan.

ik zou denken (en heb dit getest) dat dit dan niet lukt!

of heb ik de vraag verkeerd begrepen?

plaats je nog even een reactie?

 

[popipipo]

@oeldere

op de manier van ExcelAmateur wordt juist de cel gevuld met de formule now().

Dit is niet juist.
Cel B20 wordt niet gevuld met de formule, maar gevuld met de waarde van vandaag, maar dan alleen als cel B20 leeg is.
Is cel B20 niet leeg dan gebeurt er niets.

Hierdoor wordt B20 gevuld (met de datum van vandaag) als het bestand voor de 1e keer geopend wordt.
Daarna gebeurt er niets meer met de cel.

 

[oeldere]

Popipippo,

bedankt voor de reactie.

maar in het bijgevoegde bestand was de datum wel ingevuld.

ik lees het probleem dan als volgt.

nu er een datum is ingevuld - met de formule nu() - wordt bij het openen van het bestand in cel B20 de waarde nu() weergegeven.

vraagsteller bedoelt volgens mij te zeggen dat B20 de datum en tijd moet weergeven dat het bestand is ingevuld.

dit is uiteraard een eerder moment dan dat het bestand (later) wordt geopend.

laten we even de reactie van de vraagsteller afwachten.

 

[davylenders123]

oeldere

zoals ExcelAmateur het beschreven heeft heb ik het gedaan.
Heb wel de formule nu die ik in het bestand in b 20 had staan verwijderd.

Als je nu het bestandje open doet dan wordt de cel automatisch ingevuld met actuele datum en uur.
Als het bestandje is doorgemaild en wordt dan open gedaan dan blijft de datum en uur in cel b 20 staan die er is ingekomen wanneer het bestandje voor de eerste keer is ingevuld.

Ik had in het bestandje in cel b 20 de formule nu gebruikt omdat dat de enige manier was dat ik zelf wist hoe ik daar de datum en uur in kon krijgen.
Maar dit lukte niet.
Daarom vroeg ik hoe ik het kon oplossen.
En dat mocht ook op een andere manier zoals ExcelAmateur vb voorsteld.

 

[davylenders123]

Ik ben toch nog op een problempje gelopen.

Ik wil nu de cel b20 beveiligen tegen aanpassen met een paswoord.
Als ik dat doe en doe het bestandje open dan krijg ik een foutmelding.

Hoe kan ik dit probleempje oplossen.

De cel b 20 zou moeten beveiligd worden tegen aanpassen en de macro voor de datum en uur zou wel moeten werken.

 

[ExcelAmateur]

davylenders123,

Als je bij het openen ervoor zorgt dat het password er van af gaat.
Dan na de regel die kijkt of de cel B20 inhoud heeft, het password er weer op zet.

Zou dit een optie zijn?

 

[davylenders123]

Dit kan wel een oplossing zijn.
Maar gaat dan het bestandje niet traag open gaan dan ?

Welke code moet ik dan juist toevoegen om het paswoord eraf te halen en als cel b20 is ingevuld er terug opkomt.

Het paswoord moet er wel terug opstaan voor dat ze het bestand beginnen in te vullen.
Heb de cellen die ze niet moeten ingeven allemaal geblokkeerd zodat ze de cellen niet per ongeluk kunnen aanpassen dat ze per ongeluk in die cellen terecht komen.

Het bestand gaat door verschillende personen gebruikt worden en deze zijn niet zo goed met de pc .Daarom de beveiliging van de cellen.

 

[ExcelAmateur]

davylenders123,

Kijk eens of het zo met deze code werkt.
Zet op de plaats van "jouw wachtwoord" je eigen wachtwoord.

Private Sub Workbook_Open()
   Sheets("invulblad").Protect Password:="jouw wachtwoord", UserInterfaceOnly:=True
   If Sheets("invulblad").[B20] = "" Then Sheets("invulblad").[B20] = Now()
End Sub

.
Of deze code.

Private Sub Workbook_Open()
   Sheets("invulblad").Unprotect Password:="jouw wachtwoord"
      If Sheets("invulblad").[B20] = "" Then Sheets("invulblad").[B20] = Now()
   Sheets("invulblad").Protect Password:="jouw wachtwoord"
End Sub

 

[davylenders123]

ExcelAmateur

Dat is hem B E D A N K T voor al je hulp :thumb::thumb:

 

[ExcelAmateur]

Dat is hem B E D A N K T

Dank je.

Heb je de bovenste of de onderste code gebruikt?

Vergeet niet de vraag als opgelost te zetten.

 

[davylenders123]

Heb de bovenste code gebruikt.