Bestimmte Funktionen per Passwort schützen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

…ignorierten Beitrag angedeutet, Jenny.
Ich mache dass auch so, fremde Umgebung → Pfad stimmt nicht mehr mit gemerktem überein → obfusziertes Kill-Pgm startet → nur 1.Blatt bleibt stehen, alle anderen gelöscht, einschl dem VeryHidden, auf dem das Kill-Pgm steht, dessen Aufruf aus Workbook_Open erfolgt → Mappe lässt sich dann deshalb in Xl weder mit noch ohne Makroaktivierung öffnen.
Ansonsten sind da noch Überprüfung auf die öffnende Software → nicht Xl → gleich Schluss.
Wdn die Makros nicht aktiviert → Warnhinweis (in dem Fall bei dir noch alle Blätter verbergen wie du es ja bereits getan hast, mit meiner Datei kann man ohne aktivierte Makros nichts anfangen → würde bei sensiblen Daten aber nicht reichen!).
Außerdem kann man sich mit relativ einfachen Mitteln eine Datenverschlüsselung basteln, die ohne Verbindung zu einer Basisdatei nur Fehlerwerte u/o willkürliche Werte enthält. Ein Bsp von mir für so etwas müsste sich ggf im Archiv finden lassen, kann dir aber kein Stichwort sagen, sondern nur, dass das eine hochgeladene Datei war und es sicher schon 2-3 Jahre her ist.
Eine andere Methode wäre es, Tabellendaten in ein Datenfeld besonderer Form zu laden, das in Xl nur als #WERT! angezeigt wdn kann. Das könnte dann bei entsprechender Berechtigung und bestehender (Fern-)Verbindung zu den Originaldaten in lesbare Form umgesetzt wdn.
Du siehst, man kann 'ne Menge machen, man muss bloß eine möglichst ausgefallene Idee haben, auf die so schnell keiner kommt und vor allem — sie muss für dich mach- und organisatorisch umsetzbar sein. In so etwas würde ich immer nur so viel Leute wie unbedingt nötig einweihen! Deshalb hier auch nichts Weitergehendes, nur diese Anregungen. ;-)
Luc :-?
PS: Übrigens, Reinhard hat schon mal das erwähnte obfuszierte KillPgm gesehen — steht auch im Archiv, nutzt dir aber nicht direkt, sondern ggf nur als Bsp. ;->

…unter dem gleichen Pfad zu finden ist, Jenny!
Den kannst du dann 1malig auf einem verborgenen Objekt speichern, am besten auf einem, das nicht mal bemerkt wird, wenn jemand alle Objekte sichtbar macht, also unter einem anderen oder als winziges Teilelement einer Objektgruppe und da ggf auch nur als alternativer (Web-)Text. Sieh dir dazu mal die Eigenschaften von Autoformen an → was du dann machst, bleibt deiner Fantasie überlassen. ;-)
Den Pfad kannst beim Ereignis Workbook_Open mit Me.Path bzw, falls das einschl Dateiname sein soll (wäre besser, dann aber auch den Namen nicht ändern!), mit Me.FullName auslesen. Falls dein geheimer Speicherort noch leer sein sollte (falls das .AlternativeText sein sollte, dafür sorgen, dass da kein Autotext drin steht → diesen einmalig manuell löschen sollte reichen), speicherst du das da rein, ansonsten vergleichst du die Inhalte. Stimmen sie nicht überein, alle Blätter auswählen und löschen → eines muss aber stehen bleiben, sonst klappt das nicht. Wenn kein Blatt dafür unverfängl genug ist, kann ein leeres Blatt vorher hinzugefügt wdn. Mit den Blättern wird auch deren Code gelöscht. Mit dem Code in einem allgemeinen Modul wird man in deinem Fall ohne Datenblätter kaum etwas anfangen können, das kann also stehen bleiben, falls vorhanden.
Besonders clever dürfte es sein, das Pgm, das das Löschen bewerkstelligt nicht direkt in die Ereignisprozedur Workbook_Open zu integrieren, sondern nur von dort aus aufzurufen. Du kannst das dann auch als Funktionsprozedur schreiben, die scheinbar nur True oder False zurückgibt (FullName-VglsErgebnis) → bei einem von beiden geht's normal weiter, beim Gegenteil wird die Mappe geschlossen und ggf Xl beendet.
Die KillFkt bekommt einen unverfänglichen Namen und wird im Dokument-Klassenmodul eines ggf garantiert gelöschten Blattes notiert. Wird dann unter Zusatz des internen Blattnamens aufgerufen, also zB als Fkt mit folgd Zeile in der Workbook_Open-Proz: NVgl = Tabelle2.VglFunk(xn, yn), wobei du natürlich auch Argument-Dummies verwenden kannst, wenn ja ohnehin klar ist, wo die Fkt die Vglswerte herbekommt (verwirrt dann noch mehr!). In der Fkt verwendest du am besten die vbFkt CallByName, um sicherheitsrelevante Abfragen zu machen. Das hat den Vorteil, das bestimmte Eigenschaftsnamen als Texte verwendet wdn können. Texte haben den Vorteil, dass man sie auch verschlüsseln kann. Dazu müsstest du dir eine kleine Fkt ausdenken, die die Texte einerseits verschlüsselt — die Verschlüsselungen kannst du dann direkt als Konstanten in die KillFkt schreiben, und andererseits solche Verschlüsselungen wieder in Normaltext umwandelt. Die Fkt mit der verschlüsselten Konstante als Argument verwendest du dann in CallByName anstelle des Klartextes eines Eigenschaftsnamens. Dann musst du noch dafür sorgen, dass niemand die Verschlüsselungsfkt anhalten - das ginge bspw, indem du sie evaluierst → Evaluate("Krypt(…)") - und auch nicht in einer Zellformel verwenden kann (Application.Caller abfragen, muss Fehler, darf kein Range sein!).
Durch das Löschen des Blattes mit der KillFkt bleibt Xl beim nächsten Start hängen, weil Blatt und Fkt fehlen. Auch, wenn die Mappe mit deaktivierten Makros (unter Xl) geöffnet wird, klappt das nicht, weil Xl feststellt, dass etwas nicht stimmt und ggf einfach abstürzt.
Viel Spaß und Erfolg, Luc :-?

Beliebteste Forumthreads (12 Monate)

Bestimmte Funktionen per Passwort schützen

18 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread