Passwort via Dialog ändern
15.07.2016 08:28:01
Thomas
ich hoffe, dass mir bei dem folgenden Code jemand helfen kann. Dieser fragt bei Betätigung eines Buttons ein Passwort ab. (hier "0000")
Statt dem Passwort möchte ich in dem Code aber lieber eine Zelle in einem (ausgeblendeten) Tabellenblatt angeben in der das Passwort steht (z.B. Tabellenblatt "Passwort" Zelle "A1")
Auslesen kann ich die Zelle ja mit "Wert = Worksheets("Passwort").Cells(1, 1).Value", aber wie baue ich das in den Code ein?
Und weiter, kann ich die Zielzelle (Sheet "Passwort", A1) mit einem Dialog (auch via Button gestartet) ändern nach dem Muster:
Passwort eingeben (aktuell)
Passwort eingeben (neu)
Passwort wiederholen (neu)
Wenn neu / neu identisch dann "Passwort, A1" überschreiben.
Oder gibt es für diesen Zweck eine "elegantere" Lösung?
Viele Grüße,
Thomas
Mein Code
Public Function Reise()
If Application.InputBox("Bitte geben Sie das Passwort ein!", "Passwortabfrage") = "0000" Then
ActiveSheet.Unprotect "XXXXXX"
Cells.EntireColumn.Hidden = False
Columns("G:P").EntireColumn.Hidden = True
Columns("AC:IV").EntireColumn.Hidden = True
ActiveSheet.Protect "XXXXXX", AllowInsertingHyperlinks:=True, DrawingObjects:=False
Else
MsgBox "Falsches Passwort!", vbCritical, "Zugang verweigert!"
End If
ActiveWindow.ScrollColumn = 1
End Function