Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1196to1200
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1196to1200
1196to1200
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Schutz aufheben

Schutz aufheben
Walter
Guten Abend,
habe folgendes Makro, um den Blattschutz aufzuheben.
' 

Sub Test()
On Error Resume Next
10:
Err.Clear
Sheets("Muster").Unprotect
If Err.Number = 1004 Then
MsgBox "    Falsches Kennwort !" & Chr(13) & Chr(13) & _
" Nur bei Herrn Busch zu erfragen !"
GoTo 10
End If
If Sheets("Muster").ProtectContents Then
MsgBox "Abbruch!"
Else
Sheets("Muster").Select
ActiveSheet.Range("H3").Select
End If
End Sub
Ich möchte nach Eingabe des Passwortes aber die Userform schließen.
(Unload me)
mfg Walter mb

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Schutz aufheben
CitizenX
Hallo Walter,
hier mal eine Möglichkeit für die Passwortabfrage.
Der User hat 3 mal die Möglichkeit das Passwort einzugeben.
Wenn das Passwort richtig ist wird der Blattschutz aufgehoben und die UF "geschlossen".
Option Explicit

Private Sub Blattschutz()
Dim myPass$, myInput, myTry%, myString$
'Anzahl der Möglichen Eingaben 
Const Anz = 3
    'Wenn Blattschutz gesetzt dann Passwortabfrage 
    If Sheets("Muster").ProtectContents Then
        'Passwort für den Blattschutz 
        myPass = "mein passwort"
        myString = "Bitte geben Sie das Passwort ein."
        
        Do
            myInput = InputBox(myString, "Schutz aufheben")
            
            myString = "Falsches Kennwort." & Chr(13) & _
                       "Nur bei Herrn Busch zu erfragen !" & String(2, Chr(13)) & _
                       "Sie haben noch " & Anz - myTry & " Versuch(e)!"
            
            myTry = myTry + 1
            
            'Passwort ist richtig 
            If myInput = myPass Then Exit Do
            'Abbrechen gewählt 
            If StrPtr(myInput) = 0 Then Exit Sub
            'Mehrfache Falscheingabe 
            If myTry - 1 = Anz Then Exit Sub
        Loop
        Sheets("Muster").Unprotect passwort:=myPass
        Unload Me 'Wenn Code in Userform dann UF schließen 
    End If
End Sub

Grüße
Steffen
Anzeige

Links zu Excel-Dialogen

UserForm InputBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige