VBA Code ergänzen
28.12.2012 22:33:46
Tweri
Ich bin soeben neu in diesem Forum eingetreten.
Da ich Excel gut aber VBA nicht gut kenne habe ich hir für mich einen passenden Eintrag gefunden.
Ich habe folgenen VBA Befehl gefunden und für mich angepasst.
Sub Blattschutz_freigeben()
' Blattschutz_freigeben Makro
' für alle Arbeitsblätter den Blattschutz entfernen
Dim Passwort As String
Passwort = Application.InputBox(prompt:="Geben Sie das Passwort ein", Type:=2)
If Passwort "******" Then Exit Sub
Dim i As Integer
Dim pw As String
For i = 1 To ActiveWorkbook.Worksheets.Count
ActiveWorkbook.Worksheets(i).Activate
ActiveSheet.Unprotect Password:="*****"
Next i
End Sub
Nun, meine Frage.
Ist es möglich diesen Befehl zu erweitern, damit bei einer falschen Passworteingabe ein Fenster erscheint mit dem Text "Falsches Passwort".
Somit würde ich schneller oder besser sehen dass die Eingabe falsch war.
Vielen Dank für die Hilfe