Hallo excellers

Weet iemand of het mogelijk is om met wat codes,  macro's en/of codes in een xls.workbook automatisch niet meer te laten functioneren, of eventueel te deleten, door een van te voren aangeven datum?
Met vriendelijk groet
Torro

Hey SoftAid... 'k heb je een tijd niet gehoord op het forum. Vakantie gehad?

Torro, je kan het jezelf heel simpel maken door je codeblokken te beginnen metSub...   ()
if Date >= Range("A1").value then Exit Sub

...rest van je code

End Sub
Je plaatst dan ergens in je sheet (in het voorbeeld cel A1) de datum waarop je wilt dat de code 'het niet meer doet'. Je kan er natuurlijk ook voor kiezen om de 'sluit-datum' als een constante in je code mee te geven. Wat doet het? Als de datum die je hebt opgegeven is bereikt, zal het if-statement er voor zorgen dat het codeblok wordt verlaten. Je kan eventueel nog een msgbox tonen met de mededellng dat de bewerking niet meer automatisch gaat. Anders snapt de gebruiker het welllicht niet meer....
Ik heb trouwens ooit op het net ergens code gevonden die zorgt voor het verwijderen van VBA-code. De maker (een goeroe) gaf zelf aan er ERG voorzichtig mee om te gaan. Dus ik denk dat mijn oplossing helemaal zo gek nog niet is...

Groet, Leo

Erik, je hebt wel gelijk... Maar ik vraag me af waarom je veel moeite doet om iets te automatiseren met behulp van VBA, om het vervolgens de nek om te draaien. Wat kan er dan zo belangrijk zijn dat je de code niet meer mag gebruiken? Ik geef toe, het is een simpele oplossing die kwa beveiliging nogal 'rammelt', maar hoe gewiekst zijn de gebruikers en hoeveel belang hebben ze er bij om de systeemdatum terug te zetten.

Maar ok... een zéér permanente oplossing kan ook! 

Torro, plaats deze code in je ThisWorkbook module van je VBE.Private Sub Workbook_Open()
On Error Resume Next
Const cVerwijderDatum = "14-7-2007"

    If Date >= cVerwijderDatum Then
       
        With ActiveWorkbook.VBProject
            'vervang 'MagWeg' voor je eigen module-naam
            .vbcomponents.Remove .vbcomponents("MagWeg")
            'volgende regel is nodig op het moment dat de module reeds is verwijderd
            If Err.Number = 9 Then GoTo Einde
        End With
       
        MsgBox "De automatiseringstoepassingen zijn verwijderd!", _
                vbOKOnly + vbExclamation, "On your own now... ;-)"
    End If

Einde:
End Sub
Maak een aparte module aan met de code die je wilt verwijderen en plaats daar de betreffende (te verwijderen) code in. Geef die module een duidelijke naam. Zet de 'constante' cVerwijderDatum in mijn codeblokje op de gewenste startdatum en verander de 'voorbeeld-module-naam' (MagWeg) in je eigen gecreeerde modulenaam.
Bij iedere 'opening' van het workbook zal er gekeken worden of de datum is overschreden. Zo ja, dan gaat het if-statement in werking en wordt de complete aangewezen module uit het workbook verwijderd.

Groet, Leo

BELANGRIJK Zorg er dus wel voor dat je te verwijderen code elders in een workbook hebt staan, anders zal je alles weer opnieuw moeten ontwikkelen!!!!

EDIT: Leuk... ik zie nu dat dit is mijn 400-ste bericht is...

Hallo Erik, Leo en Softaid .
Sorry voor de late reactie t.o.v. jullie oplossingen, ik ga de oplossingen proberen op een test file, en dan maar eens kijken wat er gebeurd.
Leo, ik lees dat je nu 400 berichten hebt geplaatst, 
daar heeft heel wat werk in gezeten, bedankt !
Erik, mijn workbook gaat over energiemonitoring met de daarbij behorende grafieken, trends, flowschema's en looplijsten met meterstanden, welke iedere maand ingevuld worden, en de uitkomsten worden via macro's. en code's  gebruikt  in het monitoringssysteem.
Ik hoop dat het een beetje duidelijk is wat ik met het workbook bedrijf.
Groet Torro

Torro,

Zijn er ook formules in je werkmap? Wellicht wel! Je spreekt immers over uitkomsten.
Wat moet er precies worden gestopt na bepaalde tijd:
1. invoer gegevens
2. output: grafieken, formules
3. enkel de macros

Vind je het erg als de slimste gebruikers je beveiliging omzeilen? Met andere woorden, neem je er genoegen mee dat enkel de doorsnee gebruikers moeten "plooien" voor jouw restricties? Hebben de gebruikers bijvoorbeeld de mogelijkheid om hun datum te wijzigen?

Je kan ook best eens een paar regeltjes van zo'n macro sturen: dat kan ons nog op wat ideeën brengen.

Torro, Ik ben ff door je code gegaan en heb 't een en ander als 'commentaar' gezet. De macrorecorder geeft bij het opnemen nogal wat 'ballast' mee, die je rustig na opname kan verwijderen. Zeker alle 'select's' moet je vermijden. Die vertragen flink als je code langer wordt.

Voor de standaard gebruiker zou het workbook nu beveiligd moeten zijn (met password) als de datum bereikt wordt (zie module ThisWorkbook). De knoppen 'beveilig' en ' onbeveilig' zijn tijdelijk in de sheet gezet als test. Die moet je uiteraard niet tonen!

Kijk maar of je 't wat vindt...

Groet, Leo

Torro, graag gedaan. Tot een volgende 'quest'...

Groet, Leo