Makro über eine UF ergänzen
18.10.2007 10:50:00
Christian
Folgende Schwierigkeit:
Ich habe eine Datei, die wenn sie geöffnet wird, automatisch eine UserForm öffnet.
Diese UF wird erst geschlossen, wenn der User seine Passwort eingegeben hat. Erst dann ist die Tabelle zur Bearbeitung frei.
Ich möchte nun über eine weitere UserForm neue Berechtigte einfügen.
Dazu muss im VBA-Code genau an der richtigen Stelle (X) die folgende Zeile einfügen:
If TextBox1.Value = "692" And TextBox2.Value = "512692" Then Zweiter_Sachbearbeiter.Hide
Das ist der Code den ich bisher habe:
Private Sub CommandButton2_Click()
'Prüfung ob Erster Sachbearbeiter nicht auch zweiter Sachbearbeiter ist
If Erster_Sachbearbeiter.TextBox2.Value = Zweiter_Sachbearbeiter.TextBox2.Value Then MsgBox (" _
Sie sind bereits als erster" + Chr(13) + "Sachbearbeiter angemeldet !"): ThisWorkbook.Close
If Erster_Sachbearbeiter.TextBox1.Value = Zweiter_Sachbearbeiter.TextBox1.Value Then MsgBox (" _
Sie sind bereits als erster" + Chr(13) + "Sachbearbeiter angemeldet !"): ThisWorkbook.Close
'Prüfung Kennwort zur passenden Personalnr. (Hier auch neue Mitarbeiter und Kennwortänderungen _
einstellen)
If TextBox1.Value = "554" And TextBox2.Value = "488554" Then Zweiter_Sachbearbeiter.Hide
If TextBox1.Value = "378" And TextBox2.Value = "490378" Then Zweiter_Sachbearbeiter.Hide
X
TextBox1.Value = ""
'Wenn Kennwort nicht stimmt dann Fehler. (Hier auch neue Mitarbeiter und Kennwortänderungen _
einstellen)
If TextBox1.Value "554" And TextBox2.Value "488554" Then Fehler
If TextBox1.Value "378" And TextBox2.Value "490378" Then Fehler
X
End Sub
Wie kann ich die richtige Stelle markieren ?
Gruß Christian