VBA PAsswortabfrage
20.07.2017 11:31:41
Michael
ich habe schon viele hilfreiche Tipps auf dieser Seite finden können. Da ich VBA Anfänger bin, würde ich mich über Hilfe bei meinem aktuellen Problem freuen.
Ich möchte eine Passwortabfrage starten um den Blattschutz aufzuheben. Das Passwort muss je nach dem was in Worksheets("Start").Range("A1").Value vorgeben ist, variabel bleiben.
Folgendes Problem zu diesem Code taucht auf:
Private Sub CommandButton15_Click()
Call finden
If InputBox("Zugang nur für SL, bitte Passwort eingeben", "Sicherheitsabfrage") = (pc) Then
Sheets("Start").Unprotect Password:=(pc)
Else
MsgBox "Passwort FALSCH !" & Chr(13) _
& Chr(13) & "Bitte nochmal versuchen !" & _
" ", vbInformation, _
" Hinweis ! für Anwender: " & Application.UserName
Exit Sub
End If
End Sub
Über Call finden rufe ich zuvor änderbare Variablen auf (die Zuweisung funktioniert)
Code:
Public pc
Sub finden()
If Worksheets("Start").Range("A1").Value = "B" Then pc = "pc10"
End Sub
Jetzt kommt aber immer die Fehlermeldung, dass eventuell Groß und Kleinschreibung nicht übereinstimmen oder das die Feststelltaste aktiviert ist (oben fett markiert wird gelb hervorgehoben)
Beim Debuggen werden mir bei der Variablen aber die richtigen Werte angezeigt.
Ich hoffe ich habe es plausibel erklärt ;-)
Viele Grüße