filteren in beveiligde map

[reko3475]

Wie kan mij helpen.

Ik heb een database gemaakt met enkele kolommen beveilgd tegen schrijven. overige kolommen zijn bedoeld voor mijn mede collega's om aanvullende reactie's in te voeren.
Om gemakkellijk te kunnen werken heb ik de filter aangezet.
Nu werkt de filter niet. ook niet als ik de bovendste regel unlock.

wie kan mij helpen


groet

reko

 

[wiki]

Je kunt in een macro de beveiliging verwijderen vervolgens filteren en daarna het blad weer beveiligen

Option Explicit
Dim tijd
Const sleutel = "wachtwoord"


Sub beveiliging()
'
'
Application.ScreenUpdating = False
 ActiveSheet.Unprotect Password:=sleutel
***
    Application.ScreenUpdating = True
    
      ThisWorkbook.ActiveSheet.Protect Password:=sleutel
    
End Sub

Deze routine kun je koppelen aan een knop en de uit te voeren actie moet je bij de sterretjes plaatsen.

suc6

 

[reko3475]

Beste Wiki,

als ik deze macro maak dan kan ik de eerder beveiligde cellen wel bewerken
en dat was dus niet de bedoeling


of heb ik de macro niet volledig gemaakt


groet

reko

 

[Roncancio]

Bij het beveiligen van het werkblad kan je aaninken dat autofilter nog wel gebruikt kan worden.
Of bedoel je iets anders?

Met vriendelijke groet,


Roncancio

 

[reko3475]

Beste Roncancio

bijgevoegd een screen shot waarin te zien is welke kolommen beveilgd moeten blijven en welke niet. als ik het gehele blad beveilig werkt de filter niet meer, of is het mogelijk om alleen de benodigde kolommen te beveiligen

 

[Warme bakkertje]

Extra >>Beveiliging >> Blad beveiligen >> in het lijstje dat nu verschijnt Autofilter gebruiken aanvinken

Mvg

Rudi

 

[Roncancio]

Wellicht ten overvloede: de blokkering van de kolommen met de autofilter verwijderen.
Dus Kolommen die in de autofilter zitten selecteren.
Vervolgens naar Opmaak - celeigenschappen - [tabblad] bescherming - blokkering uitvinken.

Tenslotte de handeling die door WarmBakkertje is beschreven.

Met vriendelijke groet,


Roncancio

 

[reko3475]

Warm bakkertje,

het lukt niet !!
als ik de sheet wil beveiligen tools /protection / protect sheet krijg ik het (bijgevoegde) schermpje waar ik mijn wachtwoord moet invoeren
ander opties heb ik niet


groet


Reko

 

[Warme bakkertje]

Probeer deze eens in ThisWorkbook
Wijzig bladnaam en wachtwoord. Sla op en sluit bestand. Heropenen

Private Sub Workbook_Open()
    Sheets("naamvanjeblad").Protect Pasword:="jouwwachtwoord", DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFiltering:=True
End Sub

Mvg

Rudi