Empêcher la modification d'une ligne [Résolu/Fermé]

Signaler
Messages postés
61
Date d'inscription
dimanche 13 mai 2018
Statut
Membre
Dernière intervention
17 mai 2019
-
danielc0
Messages postés
662
Date d'inscription
mardi 5 juin 2018
Statut
Membre
Dernière intervention
7 décembre 2019
-
Bonjour,

J'utilise une ligne (B à Z) dans mon fichier qui contient des formules et elle me sert de référence pour ajouter une nouvelle ligne. J'aimerai que l'utilisateur ne puisse modifier ou supprimer cette ligne. Est-ce possible avec une macro ou autres options ?

Merci
Messages postés
662
Date d'inscription
mardi 5 juin 2018
Statut
Membre
Dernière intervention
7 décembre 2019
45
Bonjour,

Déverrouille toutes les cellules du classeur, verrouille les cellules de ta ligne et protège la feuille. Si tu veux plus de précisions, dis-le.

Cordialement.

Daniel
andy2092
Messages postés
61
Date d'inscription
dimanche 13 mai 2018
Statut
Membre
Dernière intervention
17 mai 2019

C'est bon merci !
andy2092
Messages postés
61
Date d'inscription
dimanche 13 mai 2018
Statut
Membre
Dernière intervention
17 mai 2019

Par contre petit problème que je viens d'identifier ! J'ai des données groupées qui ne peuvent être masquées ou affichées quand je protège la feuille. Est-ce possible d'autoriser cette action ?
andy2092
Messages postés
61
Date d'inscription
dimanche 13 mai 2018
Statut
Membre
Dernière intervention
17 mai 2019

J'ai essayé ce code que j'ai trouvé sur le net :

Private Sub Workbook_Open()
With Worksheets("Feuil1")
.EnableAutoFilter = True
.EnableOutlining = True
.Protect Contents:=True, Password:="Toto", UserInterfaceOnly:=True

Il permet d'utiliser les données groupées (+/-) sur une feuille protégée.

Cependant quand je rajoute une nouvelle ligne, je ne peux pas la modifier. Voici le message que je reçois quand j'essaie de modifier la nouvelle ligne :



Voici le code de mon bouton pour insérer une nouvelle ligne :

Sub Ajout_ligne()
'
' Ajouter une ligne

Application.EnableEvents = False
Dim x As Long
x = ActiveCell.Row
Range("ligne_vierge").Copy
Rows(x).Select
Selection.Insert Shift:=xlDown
Application.EnableEvents = True

End Sub

Faut-il que je rajoute une fonction dans le code "Workbook_Open" ?
danielc0
Messages postés
662
Date d'inscription
mardi 5 juin 2018
Statut
Membre
Dernière intervention
7 décembre 2019
45 > andy2092
Messages postés
61
Date d'inscription
dimanche 13 mai 2018
Statut
Membre
Dernière intervention
17 mai 2019

Mets :

.Protect Contents:=True, Password:="Toto", AllowInsertingRows:=True, UserInterfaceOnly:=True


au lieu de :
.Protect Contents:=True, Password:="Toto", UserInterfaceOnly:=True