insert in beveiligd werkblad

[stefano]

Ik beschik over een tabblad waarin een lijst gegevens onder elkaar staan. Deze lijst wordt regelmatig uitgebreid. Met behulp van een makro wordt een nieuw item toegevoegd aan de lijst, daarna wordt de lijst gesorteerd. Dat werkt perfect, zie ook onderstaande code.

Sub invoeg_kleine()
    
    Range("ae7").Select
    Selection.Insert Shift:=xlDown
    
    Range("ae7").Select
    ActiveCell.FormulaR1C1 = UCase(InputBox("Geef de naam van de bloem in ", "Aanmaak bloemsoort kleine silo's"))
    Application.Goto Reference:="R1C1"
    
    Range("ae6:ae50").Select
    Selection.Sort Key1:=Range("ae6"), Order1:=xlAscending, Header:=xlGuess, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
    DataOption1:=xlSortNormal
    Range("A1").Select
    
End Sub

Probleem ontstaat nu wanneer ik het werkblad beveilig. Ik krijg een foutmelding :

" Methode Insert van klasse Range is mislukt "

Hoe kan ik dit voorkomen ?

 

[mikeo]

Door de beveiliging van je werkblad kun je niets toevoegen. De beveiliging is er ook juist om ervoor te zorgen dat bepaalde cellen niet kunnen worden aangepast.

Je moet of de plek waar het moet komen vrij laten zodat deze cel(len)niet beveiligd worden of in je macro de beveiliging uitzetten, waardes toevoegen en werkblad weer beveiliging

 

[Finch]

Je kan ook met het statement UserInterfaceOnly gaan werken, dan moet je niet telkens de sheet unprotecten en protecten. Zoek maar eens op binnen de help.