Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
940to944
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
940to944
940to944
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Laufzeitfehler 424

Laufzeitfehler 424
14.01.2008 09:38:00
markus
Kann mir bitte jemand helfen!
Da meine Tabelle gesperrt ist und ich die Daten brauche!
Siehe meine Anfrage "Laufzeitfehler 424" von gestern!
Danke Markus

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Laufzeitfehler 424
14.01.2008 10:00:00
Luschi
Hallo Markus,
schreibe diese Routine in Modul1 und starte sie:

Sub Rettung()
Dim Inp As String
Inp = InputBox("Geben Sie das Passwort ein", , "start")
If Inp  "start" Then
MsgBox "Falsches Passswort"
Exit Sub
End If
Sheets("Start").Protect Password:="x", UserInterfaceOnly:=True
LogOff
Tabelle2.TextBox1.Enabled = True
End Sub

Gruß von Luschi
aus klein-Paris

AW: Laufzeitfehler 424
14.01.2008 11:42:40
markus
Danke Luschi funktioniert einwandfrei!

Sub Rettung()
Dim Inp As String
Inp = InputBox("Geben Sie das Passwort ein", , "start")
If Inp  "start" Then
MsgBox "Falsches Passswort"
Exit Sub
End If
Sheets("Start").Protect Password:="x", UserInterfaceOnly:=True
LogOff
Tabelle2.TextBox1.Enabled = True
End Sub


Zusatzfrage:
wie kann ich das Paßwort bei der Inputbox gestalten, wenn ich dieses Passwort aus dem Tabellenblatt Master mit einer bestimmten Zelle z.b. das Paßwort vom Admin abgleichen will?
Gruß Markus

Anzeige
AW: Laufzeitfehler 424
14.01.2008 12:14:00
Luschi
Hallo Markus,
das würde dann so gehen:

Sub Rettung()
Dim Inp As String, ws As Worksheet, rg As Range
Set ws = ThisWorkbook.Worksheets("Master")
Set rg = ws.Range("A1:A20").Find("admin", , xlValues, xlWhole, xlByColumns, xlNext)
If rg Is Nothing Then
MsgBox "Der User 'admin' wurde nicht gefunden!"
Else
Inp = InputBox("Geben Sie das Passwort vom Admin ein")
If Crypto(Inp, cKey)  rg.Offset(0, 1).Value Then
MsgBox "Falsches Passswort", 16, "Pech gehabt..."
Exit Sub
Else
Sheets("Start").Protect Password:="x", UserInterfaceOnly:=True
LogOff
Tabelle2.TextBox1.Enabled = True
End If
End If
Set rg = Nothing
Set ws = Nothing
End Sub

Gruß von Luschi
aus klein-Paris

Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige