Protection structure

Bonjour,

j'ai un fichier avec un accès à plusieurs utilisateurs qui doivent rentrer leurs données.

Derrière ces feuilles, il y a des formules et des codes VBA.

Il ne se passe pas une semaine sans qu'un utilisateur essaie de rajouter ou supprimer une ligne ou colonne.

JE souhaiterais positionner dans ThisWorbook un code pour empêcher ce genre de désagrément.

Je tatonne mais je ne trouve pas de solution.

Mon code suivant ne fonctionne pas.

Un peu d'aide me serait bien utile.

Merci

Sub protection_structure()

Dim ws As Worksheet

Dim wb As Workbook

Set wb = ActiveWorkbook

For Each ws In wb.Worksheets

ws.Unprotect Password:="tseoy"

ws.Protect Password:="tseoy", AllowFormattingCells:=True, _

AllowFormattingColumns:=True, AllowFormattingRows:=True, _

AllowInsertingColumns:=False, AllowInsertingRows:=False, _

AllowDeletingColumns:=False, AllowDeletingRows:=False

Next ws

End Sub

Bonjour,

Je ne vois pas d'erreur particulière dans ton exemple.

Essaie cependant ceci et redis nous.

Et un peu de lecture.

https://msdn.microsoft.com/fr-fr/library/office/Ff840611.aspx

Cdlt.

Option Explicit

Private Sub Workbook_Open()
Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        With ws
            .Protect Password:="tseoy", _
                     UserInterfaceOnly:=True, _
                     AllowFormattingCells:=True, _
                     AllowFormattingColumns:=True, _
                     AllowFormattingRows:=True
        End With
    Next ws
End Sub

Bonjour

merci de cette réponse et de la lecture proposée.

J'ai rajouté les insertingsrows et deletingsrows.

Cependant ma problématique s'est déplacée.

Les utilisateurs doivent pouvoir accès aux cellules pour rentrer leurs données .

Je veux juste bloquer l'insertion et la suppression de lignes ou colonnes.

merci

RE,

Essaie donc ainsi :

Private Sub Workbook_Open()
Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        With ws
            .EnableSelection = xlNoRestrictions
            .Protect Password:="tseoy", UserInterfaceOnly:=True
        End With
    Next ws
End Sub

Regarde l'aide de la propriété 'EnableSelection' pour plus d'informations.

Cdlt.

J'ai bien un blocage sur les insertions et suppressions,

mais je n'ai pas accès aux cellules.

Lorsque je clique sur une cellule elle me dit qu'elle est protégée.?

Merci

Re,

C'est à toi de déterminer les cellules qui pourront être modifiées.

Par défaut toutes les cellules sont verrouillées. Voir Format de cellules et protection.

Cdlt.