Excel sheet beveiligen na dat de datum verstreken is

[DannyKos]

Goedemorgen beste helpmij bezoekers!

Voor mijn werk ben ik een calculatie sheet aan het maken in excel, deze is zeer uitgebreid, maar ik mis nog 1 handige functie.

Ik wil graag dat wanneer de door mij ingevoerde datum verstreken is, het excel sheet volledig word beveiligt doormiddel van een paswoord

nou heb ik zelf al wat gevonden maar krijg dit helaas niet werkend, kan iemand bij hierover uitleg geven ?

VOORBEELD:

=if Date >F14/1/2010#then activesheet.protect password:=''danny'' end if

Groeten en alvast bedankt

Danny

 

[Hoornvan]

DannyKos,

Zet dit achter het betreffende blad.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If [F14] > 22 / 2 / 2010 Then ActiveSheet.Protect Password:="danny"
End Sub

Kan ook zo

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Date > 22 / 2 / 2010 Then ActiveSheet.Protect Password:="danny"
End Sub

Of zo

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Date > [F14] Then ActiveSheet.Protect Password:="danny"
End Sub

 

[DannyKos]

DannyKos,

Zet dit achter het betreffende blad.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If [F14] > 22 / 2 / 2010 Then ActiveSheet.Protect Password:="danny"
End Sub

Kan ook zo

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Date > 22 / 2 / 2010 Then ActiveSheet.Protect Password:="danny"
End Sub

Of zo

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Date > [F14] Then ActiveSheet.Protect Password:="danny"
End Sub

Bedankt voor je snelle reactie!

ik neem aan dat ik dit in visual basic moet invoeren ?
ik ben namelijk nog niet zo thuis in visual...

groeten

Danny

 

[Hoornvan]

DannyKos,

Klik met rechts op het betreffende tabblad en kies voor Programma code weergeven.
Plaats daar de code.

 

[Hoornvan]

Ik weet niet of het al gelukt is maar hier een voorbeeldje.

 

[DannyKos]

DannyKos,

Klik met rechts op het betreffende tabblad en kies voor Programma code weergeven.
Plaats daar de code.

Ontzettend bedankt

ik heb het toegevoegd en een testje op gezet (kijken of ik morgen het paswoord moet invoeren haha)

is het trouwens ook mogelijk om die datum een text naar voren te laten komen ?

zoiets van : datum verlopen, raadpleeg danny

Groeten

Danny

 

[Hoornvan]

Zet deze regel erbij.

MsgBox "Datum is verlopen!!" & vbLf & "Raadpleeg Danny"

 

[Hoornvan]

Zat net even te denken (doe ik soms) maar je kunt de code beter in ThisWorkbook zetten.
Zodra je de file opend kijkt hij naar de datum in F14.

Private Sub Workbook_Open()
  If Date > [F14] Then ActiveSheet.Protect Password:="danny"
  MsgBox " Datum is verlopen !!" & vbLf & " Raad pleeg Danny"
End Sub

Als hij het soms niet doet , moet je er misschien de Bladnaam erbij zetten, het ! hoort erbij.

Private Sub Workbook_Open()
  If Date > [Blad1!F14] Then Blad1.Protect Password:="danny"
  MsgBox " Datum is verlopen !!" & vbLf & " Raad pleeg Danny"
End Sub

 

[Friend]

Met belangstelling de vraag en de oplossing gevolgd.
Alleen als ik, nadat het tabblad beveiligd is, met de rechtermuisknop op de naam van het tabblad klik, programma code, dan zie ik het comando met het paswoord.
Kan je dit ook beveiligen ?
Hoor graag. Hartelijk dank

 

[Hoornvan]

Friend,

Dan moet je de VBA beveiligen met een password.

 

[DannyKos]

Friend,

Dan moet je de VBA beveiligen met een password.

Beste Hoornvan,

Ontzettend bedankt voor al je informatie

Ik denk dat we dit topic al vroeg tijdig kunnen sluiten hierdoor

hopelijk tot een volgende keer

groeten,

Danny

 

[Hoornvan]

DannyKos,

Graag gedaan.

Vergeet niet om de vraag als opgelost te zetten, dank je.

Weet je dat er nog een vraag open staat van 15-10-2009 /

 

[Friend]

Hartelijk dank voor de reactie. Bescheiden vraagje, ik kom er zelf niet uit : hoe beveilig ik mijn VBA code. Is dit scenario beveiligen bij alle beveiligingsoptie?
Hartelijk dank voor je support.
Friend

 

[Hoornvan]

Friend,

Klik met rechts in de VBA Editor op de map en kies Eigenschappen van VBA Project.
In het volgende menu klik je op Beveiliging zet een vinkje bij Project vergrendelen en voer een password in.
Sluit de file af en open hem opnieuw, als het goed is kun je niet in de VBA komen van de file.
Vergeet ook niet dat er programma's zijn die binnen een paar sec. binnen zijn.

 

[Friend]

Heel hartelijk dank, weer iets geleerd. Friend