Paßwort über mehrere Tabellen setzen und entfernen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Rolf,
hier 2 Varianten
Gruß
Franz

'Variante 1 - Jeweils Eingabe per Input-Box
'Hier besteht die Gefahr, dass man sich schnell mal beim Setzen des _
Kennworts vertippt und sich anschliessend nicht mehr an das korrekte _
Kennwort erinnert.
Sub Aufheben()
Dim strPW As String, I As Integer
On Error GoTo Fehler
strPW = InputBox("Blattschutz - AUS" & vbLf _
& "Bitte Kennwort für Blattschutz eingeben", _
"Blattschutz - A U F H E B E N")
If strPW  "" Then
For I = 1 To Sheets.Count
Sheets(I).Unprotect strPW
Next I
End If
Fehler:
With Err
Select Case .Number
Case 0 'Alles OK
Case Else
MsgBox "Fehler-Nr.: " & .Number & vbLf & .Description
End Select
End With
End Sub
Sub Schutz()
Dim strPW As String, I As Integer
On Error GoTo Fehler
strPW = InputBox("Blattschutz - EIN" & vbLf _
& "Bitte Kennwort für Blattschutz eingeben", _
"Blattschutz  - A K T I V I E R E N")
If strPW  "" Then
For I = 1 To Sheets.Count
Sheets(I).Protect strPW
Next I
End If
Fehler:
With Err
Select Case .Number
Case 0 'Alles OK
Case Else
MsgBox "Fehler-Nr.: " & .Number & vbLf & .Description
End Select
End With
End Sub

'Variante 2 - Kennwort wird im VBA-Code gespeichert
'Bei dieser Variante muss das VBA-Projekt per Kennwort geschützt werden
Private Const strPW = "MyPassword"
Sub Aufheben()
Dim I As Integer, strEingabe As String
strEingabe = InputBox("Bitte Kennwort für Blattschutz eingeben", _
"Blattschutz - A U F H E B E N")
Select Case strEingabe
Case ""
Case strPW
For I = 1 To Sheets.Count
Sheets(I).Unprotect strPW
Next I
Case Else
MsgBox "Kennwort ist falsch"
End Select
End Sub
Sub Schutz()
Dim I As Integer
For I = 1 To Sheets.Count
Sheets(I).Protect strPW
Next I
End Sub

Sub Aufheben() If Application.InputBox("Bitte geben Sie ein Passwort ein!", "Passwortabfrage") = "Hier das Paß _ wort" Then For I = 1 To Sheets.Count Sheets(I).Unprotect ("") Next I Else MsgBox "Sie haben das falsche Paßwort eingegeben", vbCritical, "Fehler" End If End Sub

Sub Schutz() If Application.InputBox("Bitte geben Sie ein Passwort ein!", "Passwortabfrage") = "Hier das Paß _ wort" Then For I = 1 To Sheets.Count Sheets(I).Protect ("") Next I Else MsgBox "Sie haben nicht die Berechtigung, das Makro auszuführen", vbCritical, "Fehler" End If End Sub

Sub Aufheben() Dim StrEing As String StrEing = InputBox("Passwort ?") On Error GoTo Errorhandler For I = 1 To Sheets.Count Sheets(I).Unprotect StrEing Next I Exit Sub Errorhandler: MsgBox "Falsches Passwort !" End Sub

…gemeine Fallen einbauen, Rolf & Klaus,
die per vbFkt/Methode CallByName in Verbindung mit einer etwas anspruchsvolleren Kryptisierungsfkt möglich wdn. Bei aktiviertem Code, irgendwann wird der Raubkopierer das ja mal tun wollen, wenn die Datei sonst keine oder keine volle Fktionalität entfaltet, könnten so nicht nur fast alle Blätter der Datei gelöscht wdn, sondern auch das Blatt mit diesem Code. Wenn der gleich beim Dateiaufruf eingesetzt wird, findet VBA den nicht und Xl stürzt deshalb beim nächsten Dateiaufruf ab. Der wäre allerdings auf Grund der Blattlöschung ohnehin sinnlos.
Daten könnte man ebenfalls kryptisieren (dafür gibt's ProfiPgmm) oder durch Zufallszahlen bzw Matrixfktt zur Datenbereitstellung (natürlich in einer Form, die nur eine beliebige Anzahl von #WERT!-Fehlern zurückgibt, die aber bei Verbindung zur Datenquelle durch die echten Daten substituiert wdn können) ersetzen. Die Datenquelle müsste sicher verwahrt sein, die öffentliche Tabelle verweist darauf (per LeselupenFkt oder in der Matrixfml). Wird die ZielMappe von dieser Quelle getrennt, fktt das alles nicht mehr. Übrigens könnte man sogar (einfache) xlStandardFktt durch eigene ersetzen, die in der Quelle vorhanden, im Trennungsfall nur noch #NAME? zurückgeben, falls man nicht ohnehin nur die Ergebnisse verwenden will. Diese einfachen Eigen-UDF könnten quasi nur durchnummeriert sein, so dass sie nicht ihren Zweck verraten. Hierzu und zur eher üblichen Datenkryptisierung finden sich Bspp im Herber-Archiv (zu Ersterem von mir).
Sicher gibt's noch einige andere Möglichkeiten, aber das Anlegen eines COM-AddIn (dll-basiert) ist sicher die beste, denn sie ist auch juristisch relevant, wenn man, wie allgemein üblich, die Dekompilierung ausdrücklich verbietet. Bei normalen AddIns wäre das trotz evtl PW-Knackverbot fraglich.
Gruß Luc :-?

Beliebteste Forumthreads (12 Monate)

Paßwort über mehrere Tabellen setzen und entfernen

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

28 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Paßwort über mehrere Tabellen setzen und entfernen

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

28 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread