VBA werkt niet in beveiligd blad

[EugeneMeppel]

Beste forumgebruikers,

Ik heb een logboekbestand met onderstaande code in module1:

Sub Nieuw()
'
' Nieuw Macro
'
    Range("A5:E5").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("A4:E4").Select
    Selection.Copy
    Range("A5:E5").Select
    ActiveSheet.Paste
    Range("A5").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("A5").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("B5").Select
End Sub

Nieuwe loggingen moeten door de gebruiker "bovenaan" toegevoegd worden, dit gebeurd in Rij5.
Via deze macro wordt er voor een lege rij5 gezorgd met de juiste datum(in kolomA) en de juiste opmaak. Dit door boven de bestaande rij5 cellen in te voegen en dan uit rij4 opmaak en datum te kopieren. Datum in Rij4 dmv =Nu(). Datum in Rij5 is plakken waarde van Rij4.

Dit alles werkt perfect.
Totdat ik het werkblad ga beveiligen.
Krijg dan een foutmelding en de fout zou hier zitten.

    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

Iemand enig idee wat hier fout gaat?

Eugene

 

[Superzeeuw]

Er gaat niets mis.
Wanneer jij een blad beveiligd zijn er verschillende nivo's.
Jouw nivo is ingesteld dat invoegen niet mag.

Er is een oplossing:
Zoek op internet maar eens op UserInterFaceOnly