Filters automatisch uitschakelen

[Sary]

Beste,

 

 

Ik heb deze code in Blad7 (Tankstalen eindstalen) geplakt en deze werkt als ik vanuit mijn objecten mijn macro start. Als ik deze start vanuit mijn formulieren ( TSESfrm) werkt deze niet en blijven mijn filters aanstaan. Ik wil ze telkens automatisch uit laten zetten vooraleer er een nieuwe data in het formulier gezet wordt.

 

Iemand die weet waar ik een aanpassing moet uitvoeren?

 

Sub VerwijderFiltersBlad7()
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim tbl As ListObject
    
    Set wb = ThisWorkbook
    Set ws = wb.Sheets("Blad7")
    
    If Not ws.ListObjects.Count = 0 Then
        Set tbl = ws.ListObjects(1)
        If tbl.AutoFilter.FilterMode Then
            tbl.AutoFilter.ShowAllData
        End If
    End If
End Sub
Sub clear()
 Range("TSESdata_tbl[Nr]").AutoFilter
End Sub
 

Database met aanpassing spoelboter en rtp boterberekening (2).zip

[emielDS]

Door de beveiliging eraf te halen.

[Sary]

Hoe bedoel je, met vba code?

[emielDS]

Is het blad niet beveiligd?  waarschijnlijk betrouw je uw eigen niet.

[Sary]

Op 28/4/2025 om 14:53, emielDS zei:

Is het blad niet beveiligd?  waarschijnlijk betrouw je uw eigen niet.

[Sary]

Als ik de beveiliging gebruik werken mijn macro’s niet meer

[emielDS]

Natuurlijk niet, dat is nu eenmaal de bedoeling van de beveiliging.

plaats een voorbeeldbestandje zonder privacy gevoelige gegevens.

[emielDS]

Ik vrees dat er weinig van uw macro's zullen werken. 

 gebruik voor uw tabblad namen 1 woord

gebruik steeds dezelfde naam sheets("blad7") bestaat niet, sheets("Tankstalen - einstalen") bestaat niet.

dat zijn maar enkel van uw onzorgvuldigheden, een programma werkt maar zo nauwkeurig (als het al werkt) als zijn programeur.

[Sary]

Op 4/5/2025 om 23:39, emielDS zei:

Natuurlijk niet, dat is nu eenmaal de bedoeling van de beveiliging.

plaats een voorbeeldbestandje zonder privacy gevoelige gegevens.

Dag emielDS,

 

Ik heb deze week ondertussen nog wat aanpassingen gedaan zoals bij afgewerkte mengers. Daar mogen ze de bvb de textboxen/comboboxen die ik aangeduid heb niet leeg laten. Als jij eens tijd hebt om te kijken waarom mijn macros niet meer werken als ik de filters beveilig dat er niet mag geknipt en geplakt worden enz..

Zie bijgevoegd 

Database laatst bijgewerkt met lege textvakken.xlsm

[emielDS]

Welke macro's bedoel je? en hoe start je die macro?

10 mei aangepast door emielDS