Classeur partagé

Bonjour,

J'ai partagé un classeur avec Révision/partager le classeur..

Depuis cela, lorsque j'enregistre, j'ai une erreur 1004.

Est-ce que je dois apporter une modification au niveau de l'enregistrement d'une ligne ?

Merci!

Bonjour,

N'aurais tu pas du code dans ton before save ou close?

Si oui poste le ici ...

Non, le seul code est :

'Bouton enregistrer
Private Sub btn_enregistrer_click()
    Dim L As Long
    ActiveSheet.Unprotect
    If var_ajout = True Then
        'Placer le nouvel enregistrement à la première ligne de tableau non vide
        L = Sheets("transaction").Range("a65536").End(xlUp).Row + 1
        Range("A" & L).Value = L
        MsgBox "Votre transaction a été ajoutée !"
        var_ajout = False
    Else
        L = Me.cb_no_transaction.ListIndex + 2
        tb_maj = Format(Now(), "DD-MM-YYYY")
        MsgBox "Votre transaction a été enregistrée !"
    End If
        Range("B" & L).Value = Val(cb_ubr)
        Range("C" & L).Value = Val(cb_compte)
        Range("D" & L).Value = cb_type
        Range("E" & L).Value = cb_etat
        Range("F" & L).Value = tb_description
        Range("G" & L).Value = tb_fac_fournisseur
        Range("H" & L).Value = Format(TB_req_dt, "YYYY-MM-DD")
        Range("I" & L).Value = tb_req_no
        Range("J" & L).Value = Format(tb_bc_dt, "YYYY-MM-DD")
        Range("K" & L).Value = tb_bc_no
        Range("L" & L).Value = Format(tb_fac_dt, "YYYY-MM-DD")
        Range("M" & L).Value = tb_fac_no
        Range("N" & L).Value = Val(Replace(tb_bud_eng, ",", "."))
        Range("O" & L).Value = Val(Replace(tb_bud_montant, ",", "."))
        'Range("P" & L).Value = Format(tb_saf_dt, "YYYY-MM-DD")
        Range("Q" & L).Value = Val(Replace(tb_bud_impact, ",", "."))
        Range("R" & L).Value = cb_fac_recu
        Range("S" & L).Value = tb_req_contact
        Range("T" & L).Value = tb_note_generale
        Range("U" & L).Value = cb_saf_etat
        Range("V" & L).Value = tb_saf_note
        Range("W" & L).Value = Format(tb_maj, "YYYY-MM-DD")
        Range("X" & L).Value = tb_req_courriel
        Range("Y" & L).Value = tb_sou_no
        Range("Z" & L).Value = tb_acheteur
        Range("AA" & L).Value = cb_periode
        Call MAJ_inactif
        ActiveSheet.Protect
End Sub

Je constate que mon erreur est provoquée par cette ligne :

ActiveSheet.Protect