Werktijd excelblad

[alsoft]

Kan iemand mijn de oplossing geven om een werkblad te beveiligen welke gekoppeld is aan een te in te stellen looptijd.

BV ik wil een blad voor 1 jaar beschikbaar houden voor het gebruik daarvan.

Is dit met een Macro op te lossen?

 

[Hoornvan]

alsoft,

Misschien heb je hier wat aan, met een aanpassing?
Deze code is van even terug hier op helpmij.

In ThisWorkbook			
			
Private Sub Workbook_Open()			
Call DeleteThisModule			
End Sub			
			
Sub DeleteThisModule()	Dit in een module		
Dim vbCom As Object			
'einddatum = 40179 'vertegenwoordigt 01/01/2010			
einddatum = 39774 'vertegenwoordigt 22/11/2008			
    If Date < einddatum Then Exit Sub			
MsgBox "het bestand is onbruikbaar, bel voor een nieuwe versie "			
			
Set vbCom = Application.VBE.ActiveVBProject.VBComponents			
    vbCom.Remove VBComponent:= _			
        vbCom.Item("Naam")			
End Sub

 

[Hoornvan]

alsoft,

Ik weet niet of het je al is gelukt?
Deze code heb ik geprobeerd en werkt.
Pas het aan naar de datum die jij wil.

[COLOR="red"]In ThisWorkbook[/COLOR]
Private Sub Workbook_Open()
    Call OpSlot
End Sub

[COLOR="Red"]Dit in een Module[/COLOR]
Sub OpSlot() 
    einddatum = 39789 'vertegenwoordigt 7/12/2008
    If Date < einddatum Then Exit Sub
    MsgBox "Dit bestand wordt beveiligd, bel voor de Code"
    Sheets("Blad1").Protect
End Sub

 

[Warme bakkertje]

Alsoft, je mag dan ook niet vergeten van je VBA-project te beveiligen met een paswoord want anders is dit snel omzeild.

Mvg

Rudi

 

[alsoft]

Werktijd

Prima het werkt

Hartelijkdank voor het meedenken

 

[Hoornvan]

alsoft,

Warme bakkertje,
Daar heb je gelijk in dus voeg het laatste stukje rode code toe.

Sheets("Blad1")[COLOR="Red"].Protect Password:="Wat je wil"[/COLOR]

 

[Wigi]

alsoft,

Warme bakkertje,
Daar heb je gelijk in dus voeg het laatste stukje rode code toe.

Sheets("Blad1")[COLOR="Red"].Protect Password:="Wat je wil"[/COLOR]

Hoornvan,

Niet enkel bladen beveiligen, ook de VBA-code op zich.

Wigi

 

[alsoft]

Datum code

Wat voor datum code moet ik invoeren naar bv 15 mei 2010.
Of bestaat er een lijst voor code's welke verwijzen naar datums

 

[Hoornvan]

Wigi,

Dat is ook mogelijk maar zoals je wel weet is dit allemaal binnen de minuut te kraken.
Dus echt beveiligen helpt niet echt.

alsoft,

Wat voor datum code moet ik invoeren naar bv 15 mei 2010

Dat is 40313
Zet in een cel de datum en zet de eigenschappen op Standaard en je ziet het getal hier voor.

 

[alsoft]

datum code

Bedankt ik weet nu genoeg

Perfect werkt dit forum

 

[Wigi]

Wigi,

Dat is ook mogelijk maar zoals je wel weet is dit allemaal binnen de minuut te kraken.
Dus echt beveiligen helpt niet echt.

Inderdaad, heb je gelijk in. Maar toch beter dat dat het niet doen.

Groeten,

Wigi