PW Abfrage erweitern
14.11.2016 14:27:16
Fabienne
Ich hab heut morgen schon geschrieben und super Hilfe bekommen. Nun möchte ich den Code erweitern.
Hier der Beschrieb, was das Excel macht:
Ich hab hier einen Code, die beim öffnen eines Excels eine Userform öffnet und dort kann man sich mit seinem Benutzer einloggen. Die Logins sind im Excel im Sheet Tabelle7 hinterlegt.
Beim öffnen soll er dann in der Tabelle1 nach dem User suchen (dieser kann aber mehrmals vorkommen) und NUR diese Zeilen sollen bearbeitet werden können.
Wenn der User 'Admin' heisst, soll die ganze Datei bearbeitet werden können.
Hier der Code:
Private Sub CommandButton1_Click()
Dim rngZelle As Range
Dim rngSpalte As Range
Set rngZelle = Worksheets("Tabelle7").Columns(1).Find(ComboBox1, lookat:=xlWhole)
If Not rngZelle Is Nothing Then
If TextBox1 = rngZelle.Offset(0, 1) Then
With Worksheets("Tabelle1")
.Unprotect "MasterPW"
Set rngSpalte = Columns(2).Find(ComboBox1, lookat:=xlWhole)
If Not rngSpalte Is Nothing Then
.Cells.Locked = True
.Range(.Cells(rngSpalte.Row, 7), .Cells(rngSpalte.Row, 256)).Locked = False
End If
.Protect "MasterPW"
End With
blnBeenden = True
Unload Me
Else
Label1.Visible = True
End If
End If
End Sub
Tausend Dank für eure Hilfe.
Gruss Fabienne
Anzeige