@ andre und natürlich andere

Hallo andre,

du schriebst folgendes zu meinem Probelm:

"hallo lea,
für einen wirksamen schutz musst du andere mittel anwenden, für den code z.b. com-addin's. ansonsten kannst du den unberechtigten user nur versuchen zu ärgern, aber nach oder schon bei dem ersten mal wird er was dagegen unternehmen.
den schutz prüfen kannst du z.b. so:
in DieseArbeitsmappe


Private Sub Workbook_Open()
If Worksheets(1).ProtectContents = True Then
MsgBox "The contents of Sheet1 are protected."
End If
End Sub

"

meine Frage war folgende:

"Nun möchte ich, dass das Programm merkt, wenn die Kennwörter geknackt wurden und dann eine aktion auslöst. Z.B. die Datei - und alle anderen - löscht........."

Dein Code hilft mir schon sehr weiter. aber der Gabor hat ja recht....
Was meinst du mit: "für einen wirksamen schutz musst du andere mittel anwenden, für den code z.b. com-addin's"?
Ich bin auf diesem gebiet eine null, ich brauche aber dringend hilfe!!!!

Kannst du mir evtl. ein beispiel nennen? oder sagen, wie das geht?

Viiiiiiiiieeeeeeeeeelen Dank

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Lea,
um COM-AddIns zu schreiben benötigst du VB oder C . Ein andere Methode wäre, die Excelmappe mit einem Lese- / Schreibkennwort, das aus Buchstaben, Zahlen und Sonderzeichen besteht, zu schützen. Das ist auch für professionelle Kennwortknackprogramme kaum zu bewältigen. Dann benötigst du eine kleine VB - Routine, mit der die Mappe geöffnet werden kann. Damit ist sichergestellt, das die Makros auch bei auf "Hoch" gestellter Makrosicherheit laufen. In der Mappe schaltest du alle Symbolleisten aus und ersetzt sie durch eigene. Diese schützt du so, das der User sie nicht mehr beeinflussen kann. Jetzt kommt der User nicht mehr an das Menu für den Blattschutz / Arbeitsmappenschutz bzw. den VBA-Editor. Dann musst du noch die Tastenkombination Alt+F11 und Strg+Break deaktivieren, so dass das VBA-Projekt nicht geöffnet werden kann, sowie ein kleines Klassenmodul, damit ein schlauer User nicht eine zweite Mappe in dem selben Container öffnet, um doch an das Projekt zu kommen.
Einen hundertprozentigen Schutz wird es wohl nicht geben, aber ich habe so etwas schon gemacht und selbst "Profis" habe nach eine Stunde entnervt aufgegeben. Das hat mir dann genügt, denn damit bin ich mir sicher, dass der "normale" User absolut keine Chance hat.
Gruß
Nepumuk

Option Explicit Private Sub Form_Load() Dim xlApp As New Excel.Application xlApp.Workbooks.Open "C:\Test\test.xls", Password:="012L§005E$001A%" xlApp.Visible = True Set xlApp = Nothing End End Sub

Beliebteste Forumthreads (12 Monate)

22 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

22
Beiträge zum Forumthread

Beiträge zu diesem Forumthread