werkblad en wachtwoord

[Atwist]

Hallo Forumleden,

Ik heb 2 werkbladen die beveilgd zijn door een wachtwoord (dacht ik) maar heb gisteren gemerkt dat als ik de checkbox aanklik dan krijg ik netjes de login scherm getoond maar als ik het scherm weg druk door het kruisje dan kan ik bij de 2 werkbladen komen, hieronder de code wat ik heb gebruikt.

rivate Sub CheckBox6_Click()
    If CheckBox6 Then
       login.Show
    Else: Exit Sub
    End If
    Sheets("Data").Visible = CheckBox6.Value
    Sheets("Data1").Visible = CheckBox6.Value
End Sub

Hoe kan ik dit zo maken dat dit niet meer kan gebeuren

Alvast bedank voor jullie antwoorden

 

[Warme bakkertje]

Private Sub UserForm_QueryClose _
  (Cancel As Integer, CloseMode As Integer)
    'Verhindert het gebruik van de Sluiten-knop
    If CloseMode = vbFormControlMenu Then
        MsgBox "Formulier enkel sluiten met de Annuleer-knop.", vbExclamation, "Wachtwoord ingeven"
        Cancel = True
    End If
End Sub

Plaats dit in de code van je login-formulier. Het voorkomt dat het kruisje je scherm sluit.
Vergeet echter niet ook een knop te plaatsen waardoor het formulier wel gesloten kan worden bv

Private Sub cob_Annuleren_Click()
    Unload Me
End Sub

 

[snb]

Private Sub CheckBox6_Click()
  If CheckBox6 Then login.Show
End Sub

In userform login:

Private Sub Userform_QueryClose  (Cancel As Integer, CloseMode As Integer)
  knop_einde =True
End Sub

Private Sub knop_einde_Click()
  Hide
End Sub

Private Sub knop_vervolg_Click()
  Sheets("Data").Visible = True
  Sheets("Data1").Visible = True
End Sub

Als in userform inlog twee tekstvakken staan: gebruikersnaam en wachtwoord, kun je met de gebeurtenis Change controleren of een geldige naam & wachtwoord worden ingevuld. Pas dan is de knop_vervolg zichtbaar. Anders rest slechts de knop_einde of het kruisje.

 

[Atwist]

Warme bakkertje,

Het werkt perfect kan nu niet meer de sheets zien:thumb:

Mijn dank is groot

 

[snb]

In de bijlage een eenvoudige opzet van wat ik bedoel.

In de VBEditor kun je de gebruikersnaaam en het wachtwoord achterhalen.

 

[Atwist]

Beste snb.

Ik heb deze gelijk toegepast want deze is wel heel erg mooi :thumb:

Mijn dank is groot.