Insertion automatique d'une ligne dans un fichier verrouillé

J'ai verrouillé un fichier, et laissé certaines cellules actives pour la saisie, mais un problème intervient, à savoir que lors du double clique sur l'avant dernière ligne (me permettant d'insérer automatiquement une ligne), j'ai un message d'erreur du fait que mon fichier soit verrouillé. Peut on passer au travers ?

Bonjour

Dans ta macro du double clic

ActiveSheet.Unprotect
'
' Ton code insertion ligne
'
ActiveSheet.Protect

Cela devrait le faire

Cool.

J' ai un petit bug. Tu peux m'indiquer où le placer ?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Application.ScreenUpdating = False

If Not Application.Intersect(Target, Range("A8:A65536")) Is Nothing Then

ActiveCell.EntireRow.Insert

Range("A7:w7").Copy ActiveCell

ActiveCell.RowHeight = 11.25

Cancel = True

End If

End Sub

Salut le forum

Tu peux permettre l'insertion de ligne lors de la protection de la feuille.

Tu peux aussi le faire par macro

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowInsertingRows:=True

Tu peux aussi permettre au code VBA de travailler sur une feuille protégée

ActiveSheet.Protect UserInterFaceOnly:=True

Mytå

Je peux mettre les deux codes ?

En tout cas le premier est fonctionnel mais il implique que j'ai bouclé tout ce que j'ai à faire sur ma feuille. Mais c'est nickel !!!!!