Sorteren van een beveiligd blad

[JaapMol]

Graag zou ik een macro uitvoeren die een sortering doet.

 Range("E3:E" & lastnamesurnameReference).Select
    Selection.Sort Key1:=Range("E3"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

Bovenstaande methode sort van klasse range is mislukt is de melding'.
De reden is dat het blad beveiligd is tegen een sortering.

Graag zou ik de beveiliging opties instellen zodat ik daar sorteren aan kan vinken.

Waar kan ik deze vinden?

 

[danny147]

Beste JaapMol

Gebruikde volgende stukje code in je bestandje

ActiveSheet.Unprotect

Hierdoor wordt de beveiliging op geheven.

Groetjes Danny. :thumb:

 

[trucker10]

probeer deze

Sub tst()
    ActiveSheet.Unprotect     ' Password:=""     [COLOR="Green"]' indien er een password staat!![/COLOR]
        [E3:E" & lastnamesurnameReference].Sort Key1:=Range("C3"), Order1:=xlAscending
    ActiveSheet.Protect       ' Password:=""
End Sub

 

[Warme bakkertje]

Of zo. De gebruiker kan handmatig niets wijzigen maar macrocode wordt wel uitgevoerd.
Plaats deze in ThisWorkbook

Private Sub Workbook_Open()
    Sheets("Naam van je blad").Protect UserInterfaceOnly:=True
End Sub