Jährlicher Dateischutz

Patrick · 2018-03-27T06:45:25+00:00

Hallo Fachleute. Komische Betreffzeile, aber ich hatte keine bessere Kurzbeschreibung parat. Meine Frage: ich habe mir eine Exceltabelle mit diversen Makros zusammengeschrieben, tlw. auch über dieses sehr gute Forum zusammengestellt und miteinander verknüpft. Soll heißen, recht viel Arbeit reingesteckt. Jetzt möchte ich diese Datei gerne schützen...sehr gut schützen. Ich gebe diese Datei auch an Arbeitskollegen weiter, die aber auch schon mal zur Konkurrenz wechseln. Wie kann ich in meine Datei eine VBAAbfrage einbauen, die es erforderlich macht, dass ich für jedes Jahr eine neue Freischaltzeichenkette an die noch aktuellen Kollegen verteile, für die dann die Datei weiter nutzbar ist. Für die anderen lässt sich die Datei nicht mehr öffnen. Geht das? Danke für eure Tipps. Gruß, Patrick

Sorry, war kein "auf-den-Schlips-getreten", ich dachte einfach eine reale persönliche Einschätzung der VBA-Kenntnisse wären hilfreicher... sei's drum.
Mir ist klar, dass jede Absicherung in der Exeldatei auch wieder umgangen werden kann, wenn nur genug Energie dafür aufgebraucht wird. Ich wollte es aber halt nicht einfach per drag&drop und Makro kopieren komplett freigegeben.
Ich wollte halt gerne die Basis-Excel-Datei beibehalten und durch die Ergänzung einer zweiten ascII-Datei die quasi-Freischaltung gewährleisten. Hintergrund: wenn ich in 2018 die Basisdatei nehme und bearbeite/speichere und dann die Datei in 2019 öffne ist das mit der Abfrage der Seriennummer nicht mehr möglich. Mein Gedanke der Abfrage einer ergänzenden Datei soll bewirken, dass ich zu Jahresbeginn neue ascII-Dateien verteile, die dann die Freigabe der Basisdatei wieder bewirken sollen.
Sprich: in Worten: wenn(Datei xy2018.asc vorhanden, dann öffne Basisdatei, ansonsten msgbox)
Und die "xy2018.asc" kann ich dann für jedes Jhar erneuern. Der Dateiinhalt dieser Datei ist völlig egal. Eine Abfrage ob der Dateiname vorhanden ist würde reichen.
Gruß,
Patrick

Hi Patrick,
du musst nicht bei jedem Beitrag "Hallo" schreiben, aber netter wäre es schon...
Der Hinweis auf SN der HDD oder Auslesen des Benutzernamens waren auch erst mal nur Ideen.
Und ja, alles ist mit Unsicherheiten behaftet.
Aber auch mit deiner Idee (ASCI-Datei) sehe ich noch Probleme.
Angenommen, mein PC erhält von dir ab 01012019 eine ASCI-Datei mit neuem Dateinamen.
Wie genau soll dann mein PC diese neue ASCI-Datei erkennen?
(ok, ok, ich glaub, genau DAS willste von uns ja wissen ;-) )
Dazu würde mir nur das hier einfallen:

Private Sub Workbook_Open()
'es muss eine Datei im gleichen Verzeichnis existieren, deren Dateiname mit "xy" beginnt
'und mit aktueller Jahreszahl.asc aufhört
If Dir(ThisWorkbook.Path & "\xy" & Year(Date) & ".asc") = "" Then
MsgBox "Der Freischaltcode ist nicht vorhanden." & vbCrLf & "Die Datei wird geschlossen. _
ThisWorkbook.Close False
End If
End Sub

Und auch hier sehe ich wieder ein Problem.
Die Abfrage funktioniert ja nur bei aktivierten Makros.
Du musst deine Datei so programmieren, dass sie bei nicht aktivierten Makros nur ein Tabellenblatt zeigt, in dem der Hinweis steht, dass die Makros aktiviert sein müssen.
Eine Lösung dazu findest du aber problemlos im Inet, da diese Frage (nur aktivierte Makros) schon oft gestellt wurde.
Hilft denn mein Code-Bsp?
Ciao
Thorsten

Forumthread: Jährlicher Dateischutz

19
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Jährlicher Dateischutz

Forumthread: Jährlicher Dateischutz

19 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

19
Beiträge zum Forumthread

Beiträge zu diesem Forumthread