Verloopdatum toevoegen

[monty1a]

Ik ben al een tijdje opzoek naar een code waarmee ik een bestand mee kan beveiligen.

Na een bepaalde datum kan het bestand alleen geopend worden met een wachtwoord.

Bijv: Het bestand is bruikbaar tot 29-3-17, de gebruiker krijgt na deze datum te zien dat het bestand is verlopen en dat ze het alleen nog kunnen openen met een wachtwoord van de administrator. (Voorbeeld wachtwoord= 1234).

Kan iemand me helpen?

Alvast bedankt

 

[edmoor]

En wat voor een bestand heb je het dan over?

 

[monty1a]

Sorry... het gaat over excel bestand.

 

[HSV]

In thisworkbook.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
 If Date >= DateValue("30-03-2017") Then ThisWorkbook.SaveAs ThisWorkbook.FullName, ThisWorkbook.FileFormat, "1234"
Application.DisplayAlerts = True
End Sub

 

[monty1a]

Ik moet nu standaard het wachtwoord invoeren, ligt dat aan mijn instellingen oid?

 

[HSV]

Stop de code eens in een leeg bestand, sla het op, sluit het en heropen het.
Dan weet je het.

 

[monty1a]

Dan werkt die top...prcs wat ik wil..
Maar helaas niet in mijn orignele bestand...dit staat vol met andere codes ed..(die ik ook dankzij jullie heb) ...ik heb veel bladen verwijderd , maar de codes staan er wel in... zou jew misschien hierna willen kijken wat dan het probleem is?

Alvast bedankt

Bekijk bijlage Dagstaten Blanco test.xlsm

 

[HSV]

Ga naar opslaan.als > Extra > Algemene opties, maak daar waar de 4 punten staan van het wachtwoord leeg en sla het op.

 

[monty1a]

Super...Thanx