Textbox invullen lukt niet op beveiligd blad

[hoogteijling]

Hallo allemaal,

Ik heb een lijst met projectnummers.
In deze lijst staat een invulbox waarmee iedereen makkelijk kan zoeken op welke CD's/DVD's een projectnummer te vinden is.
Vaak komt een projectnummer op meedere CD's/DVD's voor.
Wanneer ik nu het werkblad beveilig dan werkt de invulbox niet meer, er komt onderstaande foutmelding tevoorschijn.

Weet iemand hoe ik de invulbox invulbaar kan maken op een beveiligd blad ?

Groeten Marcel
Bekijk bijlage CD-DVD lijst.xlsm

 

[ExcelAmateur]

hoogteijling,

Kijk eens of je dit wat lijkt, zie file.

 

[hoogteijling]

Dit is OK, dank je wel hiervoor.
Alleen krijg ik nu de beveiliging er niet af.
Wat is het wachtwoord ?

Groeten Marcel

 

[ExcelAmateur]

Hier is de file nogmaals, nu zonder password.

 

[hoogteijling]

Werkt als een trein
Bedankt.

Is het ook mogelijk om een tekst in de box te plaatsen waar bijv. staat "vul projectnummer in", wanneer je dan in de box klikt dat deze tekst weer verdwijnt en dat je dan het nummer in kunt voeren ?

groeten Marcel

 

[ExcelAmateur]

Zo iets?
Zie de file.

Ik heb er een tekstveld boven geplaatst.

 

[hoogteijling]

Hij is nou zo geworden als in de bijlage.
Dat met dat verdwijnend etekstvakje vond ik niet zo geslaagd, ik had gehoopt dat in de invulbox een tekst zou kunnen die verdwijnt.
Zoals ik het nu heb ben ik er tevreden over.

Wat ik alleen nog zou willen is dat het blad dus wel beveiligd wordt maar dat de autofilter (m.b.v. de knopjes bovenin) ook nog mogelijk blijft.
Wat moet ik voor code in de VBA plaatsen hiervoor ?
(wachtwoord=smart)
Bekijk bijlage CD-DVD lijst.xlsm

Groeten Marcel

 

[ExcelAmateur]

Ik kan het niet zo snel vinden, hoe dit te doen.
Ook niet met de zoekmachine van helpmij.

Misschien zijn er andere helpers die hier een antwoord op weten.

 

[hoogteijling]

Ik ben er zelf al achter.
De code is nu als volgt:

Private Sub TextBox1_Change()
[COLOR="#FF0000"]ActiveSheet.Protect UserInterfaceOnly:=True
EnableAutoFilter = True[/COLOR]
  If TextBox1 = "" Then
    Selection.AutoFilter field:=1
  Else
    Selection.AutoFilter field:=1, Criteria1:="=" & TextBox1 & "*", Operator:=xlAnd
  End If
End Sub

in ieder geval bedankt zover.

Groeten Marcel

 

[ExcelAmateur]

hoogteijling,

Leuk dat je het zelf gevonden heb.

Zo werk hij ook met je eigen Password.
Zet je de vraag nog even als opgelost, dank u.

 

[hoogteijling]

Op deze manier is het inderdaad nog mooier.
Ik heb het er nog bij gezet.
Dank je wel.

Groeten Marcel