Kann es das sein ?
11.05.2007 18:01:00
Kurt
Hallo GerWas,
habe mal alles soweit eingegrenzt und festgestellt das ich die UF auf der ich die Textbox habe und ein
Passwort eingebe es SCHULD ist.
'
Private Sub TextBox1_Change()
Private Sub TextBox1_AfterUpdate()
bei Change ereignis wird die UF 2 direkt aufgerufen, wenn ich aber die UF mit AfterUpdate()
durchführe und ein Button drücke, direkt die UF die ich brauch aufrufe, ist alles o.k.
Welche Möglichkeit gibt es nach Passwort Eingabe, wenn es Richtig ist die UF zu öffnen ?
Hier das Makro dazu:
'
Private Sub TextBox1_Change()
Private Sub TextBox1_AfterUpdate()
' ActiveSheet.Unprotect (getStrPasswort)
Dim rngFind As Range
Dim Cancel
Dim blnCheck As Boolean
If Len(TextBox1) = 11 Then
Set rngFind = Sheets("Eingang").Range("M4").Find(What:=TextBox1.Text, LookAt:=xlWhole)
If Not rngFind Is Nothing Then
'' Label3 = rngFind.Offset(0, 1)
blnCheck = True
Sheets("Datenbank").Select
Range("A3").Select
' If Worksheets("Datenbank").Range("E1").Value > 0 Then
' UFEingang.Label22.Visible = True
' UFEingang.Label24.Visible = True
' UFEingang.CommandButton7.Visible = False
' UFEingang.Label15 = "Sie haben folgende Datei geöffnet: "
' UFEingang.Label16 = ActiveWorkbook.Name
' UFEingang.Label23.Visible = True
' UFEingang.Label23 = ActiveSheet.Range("E1").Value
' UFEingang.CommandButton2.Enabled = True
' UFEingang.CommandButton5.Enabled = True
' UFEingang.CheckBox1.Enabled = True
'Else
' MsgBox "Sie haben noch kein Laufwerk ausgewählt ! " & Chr(13) _
' & Chr(13) & "Auf dem Eingangsmenü bitte das Button: " & Chr(13) _
' & Chr(13) & " ""HIER drücken, Laufwerk auswählen"" " & Chr(13) _
' & Chr(13), 48, " Hinweis !"
'Sheets("Eingang").Select
' UFEingang.Label22.Visible = False 'grau
' UFEingang.Label24.Visible = False
' UFEingang.Label23.Visible = False
' UFEingang.CommandButton7.Visible = True
' UFEingang.CheckBox1.Enabled = False
'End If
Dim i As Long
ActiveSheet.Unprotect (getStrPasswort)
For i = 4 To Tabelle1.[B65536].End(xlUp).Row
Tabelle1.ComboBox1.AddItem Tabelle1.Cells(i, 2)
Next i
Tabelle1.ComboBox1.ListIndex = 0 ' ersten Wert anzeigen '1.Zeile auswählen
Unload Me
' UFProdukt.Hide
UFEingang.Show
Else
blnCheck = False
MsgBox " Sie haben KEINE Berechtigung - Abbruch.", _
64, " Hinweis für Anwender: " & Application.UserName
'Exit Sub
'' CommandButton1.Visible = False
'' Label3 = "Name Nicht vorhanden!"
' TextBox1.Text = " "
TextBox1.SetFocus
With TextBox1
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
End If
End If
End Sub
'
Private Sub TextBox1_Change()
Private Sub TextBox1_AfterUpdate()
Dim rngFind As Range
Dim Cancel
Dim blnCheck As Boolean
If Len(TextBox1) = 11 Then
Set rngFind = Sheets("Eingang").Range("M4").Find(What:=TextBox1.Text, LookAt:=xlWhole)
If Not rngFind Is Nothing Then
'' Label3 = rngFind.Offset(0, 1)
blnCheck = True
Sheets("Datenbank").Select
Range("A3").Select
ActiveSheet.Unprotect (getStrPasswort)
For i = 4 To Tabelle1.[B65536].End(xlUp).Row
Tabelle1.ComboBox1.AddItem Tabelle1.Cells(i, 2)
Next i
Tabelle1.ComboBox1.ListIndex = 0 ' ersten Wert anzeigen '1.Zeile auswählen
Unload Me
UFEingang.Show
Else
blnCheck = False
MsgBox " Sie haben KEINE Berechtigung - Abbruch.", _
64, " Hinweis für Anwender: " & Application.UserName
'Exit Sub
'' CommandButton1.Visible = False
'' Label3 = "Name Nicht vorhanden!"
' TextBox1.Text = " "
TextBox1.SetFocus
With TextBox1
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
End If
End Sub
herz. KURT