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

[Prya]

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]

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

 

[Prya]

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]

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

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]

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

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]

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

 

[Prya]

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 ?

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

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]

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 :

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