Thema Datum  Von Nutzer Rating
Antwort
12.11.2017 08:53:02 Miri
NotSolved
12.11.2017 10:04:16 RPP63
NotSolved
Rot Per Userform Passwort eingabe für Blattschutz
 12.11.2017 10:18:55 Werner
*****
Solved
12.11.2017 15:05:27 Miri
NotSolved
12.11.2017 20:36:42 Werner
Solved

Ansicht des Beitrags:
Von:
Werner		 Datum:
12.11.2017 10:18:55		 Views:
597		 Rating:
     
Antwort:
 Nein
Thema:
Per Userform Passwort eingabe für Blattschutz

Hallo Miri,

auch wenn ich den Sinn dahinter nicht ergründen kann.

Über Überprüfen - Blattschutz aufheben kommt doch eine Eingabebox für das Passwort, das deinen Wunsch nach unsichtbarer Passworteingabe doch erfüllt.

Aber seis drum.

Eine Userform, darauf eine Textbox und einen Commandbutton

in der Eigenschaftenliste der Textbox gibt es einen Eintrag PasswordCahr, dort den Stern eintragen

Folgenden Code ins Codemodul des Commanduttons:

Die Messagebox kannst du raus schmeißen. Ist nur für dich zum Testen.

Private Sub CommandButton1_Click()
Dim strPW As String

strPW = "DeinBlattschutzPasswort"

If Me.TextBox1 = strPW Then
    MsgBox "Blatt wird entsperrt."
    Worksheets("Tabelle1").Unprotect Password:=Me.TextBox1
        'hier dein weiterer Code
        'nicht vergessen am Ende des Codes
        'das Blatt wieder zu schützen
    Worksheets("Tabelle1").Protect Password:="DeinBlattschutzPasswort"
    Unload Me
Else
    MsgBox "Passwort ist nicht korrekt."
    Me.TextBox1 = ""
    Me.TextBox1.SetFocus
End If
    
End Sub

 

Gruß Werner

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
12.11.2017 08:53:02 Miri
NotSolved
12.11.2017 10:04:16 RPP63
NotSolved
Rot Per Userform Passwort eingabe für Blattschutz
 12.11.2017 10:18:55 Werner
*****
Solved
12.11.2017 15:05:27 Miri
NotSolved
12.11.2017 20:36:42 Werner
Solved