Empêcher la modification d'une ligne

Résolu/Fermé
andy2092 Messages postés 78 Date d'inscription dimanche 13 mai 2018 Statut Membre Dernière intervention 7 février 2024 - 27 juin 2018 à 11:46
danielc0 Messages postés 830 Date d'inscription mardi 5 juin 2018 Statut Membre Dernière intervention 17 avril 2024 - 28 juin 2018 à 12:14
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
A voir également:

1 réponse

danielc0 Messages postés 830 Date d'inscription mardi 5 juin 2018 Statut Membre Dernière intervention 17 avril 2024 74
27 juin 2018 à 13:37
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
0
andy2092 Messages postés 78 Date d'inscription dimanche 13 mai 2018 Statut Membre Dernière intervention 7 février 2024
27 juin 2018 à 14:03
C'est bon merci !
0
andy2092 Messages postés 78 Date d'inscription dimanche 13 mai 2018 Statut Membre Dernière intervention 7 février 2024
28 juin 2018 à 09:13
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 ?
0
andy2092 Messages postés 78 Date d'inscription dimanche 13 mai 2018 Statut Membre Dernière intervention 7 février 2024
28 juin 2018 à 11:44
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" ?
0
danielc0 Messages postés 830 Date d'inscription mardi 5 juin 2018 Statut Membre Dernière intervention 17 avril 2024 74 > andy2092 Messages postés 78 Date d'inscription dimanche 13 mai 2018 Statut Membre Dernière intervention 7 février 2024
28 juin 2018 à 12:14
Mets :

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


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