Goedenavond,
Probleem met Userform (frmPW):
Indien zowel de combobox als de textbox (Username en password) leeg worden gelaten en je start dan via de command button Validate de macro krijg je volgende fout:
Object variable or With block variable not set.
Via debug: If cl.Offset(0, 1).Value <> Me.tbxPW.Text Then
Kan deze fout opgevangen worden, eventueel met de knop validate pas zichtbaar te maken na een keuze te hebben gemaakt in username?
Graag jullie hulp.
Alvast bedankt.
Mvg.
Marc
Probleem met Userform (frmPW):
Indien zowel de combobox als de textbox (Username en password) leeg worden gelaten en je start dan via de command button Validate de macro krijg je volgende fout:
Object variable or With block variable not set.
Via debug: If cl.Offset(0, 1).Value <> Me.tbxPW.Text Then
Code:
Sub validatePW()
' On Error GoTo err_handler
If Me.cboUser.Value = "Manager" And Me.tbxPW = Sheet1.Cells(2, 1).Value Then
Me.cmdManage.Visible = True
Exit Sub
End If
Select Case iCounta
Case 1, 2, 3, 4
With Sheet1
Set rng = .Range(.Cells(6, 1), .Cells(.Rows.Count, 1).End(xlUp))
Set cl = rng.Find(sUser, LookIn:=xlValues)
'====
Call ToevoegenActie(True, sUser) 'dit voegt nu al bij het sluiten van het werkboek in tab Logboek-Time "gesloten Admin toe"
'====
End With
If cl.Offset(0, 1).Value <> Me.tbxPW.Text Then
sMsg = "You have entered an incorrect Password" _
& vbNewLine & "Try again" & vbNewLine & _
"You have " & iCounta & " goes left"
MsgBox sMsg, sStyle, sTitle
With Me
.cboUser.Value = vbNullString
.tbxPW = vbNullString
.cboUser.SetFocus
Exit Sub
End With
ElseIf cl.Offset(0, 1).Value = Me.tbxPW.Text Then
iLevel = cl.Offset(0, 2).Value
MsgBox "Correct Information Entered. Please Proceed.", vbOKOnly + _
vbInformation, "Correct Information entered."
Me.cmdNew.Visible = True
bOK = True
Select Case iLevel
Case 1
For Each ws In ThisWorkbook.Sheets
Select Case ws.Name
Case "Dept1"
ws.Visible = xlSheetVisible
Case Else
On Error Resume Next
ws.Visible = xlSheetVeryHidden
On Error GoTo 0
End Select
Next
Case 2
For Each ws In ThisWorkbook.Sheets
Select Case ws.Name
Case "Dept2", "Dept3"
ws.Visible = xlSheetVisible
Case Else
On Error Resume Next
ws.Visible = xlSheetVeryHidden
On Error GoTo 0
End Select
Next
Case 3
For Each ws In ThisWorkbook.Sheets
Select Case ws.Name
Case "JAN", "FEB", "MRT", "APR", "MEI", "JUN", "JUL", "AUG", "SEP", "OKT", "NOV", "DEC", "Logboek-Time", "Hide this sheet"
ws.Visible = xlSheetVisible
Case Else
On Error Resume Next
ws.Visible = xlSheetVeryHidden
On Error GoTo 0
End Select
Next
Case 4
For Each ws In ThisWorkbook.Sheets
Select Case ws.Name
Case "JAN", "FEB", "MRT", "APR"
ws.Visible = xlSheetVisible
Case Else
On Error Resume Next
ws.Visible = xlSheetVeryHidden
On Error GoTo 0
End Select
Next
End Select
'Unload Me 'nodig als je gedeelte password aanpassen niet wil zien
End If
Sheets("Splash").Visible = xlVeryHidden
Case 0
MsgBox "You have tried three time incorrectly. WorkBook will now close" _
, vbOKOnly + vbExclamation, "Warning"
bOK = True
'Unload Me
err_handler:
'this line should be used in the final version
Application.Quit
ActiveWorkbook.Close SaveChanges:=False 'close without saving
End Select
End Sub
Kan deze fout opgevangen worden, eventueel met de knop validate pas zichtbaar te maken na een keuze te hebben gemaakt in username?
Graag jullie hulp.
Alvast bedankt.
Mvg.
Marc