Office: (Office 2010) "Haltbarkeit/Lebensdauer" in eine Excel Datei einfügen

Hallo : )

Gibt es eine Möglichkeit einer Excel Tabelle eine bestimmte Lebensdauer zuzuweisen?

Hintergrund ist folgender => Ich habe eine Excel Tabelle entworfen und will sie einem Kunden zu Verfügung stellen. Allerdings nur für eine Nutzungsdauer von max. ein Jahr. Danach soll er das Nutzungsrecht neu erwerben.

Die Idee die ich bissher hatte ist, dass ich einfach in einige wichtige Formel eine Abfrage des aktuellen Datums einbaue und das Datum mit einem fest hinterlegtem Datum abgleiche. Allerdings kann man das ja recht leicht umgehen, indem man in der Systemsteuerung das Datum ändert.

Viele Grüße
V1

:)

 

Moin moin,
ich hab da mal was ähnliches gemacht (aber gerade den Code nicht parat)
also ich habe bei dem ersten Starten u.a. einen Datumsintrag in die Registry geschrieben. Den frage ich bei jedem Starten der Tabelle wieder ab. na ja..und wenn der von Dir angestrebte zeitraum überschritten ist, schließe ich die Datei wieder.
ABER
Das steht alles im Makroscript und bis Excel2003 ist es ein Leichtes das Makrokennwort zu knacken.
Wenn Du hier interesse hast muss ich mal nachschauen wo ch das habe und kann Dir mal ein paar Codezeilen zukommen lassen

Gruß
DeBabba

 

Hey,

das wäre Prima wenn du das raussuchen könntest : )

Hoffe das ist nicht so schwer zu implementieren. Bin was Formeln angeht zwar einigermaßen fit, aber wenns um VBA geht absoluter Noob ; )

Gruß V1

 

1.) Öffne die VBA - Umgebung (Alt + F11)
2.) MS Excel Objekte --> DieseArbeitsmappe

lese nun Deine Regestry-Felder aus
z.B.
3.) InstallDatum = getSetting(appname:="PiffPaff", section:="registr",Key:="Inst-Dat"
Das ist der Schlüssel wann deine Anwendung zum ersten Mal aufgerufen wurde
PiffPaff ist der Schlüsselname
4.) LetzterAufruf = getSetting(appname:="PiffPaff", section:="registr",Key:="LetzterAufruf"
Der Eintrag wann deine Anwendung zum letzten Male aufgerufen wurde
Wichtig um das "datum zurückdrehen" des Anwenders zu vermeiden
5.) Prüfen, ob bereits installiert -ein paar kleine IF Then Anweisungen
If InstallDatum ="" then call Neuinstallation
If LetzterAufruf = "" then LetzterAufruf = Date

6.) Prüfen ob Datum manipuliert wurde
If date$ < LetzterAufruf then
MSGBox ("Du hast das Rechnerdatum manipuliert, Du Sau" & Chr(13)
"Anwendung wird beendet")
ActiveWindow.close savechanges:=False
end if
7.) eine Installationsroutine Siehe Punkt 5
Sub Neuinstallation
SaveSetting "PiffPaff", "registr", "Installationsdatum", InstallDatum
SaveSetting "PiffPaff", "registr", "Letzter_Aufruf", LetzterAufruf
end sub

Ich hoffe ich habe nichts vergessen..
Ach ja... die reg einträge findest Du unter
HKey_Current_User\Software\VB and VBA Program Settings\PiffPaff
solltest Du da überhaupt nicht mit klar kommen (Noob und so) so schick mir doch mal Deine
Applikation

grüßle
DeBabba

 

Heyho,

erstmal vielen Dank für deine Mühe. Hatte letzte Woche ne OP deswegen jetzt erst Antwort.

Puh ich verstehe zwar ungefähr was da steht, aber Programmieren könnt ich das nicht :/ Würd aber auch ungern meine Datei an einen fremden rausrücken. Gibts da nicht ne andere Möglichkeit? ; )

Gruß V1

 

Hi Visor one

ich hoffe Du hast Deine OP gut überstanden. Du weißt ja..
Ein Chirurg ist ein Mann, der sich jeden Tag aufs neue wundert wieviel man an einem Gesunden herausschneiden kann ohne das der stirbt *grins

zum Thema
Schon klar, dass Du Deine daten nicht herausgeben möchtest.
Ich werde mal ein ExcelFile zusammenbauen und Dir zukommen lassen.
Da kannst Du dann den Code kopieren und nach Deinen Bedürfnissen ändern
Bitte aber hier um etwas Geduld,

Gruß
DeBabba
PS.: Ein Chirurg heißt wörtlich übersetzt Handwerker

 

Hallo!

Man sollte aber bedenken, dass die Arbeitsmappe trotzdem weiterhin verwendet werden kann. Einfach Makros deaktivieren und schon läuft sie wieder. Man muss sich nur Gedanken machen, wie es zu besser zu lösen ist (Stichwort: Dummyblatt). Aber wer rankommen will der schafft das auch.

Und das Schreiben in den Standard-Registrypfad ist IMHO leichtsinnig. Den kann jeder auslesen. Das Verstecken in nicht bekannten Registry-Pfaden ist da besser.

Gruß, René

 

Hallo zusammen,
erst mal danke für eure Geduld

Anbei ne kleine Datei, bitte starten ohne die makros zu aktivieren und
Jaaaaa. das kann man bestimmt auch anders/einfacher machen

@ Mumpel
Du hast ja recht, man kann das aushebeln. Der Standardregpfad ist auch nicht das Beste, aber für den Anfang.
Wenn Du aber von dem "normalen" Anwender ausgehst, der froh ist ne Excelmappe zu öffnen ohne sich die Finger zu brechen, dann bist Du hier auf der ziemlich sicheren Seite.


Gruß
DeBabba