Macro werkt niet meer na beveiligen werkblad

[Louw]

Hi allen,

Ik heb een macro waarmee ik een nieuwe rij in een tabel invoeg. Ik hebl in die rij bepaalde cellen vergrendeld, gebruikers mogen deze cellen niet selecteren/veranderen. Zodra ik het werkblad beveilig werkt mijn macro niet meer. Ik krijg geen foutmelding maar de nieuwe regel wordt niet ingevoegd.
Hier onder heb ik 't VBA geplakt. Wie o wie kan mij helpen?
Alvast bedankt.

Met vriendelijke groet,!

Sneltoets: Ctrl+n
'
Sheets("Invoerblad").Select
Range("Tabel13141710149").Select
Selection.ListObject.ListRows.Add (1)
Range("B4:H4").Select
Range("H4").Activate
Selection.Copy
Range("B3:H3").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("D4").Select
Selection.Copy
Range("D3").Select
ActiveSheet.Paste
End Sub

 

[gast0660]

Test

Sub huppeldepup
Sheets("Invoerblad").Unprotect "[COLOR="#008000"]uw paswoord[/COLOR]"
[COLOR="#008000"]'uw macro[/COLOR]
Sheets("Invoerblad").Protect "[COLOR="#008000"]uw paswoord[/COLOR]"
end sub

 

[Louw]

@gast0660.

Het werkt. Hartstikke bedankt

 

[gast0660]

Hoi,mooi zo:thumb:
Tip voor de volgende keer, plaats code altijd tussen codetags, dat maakt de code een stuk overzichtelijker.
Dit doe je via het # teken.

 

[Louw]

Thanks, ik begrijp het