Rij invoegen met macro in beveiligd blad

[Josh2k4]

Hoi,
middels een knop (met daarachter een macro) onder een tabel kan een gebruiker een rij toevoegen aan de tabel.
Echter werkt dit niet als het werkblad beveiligd is, ook al heb ik aangegeven dat rijen invoegen wel is toegestaan.
Ik gebruik onderstaande code, weet iemand hoe ik deze moet aanpassen zodat het wel werkt?

Sub INCI()
 Sheets("Importfile").ListObjects("INCI").ListRows.Add
End Sub

Alvast bedankt!

Jos

 

[ExcelAmateur]

Zet in het begin van de code dat het password eraf moet.
Aan het eind van de code dat het password er weer op moet.

 

[Josh2k4]

HOi,
dank voor je input.
Dit probeer ik ook te bewerkstelligen, ik heb nu de volgende code toegevoegd, maar dan vraagt hij alsnog om een wachtwoord?
Kan ik dat wachtwoord ook in de macro meegeven? Zo ja met welke code?

Sub INCI()
 ActiveSheet.Unprotect
 Sheets("Importfile").ListObjects("INCI").ListRows.Add
 ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

 

[VenA]

Probeer het zo eens.

Sub INCI()
With Sheets("Importfile")
    .Unprotect "wachtwoord"
    .ListObjects("INCI").ListRows.Add
    .Protect "wachtwoord"
End With
End Sub

Waarbij je "wachtwoord" moet wijzigen in jouw eigen ww.

 

[Josh2k4]

super - thanks VenA - deze code werkt!