Sluitknop in de blauwebalk

Status
Niet open voor verdere reacties.

Hoornvan

Terugkerende gebruiker
Lid geworden
10 feb 2002
Berichten
3.333
Beste helpers (experts),

Als ik een file start met daar in een Userform voor password invoeren.
Als het form in beeld staat moet je een password invoeren om verder te kunnen maar klik je op het kruisje (sluiten) in de blauwe balk, dan ben je ook binnen.

Nu is mijn vraag: Hoe kan ik dat uitschakelen zo dat je verplicht ben een password in te voeren om door te kunnen gaan.

Ik hoop dat het zo duidelijk is.
 
Zet in de code van de userform:

Code:
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    Cancel = True
End Sub

Wigi
 
Hallo Wigi,

Ik reager een betje laat maar had andere verplichtingen.

Bedankt voor de code.
Code:
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    Cancel = True
End Sub
Alleen heb ik nu het volgende probleem;
Nu kan ik op de OK knop klikken wat ik wil maar die werkt nu ook niet meer.
Wat is hier aan te doen?

Mvg,
Wim
 
Halo Wigi,

Na lang puzzelen en uit proberen heb ik het gevonden.
1 regel erbij gezet en het werkt.

De code is dit geworden;
Code:
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    Cancel = True
    If TextBox1 = "Password" Then Cancel = False
End Sub

Nog maals bedankt.
mvg,
Wim
 
Laatst bewerkt:
Ietsje duidelijker:

Code:
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If TextBox1.Text <> "Password" Then Cancel = True
End Sub

of wat korter:

Code:
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    Cancel = (TextBox1.Text <> "Password")
End Sub

Wigi
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan