commandbutton => wachtwoord

[gerardn]

Ik weet het even niet meer !, wie helpt mij even op weg ?
Ik heb het volgende gemaakt :

CommandButton met een macro :

Sub Wachtwoord()
frmWachtwoord.Show
End Sub

Dat gaat goed !

Vervolgens een Userform gemaak:frmWachtwoord
met en ok button ,deze klik je aan dan krijg je de volgende marco:

Private Sub cmdOk_Click()
Dim sInvoer As String
Dim sWw As String
sWw = "wachtwoord"
sInvoer = InputBox("Geef wachtwoord !")
If sInvoer <> sWw Then
MsgBox (" Geen toegang !")
Exit Sub
End If
Sheets("vakantie").Select
End Sub

* Hier zit volgens mij de fout ?
Wat dan de bedoeling is sWv (wachtwoord) is goed dan doorgaan naar Sheets ('vacantie')

wie o wie heeft voor mij een antwoord ?

 

[tilpi]

Geprobeerd en hij doet het.

Private Sub cmdOk_Click()
Dim sInvoer As String
Dim sWw As String
sWw = "wachtwoord"
sInvoer = InputBox("Geef wachtwoord !")
If sInvoer <> sWw Then
MsgBox (" Geen toegang !")
Exit Sub
End If
Sheets("vakantie").Select
End Sub

Sub Wachtwoord()
frmWachtwoord.Show
End Sub

Ik zou niet weten waarom dit niet werkt.

Mvg

Piet

 

[Finch]

Je maakt een userform aan en als je op OK drukt krijg je nog eens inputbox?
Ik snap de rationale voor dit gebruik niet. Ik zou eerder denken, of je gebruik de standaard excel inputbox of je maakt een userform met eigen opmaak die de inputbox van excel vervangt. Maar op een userform een inputbox aanroepen begrijp ik niet goed.

 

[gerardn]

even een terugkoppeling

Hoi Finch

Je"zegt' eigenlijk wat ik bedoel !
Ik heb de standaard inputbox 'vervangen voor een UserForm ,want die vond ik mooier.
Maar omdat ik een leek ben.
Weet ik niet hoe ik i.p.v. de standaard inputbox van exel kan laten vervangen in het script door de zelf gemaakte UserFrom:frmWachtwoord ?

Want als ik het bovenstaande script laat lopen komt de standaard input box te voorschijn?
na de ok knop te hebben gebruikt ?
Dus :
Ik gebruikt de macro knop
Sub Wachtwoord()
frmWachtwoord.Show
End Sub

dan komt de zelf gemaakte Userform:frmWachtwoord te voorschijn
Tot zover gaat het goed.
Dan wil ik daar een password in typen doe ok ,
dan komt de standaard inputbox te voorschijn en dat wil ik juiste niet.

 

[Finch]

Op je userform maak je ook een tekstvlak aan, en je noemt dat bv. txtPW. Je kan ook nog de eigenschap passwordchar op * zetten, zodanig dat je niet ziet wat je typt, maar enkel *-tjes zichtbaar zijn.

In je code vervang je dan

sInvoer = InputBox("Geef wachtwoord !")

door

sInvoer=txtPW.value

 

[gerardn]

He Finch

:thumb:
Het werkt ! ,ik ben de hle middag ermee an het stoeien geweest !
Ik had nog een klein vraagje ?
Als ik wachtwoord heb ik in getikt en druk ok
dan krijg ik de tabblad vacantie voor me maar ook nog de UserForm die heb gemaakt
het liefst wil ik dat ik het wachtwoord heb in getypt en ok heb gedrukt dat je Userform verdwijnt en ik alleen het tabblad vacantie voor me zie

 

[CorVerm]

Zet aan het eind van de code: UnloadMe

 

[gerardn]

Zet aan het eind van de code: UnloadMe

Ik heb ingevoerd onder:


End If
Sheets("vakantie").Select
UnloadMe
End Sub

Maar dan krijg ik copileerfout

 

[Finch]

Een spatie zetten tussen Unload en Me, dus: Unload Me - dat zou moeten werken.

 

[CorVerm]

Sorry, ben de spatie vergeten
Het moet zijn

Unload Me

Ben ik nog 4 minuten te laat met antwoorden ook

 

[gerardn]

Heren Bedankt !

Maakt niet uit!, zo leer ik ook weer wat !
Ontzettend bedankt een ieder geval voor de info die van jullie beide heb kregen!:thumb:
Het is wederom allemaal weer dik voor elkaar !
Gr.Gerard