Ôter la protection d'un ensemble de cellules sélectionner

[DRIX]

Bonjour tous le monde,

C'est encore moi avec mon histoire de protéger une partie d'une feuille excel selon l'utilisateur qui se connecte à l'appli.

La question est :

est il possible de retirer 1 protection qui protège toute une feuille, sur une sélection de cellule.
Si oui quel objet pensez vous qu'il faut utiliser...
Merci d'avance

@+

DRIX

 

[William]

Salut DRIX.

Je ne pense pas qu'il soit possible de sélectionner certaines cellules pour ôter la protection...

Par contre, tu peux :

ôter la protection de la feuille,

déverrouiller certaines cellules,

Et enfin re - protéger la feuille...

Mais à mon avis, celà ne peut se passer qu'en VBA...

Ca t'intéresse ??

@+

William

 

[DRIX]

Oui ça m'interesse !!
Je ne vois pas trop ce que tu veux dire...
mais ce que je veux c'est que des colonnes entières soit dé-protégées à partir du moment ou le user toto se connecte et que si le user titi se connecte à l'appli, se soit d'autres colonnes qui soit dé-protégées....

Voilà, si tu penses avoir une soluce pour ça alors oui ça m'interesse...

Mais j'ai regardé un peu le modèle d'objet Excel et je ne vois pas encore comment je pourrait faire ce tour de force...
;o)

Si t'as une idée n'hésites pas...
@+

 

[William]

Bonjour,

L'idée serait la suivante : Créer un UserForm, qui demande un mot de passe... Dis moi si cela te pose un problème ?

Protéger la feuille avec un mot de passe quelconque, disons PASSWORD.

Puis, en fonction de la réponse donnée par l'utilisateur,


Sub utilisateur1 ()

Sheets("ZAZA").Activate


ActiveSheet.Unprotect ("PASSWORD") 'ça, c'est TON mot de passe

'déverrouiller les cellules B14 a J46

Range("A14:J46").Select
Selection.Locked = False

'Protéger la feuille :

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="PASSWORD"

End Sub

En ce qui concerne le UserForm, je dois t'avouer que je ne suis pas hyper doué, mais de nombreux fils en parlent....

L'idée ce serait de fait une autre macro disant :

If...... = toto Then 'Mot de passe utilisateur N° 1
End If
utilisateur1

If..... = tata Then 'Mot de passe utilisateur N° 2
End If
utilisateur2

Etc Etc....

Le seul problème, c'est que les utilisateurs ne pourront pas changer de mot de passe....

A +

William

 

[DRIX]

Merci bien je vais essayer ça et jte tiens o courant...
;o))