• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Filters opheffen in beveiligde Excel sheet

Status
Niet open voor verdere reacties.

Rapaille

Verenigingslid
Lid geworden
19 nov 2014
Berichten
63
Dag allemaal,

Ik heb een beveiligde Excel sheet, waarin filteren en sorteren is toegestaan. Door de beveiliging werkt de knop Clear all filters op de tab Data niet.

Ik ben op zoek naar een stukje vba die kijkt of de table is gefilterd en als dit zo is de filters verwijderd. Wie kan mij hier mee helpen?

Alvast bedankt voor het meedenken.

Met vriendelijke groet,

Hans
 
Code:
Sub dotch()
With ActiveSheet
.Unprotect "ww"
    If .AutoFilter.FilterMode = True Then .ShowAllData
.Protect "ww"
End With
End Sub
Of
Code:
Sub dotch()
With Sheets("Blad1")
.Unprotect "ww"
  If .AutoFilter.FilterMode = True Then .ShowAllData
.Protect "ww"
End With
End Sub
ww vervangen door uw wachtwoord
Blad1 vervangen door uw bladnaam als je de tweede code wilt gebruiken
 
of
Code:
Sub dotch()
  With Sheets("Blad1")
    .Unprotect "ww"
    If .FilterMode  Then .ShowAllData
    .Protect "ww"
  End With
End Sub
 
Laatst bewerkt:
of
Code:
Sub dotch()
With ActiveSheet
.Unprotect "ww"
    If .FilterMode Then .ShowAllData
.Protect "ww", , , , -1, , , , , , , , , -1, -1
End With
End Sub
 
Code:
Sub dotch()
With ActiveSheet
.Unprotect "ww"
    If .AutoFilter.FilterMode = True Then .ShowAllData
.Protect "ww"
End With
End Sub
/QUOTE]

Ik heb nog een uitdaging. Het is een shared workbook en ik krijg een foutmelding. We moeten de sheet dus eerst unsharen en na het opheffen van de filtering weer sharen.

Iemand een oplossing?
 
Zoek eens op...
Code:
MultiUserEditing
 
Of probeer het eens met onderstaande code :

Code:
Private Sub Workbook_Open()
Blad1.Protect Password:="ww", UserInterFaceOnly:=True, AllowFiltering:=True
End Sub

'Voor meerdere werkbladen

Private Sub Workbook_Open()
Dim wSheetName As Worksheet
For Each wSheetName In Worksheets
wSheetName.Protect Password:="ww", UserInterFaceOnly:=True, AllowFiltering:=True
Next wSheetname
End Sub


Blad of Bladen zijn beveiligd filteren is toegestaan en vba code van knoppen wordt gewoon uitgevoerd.
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan