XL 2016 insertion ligne avec formule protégée et masquée

Prya · 3 Novembre 2022

Bonjour,

Pouvez-vous SVP me dire s'il est possible dans un fichier excel d'insérer des lignes avec une recopie des formules sachant que les cellules sont protégées ?

J'ai essayé mais je ne n'y parviens pas.

Je vous joins un fichier d'essai pour une meilleure compréhension.

En vous remerciant par avance pour l'aide que vous pourrez m'apporter.

Cordialement
Prya

sylvanu · 3 Novembre 2022

Bonjour Prya,
Votre fichier n'a pas de protection.
Fournissez un fichier représentatif, ainsi que quelles lignes vous voulez dupliquer.

Prya · 3 Novembre 2022

Je vous prie de bien vouloir m'excuser pour cette inattention.

Voici le fichier protégé et l'idée est d'insérer des lignes entre la ligne 4 et 9 peu importe l'endroit et en copiant la formule qui setrouve en colonne "F" et qui est vérouillée et masquée.

La colonne "F" se remplit automatiquement dès lors qu'un nombre est saisi en colonne "G"

Merci beaucoup pour votre aide
Prya

sylvanu · 3 Novembre 2022

Sans mot de passe j'ai improvisé.
Vous pouvez faire :

VB:

Sub Insertion()
    ActiveSheet.Unprotect ("1234")          ' Déprotection, Changer password
    Range("D7").EntireRow.Insert            ' Changer D7 par cellule où inserer
    Range("D5:G5").Copy                     ' Changer plage à copier
    Range("D7").Select                      ' Changer cellule où coller
    ActiveSheet.Paste                       ' Coller tout, format, formules ....
    ActiveSheet.Protect Password:="1234"    ' Protection, Changer password
End Sub

Il vous faut modifier le mot de passe, la ligne où coller, la ligne à copier.

Prya · 3 Novembre 2022

sylvanu à dit:

Sans mot de passe j'ai improvisé.
Vous pouvez faire :

VB:

Sub Insertion()
    ActiveSheet.Unprotect ("1234")          ' Déprotection, Changer password
    Range("D7").EntireRow.Insert            ' Changer D7 par cellule où inserer
    Range("D5:G5").Copy                     ' Changer plage à copier
    Range("D7").Select                      ' Changer cellule où coller
    ActiveSheet.Paste                       ' Coller tout, format, formules ....
    ActiveSheet.Protect Password:="1234"    ' Protection, Changer password
End Sub

Il vous faut modifier le mot de passe, la ligne où coller, la ligne à copier.

Prya · 3 Novembre 2022

Merci beaucoup Sylvanu ! et un grand merci pour les explications, toujours agréable de comprendre ce que l'on fait.
Prya

Prya · 3 Novembre 2022

Est-il possible également de protéger toutes les formules d'un tableau sans protéger la feuille afin de permettre aux différents utilisateurs d'insérer et supprimer des lignes ?

sylvanu à dit:

Sans mot de passe j'ai improvisé.
Vous pouvez faire :

VB:

Sub Insertion()
    ActiveSheet.Unprotect ("1234")          ' Déprotection, Changer password
    Range("D7").EntireRow.Insert            ' Changer D7 par cellule où inserer
    Range("D5:G5").Copy                     ' Changer plage à copier
    Range("D7").Select                      ' Changer cellule où coller
    ActiveSheet.Paste                       ' Coller tout, format, formules ....
    ActiveSheet.Protect Password:="1234"    ' Protection, Changer password
End Sub

Il vous faut modifier le mot de passe, la ligne où coller, la ligne à copier.

Merci beaucoup Sylvanu ! et un grand merci pour les explications, toujours agréable de comprendre ce que l'on fait.

Est-il possible également de protéger toutes les formules d'un tableau sans protéger la feuille afin de permettre aux différents utilisateurs d'insérer et supprimer des lignes ?

Prya

sylvanu · 3 Novembre 2022

Il existe plusieurs solutions, dont celle en PJ.
Quand on essaie de cliquer sur une cellule de la colonne F alors on sélectionne automatiquement la même en colonne E ce qui fait que F n'est pas modifiable. Avec :

VB:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Fin
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("F4:F1000")) Is Nothing Then
        Cells(Target.Row, Target.Column - 1).Select
    End If
Fin:
End Sub

XL 2016 insertion ligne avec formule protégée et masquée

Prya

XLDnaute Nouveau

Pièces jointes

sylvanu

XLDnaute Barbatruc

Prya

XLDnaute Nouveau

Pièces jointes

sylvanu

XLDnaute Barbatruc

Prya

XLDnaute Nouveau

Prya

XLDnaute Nouveau

Prya

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Pièces jointes

Discussions similaires