XL 2013 Ôter protection feuille selon sélection d'une plage

[resano]

Bonjour,

Après plusieurs recherches je n'ai pas trouvé de solutions au problème suivant :

Je souhaiterais lorsqu'un utilisateur sélectionne une plage (exemple : ("A4:Q4")) la protection de la feuille s'enlève et que l'utilisateur puisse couper coller. Quand cette opération est effectuée la protection de la feuille "redémarre".

- La plage de sélection doit s'appliquer sur une plage variable (for x = 4 to 12000)
- Si la plage de sélection n'est pas comprise entre la colonne A et Q rien ne se passe
- La manipulation couper coller se fait manuellement ( est il possible de faire comprendre a Excel si clique droit couper coller ont été réalisé)

J'ai essayé commencé un code mais étant un débutant je ne vois pas comment faire

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
dim x as Integer
for x = 4 to 12000
If  selection = Range("A" & x ":Q"& x ) Then
Sheets("Planning").Unprotect "vba"
'Manipulation couper coller
Sheets("Planning").Protect "vba"
End If

End Sub

Merci Par avance pour votre aide votre forum m'a toujours permis de trouver des solutions

Résano

 

[TooFatBoy]

Bonjour,

Si l'utilisateur a le droit de modifier ces cellules, pourquoi les protéger ?

 

[resano]

Bonjour,

Comme il s'agit d'un planning de tâches, la priorité des tâches peuvent changer. le fichier compte plusieurs utilisateurs qui n'ont accès qu'a une partie du fichier. ils n'ont pas accès aux parties des autres utilisateurs. L'utilisateur qui décide de la priorité des tâches doit pouvoir juste pour couper coller les informations fournies par les autres utilisateur pour éviter des décalages.

Suis-je clair ?

 

[TooFatBoy]

Oui, ça me semble assez clair : chaque utilisateur peut modifier une plage de cellules, qui peut être différente selon l'utilisateur, Si je comprends bien.

 

[resano]

oui c'est ça

 

[TooFatBoy]

Dans ce cas, il faudrait peut-être définir une plage de cellules pour chaque type d'tilisateur et n'autoriser la macro à agir que sur l'intersection entre sa plage autorisée et la plage qu'il a sélectionnée.

En VBA il y a Intersect, Si je me rappelle bien, qui permet de connaître les cellules communes à deux plages.

 

[resano]

Ok ça marche mais pas comme je veux.
comment peut-on faire pour que ce la fonctionne que si je sélectionne de A:Q ? car là ça enlève la protection a chaque fois que sélectionne une cellule

If Intersect(Range("A:G"), Range("G:M"), Range("M:Q")) Is Nothing Then
Sheets("Planning").Unprotect "vba"

 

[TooFatBoy]

Je ne pige pas ton test.

Je verrais plutôt un truc du genre :
Set ZoneAutorisee = Range("A:Q")
Set ZoneAction = intersect(Target, ZoneAutorisee)
Ainsi dans ta variable ZoneAction tu n'as que les cellules autorisées parmi celles sélectionnées.

En suite tu ajoutes un test genre
If ZoneAction not is nothing then
...
End if

 

[resano]

Merci Marcel
tu as résolu mon problème

 

[TooFatBoy]

Content pour toi si ton problème est résolu.