[VBA][E-03] Protection et suppression de plages?

**Jibicas** · 04/06/2008, 11h52

Bonjour la compagnie!

Voilà ce qui m'amène:

Je souhaiterai protéger une feuille entière...

J'ai en ma possession un questionnaire dans une feuille excel contenant une mise en page particulière dans laquelle l'utilisateur va pouvoir remplir différentes cellules (pour répondre aux questions...).

Afin de conserver la mise en page et le contenu des cellules "questions" de ce questionnaire, j'ai protégé la feuille.
Cela va sans dire, mais c'est mieux en le précisant: les cellules "réponses", modifiables, sont dans des "plages".

Ces plages ont été réalisés par: "Outils">"Protection">"Permettre aux utilisateurs de modifier des plages..."

Jusque là tout baigne...

Une fois le questionnaire rempli, je le fais valider par l'utilisateur (par un bouton de validation dans la feuille).

A ce moment précis, j'aimerai que ce questionnaire (par extension, toute la feuille y compris les plages définies au préalable) soit alors protégé et ce afin d'empêcher toute future modification par l'utilisateur moyen (à entendre au sens de: "qui ne sait pas comment faire sauter une protection...").

Voici ma question:

Y a t il une méthode ou une fonction VBA qui permet la protection des plages de cellules définies au préalable comme "modifiable" par l'utilisateur?

J'ai bien pensé à ".locked", mais cette fonction ne me fournit pas la réponse attendue et la fonction ".protect" me semble dépendre des plages définies par mes soins...

A défaut : Comment supprimer les plages prédéfinies par mes soins par la méthode citée plus haut, mais par VBA cette fois?

Je suis donc preneur de toutes idées ou solutions faisant avancer mon "schmilblik" ainsi que de tous commentaires et autres demandes de précisions.

Serviteur,
Jibicas

**ptitepo** · 05/06/2008, 14h11

J'ai essayer de chercher dans outils/protection, mais je ne trouve pas Permettre aux utilisateurs de modifier des plages....
C'est excel 2007 ?

**CassiusKey** · 05/06/2008, 14h36

Salut,

Pour protéjer une feuille, tu peux utiliser le code suivant.

- Une procédure pour activer le code

- Une procédure pour le désactiver

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub Protection()
 
    If MsgBox("Voulez vous mettre un mot de passe ?", vbYesNo) = vbYes Then
 
        ThisWorkbook.Worksheets(1).Protect Password:=InputBox("Veuillez entrer votre mot de passe")
 
    End If
 
 
End Sub
 
 
Sub Lever_Protection()
 
    If MsgBox("Voulez vous désactiver le mot de passe ?", vbYesNo) = vbYes Then
 
        ThisWorkbook.Worksheets(1).Unprotect Password:=InputBox("Veuillez entrer votre mot de passe")
 
    End If
 
End Sub

**Jibicas** · 06/06/2008, 11h56

Hello à vous deux!

En réponse à ptitepo:

Mon intitulé me paraissait clair pourtant

!?!?
Je bosse sous Excel 2003.

Pour info, je t'invite à relire ce que nous a produit M Hubiche, là:
http://www.developpez.net/forums/sho...rche+%5BVBA%5D...
Qui aide pas mal à la recherche et à la lecture rapide...

En réponse à CassiusKey:

Merci à toi, peut être n'ai je, pour le coup, pas été assez clair sur ce point.

Ta méthode fonctionne à merveille, c'est celle que j'utilise actuellement. Une de ses limites apparait lorsque tu définis des "plages" modifiables. Excel protégera ta feuille en conservant modifiable ces dites "plages"...logique! Mais les qualités sont parfois des défauts...(adage exaspérant en l'occurence)

Ce que je cherches en fait, c'est une fonction VBA qui puisse me supprimer ces préférences de "plages" pour rendre cette fois ci toute la feuille non modifiable...une fois le questionnaire rempli bien sûre.

Merci à vous deux d'avoir tenté de faire avancer ma réflexion, de mon côté, je continue à écumer les forum...

Jibicas

**fring** · 06/06/2008, 12h29

Bonjour tlm,

Une solution éventuelle ci-joint.
Avant validation, la feuille est modifiable, après elle ne l'est plus malgré que la feuille n'est pas protégée.

Pièce jointe 31503