Office: (Office 2010) Schaltflächen (Buttons) mit PW schützen

Hallo Forum,

ich möchte in einem Excelblatt die Buttons die bestimmte Sortiervorgänge auslösen, mit Passwort schützen,
geht das und wenn ja, wie?

Würde mich über jede Hilfe freuen.

LG Noahreza

 

Hi,

benutze eine InputBox im Code deines Buttons - nach folgendem Prinzip

Code:

    Dim varEingabe As Variant
    varEingabe = Application.InputBox("Bitte das PW eingeben", "Passwortabfrage")
    If varEingabe = "DeinPW" Then 
        'hier dein Code
    Else
        MsgBox "Falsches PW"
    End If

Du solltest dein VBA-Projekt mit einem (anderen) Passwort schützen, damit das zu verwendende PW im VBA-Editor nicht nachgeschaut werden kann, da es dort in der Zeile If varEingabe... unverschlüsselt hinterlegt sein muss.

Bis später,
Karin

 

Hi Karin,

erst einmal vielen Dank für die schnelle Hilfe. Was meinst du mit "Inputbox im Code deines Buttons"?

 

Hi,

deine Button starten einen VBA-Code, welche die Sortiertvorgänge ausführen? Auf diesen Code bezieht sich meine Antwort.
Oder meinst du etwas anderes?

Bis später,
Karin

 

Achso, ja...das ist richtig....das heisst zu jedem Button, diese Formel einfügen...ich versuch es mal ....vielen Dank :)

 

Hallo zusammen,
bin für mein Projekt auf diese Lösung gestoßen.
Der Code von Karin ist super. Aber eine Frage habe ich jetzt doch.
Wie bekomme ich es hin das der Code wieder ausgeführt wird bei falschem PW
Bestimmt mit einer Schleife aber ich weiß nicht wie.
Gruß
Martin

 

Hi Martin,

das könnte man so realisieren:

Code:

    Dim varEingabe As Variant
    Do
        varEingabe = Application.InputBox("Bitte das PW eingeben", "Passwortabfrage")
        If varEingabe = False Then Exit Sub
        If varEingabe = "DeinPW" Then
            'hier dein Code
        Else
            MsgBox "Falsches PW"
        End If
    Loop While varEingabe <> "DeinPW"

---

 

Hallo Karin,
super genau was ich noch brauchte!
Danke
Martin