Super beskyttelse og udløbsdato på Excel ark

Jeg kan desværre ikke tilbyde dig en færdig løsning, men her er et par ideer som måske kan hjælpe dig lidt på vej:

En udløbsdato på en makro kan laves sådan:

Sub TimeBug()
Dim exdate As Date
    exdate = "01-03-2006"
    If Date >= exdate Then
    Sheets("Ark1").Select
    ActiveSheet.Unprotect ("") 'Kun kode hvis der er ark-beskyttelse
        Sheets("Ark1").Select
        For i = 1 To 10
        Cells(i, 1).Formula = "0"  'Skriv 0 i A1 til A10
        Next i
        ActiveSheet.Protect ("din-kode")
    ActiveWorkbook.Save
    End If
End Sub

Hvis Excel startes uden makroer vil du selvfølgelig ikke have beskyttelsen.

Med hensyn til beskyttelse af Excelark så prøv at se dette link:
http://www.webace.com.au/~balson/InsaneExcel/Encryption.htm

Endvidere er her et link til hvordan Excels beskyttelse kan knækkes. Det kan evt. give dig et overblik over de muligheder der er for at omgå beskyttelsen, og om dit ark derfor kan beskyttes optimalt:

http://www.eksperten.dk/spm/722731

Der findes programmer, der kan kryptere dine data i Excel, se her:

http://www.excelbusinesstools.com/solutions.asp?prod=165

Undskyld den lange svartid.

Som nævnt i spørgsmålet er macroer for nemme at omgå, så det kan ikke rigtig bruges.

Alt i alt, så kom der ikke det helt store ud af dette, men opgaven var heller ikke helt let ;)

Lav et svar, så for du nogle point som tak for hjælpen.

Excel er ikke bygget til superbeskyttelse.

et forslag kunne være at tage nogle af de avancerede formler i arkene og konveretere disse til vb.
Herefter laves en DLL-fil i VB der indeholder disse formler og kun når DLL-filen er aktiv virker beregningerne i arket, samt en datokodning, der sætter en (kodet) udløbsdato i registreringsdatabasen.
Når datoen er overskredet virker DLL-filens avancerede formler så ikke mere.
dette vil gøre regnearket ubrugeligt efter en vis tid.


dette er kun et forslag og måske ikke helt gennemtænkt, men det burde være muligt

Behold bare pointene, for jeg har kun bidraget med lidt links. Makroen er taget fra ExcelTips, så det har ikke været det store arbejde for mig.  ;o)

bak er også kommet på banen med noget mere avanceret, kan jeg se!

Lav venligst et svar begge to. Jeg tror det ender med at produktet bliver skrevet helt om (i et andet sprog).

som gammer skriver : behold pointene
Forslagene var jo ikke brugbare

Derfor vil jeg stadig gerne give jer lidt point for at have brugt tid på det :)

Det er nu ikke den store tid jeg har brugt, men hvis du insisterer er der et svar her
:o)