Barcode generator

[Cor-Assa]

Beste Grote Woef,

Ik bedoel eigenlijk de cellen die je in excel beveiligd, zie bijlage.

Daarmee blokker je ook de macro functie voor het filteren.

Hoe voorkom je dat, welke optie moet ik dan uitschakelen?

 

Gr. Cor

[Gast]

Hoi Cor,

We zitten blijkbaar op een verschillende golflengte.

Quote

Daarmee blokker je ook de macro functie voor het filteren.

In de macro voor het filteren voeg je deze twee regeltjes toe

Bovenaan net na Sub ....

ActiveSheet.Unprotect "ASA"

en onderaan  net voor End Sub

ActiveSheet.Protect "ASA"

tussen de twee regeltjes plak je de code van de filtermacro

ASA vervangen door je echte paswoord.

Doe hetzelfde voor eventuele andere macro's die ook blokkeren.

[Cor-Assa]

Oke, ja dat is inderdaad de oplossing.

Zo schakel je voor het filteren de beveiliging even uit en daarna weer aan.

Toppy

 

Gr. Cor

 

[Cor-Assa]

Het werkt inderdaad Grote Woef, op een klein dingetje na.

Als ik de clean toets indruk krijg ik een VBA foutmelding?

 

Als ik deze blokker dan werkt alles goed.

 

Gr. Cor

[Cor-Assa]

Is het trouwens ook mogelijk om na het klikken van de clean toets de cursor direct terug te plaatsen in het filter invoervak voor de barcode?

 

Gr. Cor

[Gast]

Ja dat is mogelijk.

toevoegen op het einde van de code .

TextBox1 naam vervangen door de juiste naam van de textbox.

TextBox1.Activate

Post eens een recent vb bestandje, is wat makkelijker om uw twee andere vragen op te lossen.

[Cor-Assa]

10 minuten geleden, Grote Woef zei:

Ja dat is mogelijk.

toevoegen op het einde van de code .

TextBox1 naam vervangen door de juiste naam van de textbox.

TextBox1.Activate

Post eens een recent vb bestandje, is wat makkelijker om uw twee andere vragen op te lossen.

Het is ook zo makkelijk als je het weet.

Wederom bedankt.

[stegisoft]

Commandbutton1_Click

Commandbutton1 is de naam van uw knop

Commandbutton1_Click is gewoon een klik op Commandbutton1

Maar als je toevallig code leest dan weet je niet om welke knop het gaat.

Ik geef altijd aan de knop een eigen naam zodat ik later als ik bijvoorbeeld Mijnlesknop_click zie weet dat het om die knop gaat.

 

[Gast]

Voor uw foutmelding, test eens volgende code

Quote

Als ik de clean toets indruk krijg ik een VBA foutmelding?

Private Sub CommandButton1_Click()
ActiveSheet.Unprotect "123"
[gastenlijst].AutoFilter
    For Each tbx In Sheets("Lijst").OLEObjects
        If TypeName(tbx.Object) = "TextBox" Then
            tbx.Object.Text = ""
        End If
    Next
ActiveSheet.Protect "123"
End Sub

123 vervangen door uw echt wachtwoord

[Cor-Assa]

Bedankt Grote Woef.

De regel die de foutmelding gaf had ik uitgeschakeld.

Deze nieuwe aanpassing geeft geen problemen.

 

Gr. Cor