RNG Vernieuwt niet zonder command button

[Archimond]

Zet je code voor die wachtwoord controle hier eens neer.

If Cell("B1") = ("paswoord") Then [CommandButton2.Enabled]

paswoord kan logischer wijze vervangen worden door een ander woord.

het kan zijn dat ik te fel in de richting denk van de functie IF in excell.


Voorbeeld situatie
B1 = blanco Commandbutton2 werkt NIET
B1 = bevat het paswoord Commandbutton2 werkt WEL

 

[edmoor]

If Range("B1").Value = "Password" Then CommandButton2.Enabled = True

of:

If Range("B1").Value = "Password" Then
    CommandButton2.Enabled = True
End If

 

[Archimond]

ik heb je code toegevoegd MAAR

Als ik de code test negeerd het programma de cell B1 en werkt het programma zonder de code in deze cell te typen.
Wat doe ik fout om je code goed te implementeren? zodat het programma EERST controleerd wat er in cell B1 staat?

Private Sub Loting_Click()
' 1 maal klikken veranderd de naam en zou moeten voorkomen dat de knop een tweede maal het programma doet lopen
' Commandbutton2 moet deze knop terug kunnen activeren samen met het resetten van de naam naar Start Loting

Randomize
For j = 1 To 16
Cells(j, 1) = Rnd
Next
[A1:A16] = [index(rank(A1:A16,A1:A16),)]

Loting.Enabled = False
Loting.Caption = "Loting verricht"
Loting.BackColor = 250
'Deactiveerd knop + veranderd knop in rood + wijzigt naam in de Loting verricht

'veranderd de naam in loting verricht na het indrukken van de knop
End Sub

Private Sub CommandButton2_Click() '"Activeer Loting"
Loting.Caption = "Start Loting"
Loting.Enabled = True
Loting.BackColor = 45875
If Range("B1").Value = "Jumbo" Then CommandButton2.Enabled = True
'Toestand op indrukken = Actief + groen + Waar

End Sub
'Activeer loting knop reset naam van Loting knop
'B1 paswoord invullen = activeer loting activeren!

 

[edmoor]

Je moet de Loting button activeren
If Range("B1").Value = "Jumbo" Then Loting.Enabled = True

Wat ik zou doen is een Userform toevoegen met een textbox en een button.
De tekstbox kun je met het attribuut Password char zo instellen dat deze het wachtwoord inneemt maar alleen sterretjes laat zien.
Het gewenste wachtwoord sla je op in het Tag attribuut van de button op dat formulier.
Bij een klik op die button controleer je het ingegeven wachtwoord tegen het woord dat in het Tag attribuut staat en als die gelijk zijn zet je het Enabled attribuut van CommandButton2 op True.
De voorbeeldbestandjes kun je in VBA in een module importeren.

Voorbeeld:
Bekijk bijlage UserForm1.zip

 

[Archimond]

Ik heb mijn best gedaan ermee maar ik heb de eindmeet niet gehaald.
De extra knop die alleen controleerd of het pw juist is kan omzeild worden door de bestaande knoppen niet?

Er zouden niet meer dan knoppen mogen zichtbaar zijn dan er nu al aanwezig zijn in het programma. op Blad 1 van het programma.

Dit is wat ik tot nu toe ervan gemaakt heb. ( ik ga morgen pas verder met proberen; omdat ik te moe aan het worden ben)
Van mij mag je gerust proberen om het progje volledig werkende te krijgen, want zo goed sta ik ook weer niet in mijn schoenen, als het op VBA aankomt ben ik niet veel beter dan een leek.
Bekijk bijlage Loting 1tem16 V6.xlsm

GZ Archimond

 

[edmoor]

Ik heb je formulier even bekeken.
Pas de CommandButton2_Click aan zodat deze er als volgt uit ziet:

Private Sub CommandButton2_Click() '"Activeer Loting"
    If Range("B1").Value = "Jumbo" Then
        With Loting
            .Enabled = True
            .Caption = "Start Loting"
            .BackColor = 45875
        End With
    End If
    'Toestand op indrukken = Actief + groen + Waar
End Sub

 

[Archimond]

hey, bedankt voor je hulp

nu werkt het programma zoals ik in gedachten had.
Je tekstvak idee is ook een mooi idee is.

Vooral dat het mooier uitziet + de optie om de tekens te verbergen zijn een pluspunt aan uw idee.
Alsook dat het dan profesioneler uitziet.

Ben ook al begonnen met het proberen te integreren van het tekstvak.
- letters worden getoond als * in het tekstvak klaar
- Aansturing van commandbutton2 met code "commandbutton2.enabled"
- Logische test uitwerken
work in progress

Doel: Code invoeren in tekstvak = commandbutton2 actief maken zodat deze gebruikt kan worden.
Code niet aanwezig moet commandbutton 2 onbruikbaar maken.
Dit zou de ultieme versie moeten worden, nu ik al een werkende versie heb zonder tekstbox kan de persoon die mij dit gevraagd heeft wel even verder totdat de tekstbox versie af is.

 

[Archimond]

2 Nieuwe versies

Zoals eerder gezegd heb ik de paswoord beveiliging met een cell kunnen uitwerken.
V6
Bekijk bijlage Loting 1tem16 V6.xlsm
Op basis van de userformcode die Edmoor mij eerder bezorgd heeft na wat blunderen uiteindelijk er toch in geslaagd.
Ook een vergrendeling kunnen uitwerken op basis van een activeX tekstvak.
V7

Bekijk bijlage Loting 1tem16 V7.xlsm

Credits
Deze Toevoeging is tot stand gekomen met de hulp van Edmoor.:thumb:
En natuurlijk Joske die mij in het begin geholpen heeft met de broncode van de RNG:thumb:

N.B. Paswoorden zijn een random woord zodat de codes voor mijn programma niet uitlekken. Waar XXXXX ingevuld staat voer je uw code in en je hebt je persoonlijke code voor knop activatie ingesteld.
MAAR de code die je invoerd Moet je later ook 100% hetzelfde ingeven!!!!
zoniet? dan werkt de reset loting knop niet!

Met opzet is Geen enkele versie verzegeld