beveiligd werkblad sorteren van geblokkeerde cellen

[Jeneroy]

Allen,

Kan iemand mij helpen,
Ik heb een Macro gemaakt die een lijst splitst in 150 lijsten. Deze lijsten zet ik op OneDrive en het is de bedoeling dat deze lijsten bekeken kunnen worden door de gebruikers maar niet bewerkt kunnen worden.
Maar helaas kan er niet gesorteerd worden.
Wat doe ik verkeerd?

ActiveSheet.Protect Password:="123", DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowSorting:=True, AllowFiltering:=True
   
     Range("A1").Select
   MyName1 = Range("H7").Value & " Lijst" & Range("B1").Value
    ChDir "D:\Afdelingen\LIJSTEN \"
   ActiveWorkbook.SaveAs Filename:=MyName1 & ".xlsx" _
        , FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False 'AccessMode:=xlShared

 

[emields]

veel

 

[Jeneroy]

Kan je mij vertellen wat ik verkeerd doe. bedankt

 

[emields]

begin met dit te lezen

https://www.helpmij.nl/forum/announcement.php?f=5

 

[HSV]

De F1 knop in VBA.

[TD="class: mainsection"] AllowSorting [/TD]
[TD="class: mainsection"]Optioneel[/TD]
[TD="class: mainsection"] Variant [/TD]
[TD="class: mainsection"]Indien True kan de gebruiker het beveiligde werkblad sorteren. Er mogen geen vergrendelde of beveiligde cellen in het sorteerbereik aanwezig zijn. De standaardwaarde is False .[/TD]