Workbook sluiten bij cancel inloggen in userform

[Roadrocker66]

Hallo allemaal.

Ik heb een vraagje
In excel / VBA heb ik een inlog formulier gemaakt om zo mijn spreadsheet persoonlijk te houden.
Echter wanneer ik in de msgBox van het formulier op de X (Cancel) klik kan ik als nog gewoon alles doen in mijn sheets.
Hoe kan ik er voor zorgen dat wanneer er geen correcte gebruikersnaam en wachtwoord wordt ingevoerd en op cancel (X) wordt gedrukt de spreadsheet ook sluit.

Code ThisWorkbook:
Private Sub Workbook_Open()
LogInForm.Show
End Sub

Code CommandButton1:
Private Sub CommandButton1_Click()
Dim userName As String
Dim PassWord As String
If Not IsNull(LogInForm.userName_txt) Then
userName = LogInForm.userName_txt
Else
MsgBox "UserName or PassWord is incorrect"
Exit Sub
End If
If Not IsNull(LogInForm.PassWord_txt) Then
PassWord = LogInForm.PassWord_txt
Else
MsgBox "UserName or PassWord is incorrect"
Exit Sub
End If
Dim counter As Integer
counter = 2
Do Until ThisWorkbook.Sheets("Users").Cells(counter, 1).Value = ""
If ThisWorkbook.Sheets("Users").Cells(counter, 1).Value = userName And _
ThisWorkbook.Sheets("Users").Cells(counter, 2).Value = PassWord Then
MsgBox "Welcome to your spreadsheet"
LogInForm.Hide
Set LogInForm = Nothing
Exit Sub
End If
counter = counter + 1
Loop
MsgBox "UserName or PassWord is incorrect"
End Sub


Alvast bedankt!

 

[gast0660]

Hoi,
Als member vanaf 2009 zou je moeten weten dat je de code tussen codetags moet zetten en een vb bestandje (met jan piet joris en corneel) gegevens gewenst zijn.
Zo zal je sneller geholpen worden.
Zonder verdere info(vbtje) kan ik alleen maar zoiets bedenken
Voor uw inlog formulier

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode = 0 Then Cancel = True
    MsgBox "Gelieve gebruikersnaam en paswoord in te geven!", vbExclamation, "Opgepast"
End Sub

 

[Roadrocker66]

Goeden avond gast0660

Wist even niet welke codetags ik moest gebruiken.
een bestandje kon niet worden ge-upload want die was net iets te groot werd er aangegeven.
Kan er wel een afbeelding bijvoegen.


Zo de Code in de buttonclick dan?

Private Sub CommandButton1_Click()
 Dim userName As String
 Dim PassWord As String
 If Not IsNull(LogInForm.userName_txt) Then
 userName = LogInForm.userName_txt
 Else
 MsgBox "UserName or PassWord is incorrect"
 Exit Sub
 End If
 If Not IsNull(LogInForm.PassWord_txt) Then
 PassWord = LogInForm.PassWord_txt
 Else
 MsgBox "UserName or PassWord is incorrect"
 Exit Sub
 End If
 Dim counter As Integer
 counter = 2
 Do Until ThisWorkbook.Sheets("Users").Cells(counter, 1).Value = ""
 If ThisWorkbook.Sheets("Users").Cells(counter, 1).Value = userName And _
 ThisWorkbook.Sheets("Users").Cells(counter, 2).Value = PassWord Then
 MsgBox "Welcome to your spreadsheet"
 LogInForm.Hide
 Set LogInForm = Nothing
 Exit Sub
 End If
 counter = counter + 1
 Loop
 MsgBox "UserName or PassWord is incorrect"
 End Sub

Met uw code kan ik de inlogform en spreadsheet niet sluiten mits ik ben ingelogd.
Ik wil dat zowel spreadsheet als de inlogform sluit als er in de messagebox op het kruisje (Cancel) wordt geklikt.
Met mijn code kan ik de inlogform sluiten maar de spreadsheet blijft open en kan deze gewoon worden bewerkt.

met vriendelijke groet Jeen

 

[wieter]

Bijgevoegd bestand circuleert al jaren op het forum.
Alle paswoorden zijn: 123
Misschien iets voor U?
Het bestand moet eerst opgeslagen worden voor volledige functionaliteit!!!!!

 

[Roadrocker66]

Hartelijk dank voor uw bestandje, zal hem zeker gaan bestuderen.
Ziet er interessant uit.