Protection des cellules sauf pour le code VBA

tu as lu mon post 4 ?

Bonjour,

Ouiiiii Eriiic , je l'ai lu Et j'ai tout de suite essayé Mais cela me donne une erreur de compil Voilà ce que j'ai écrit sur en workbook :

Private Sub Workbook_BeforeClose()
Sheets("Feuil1").Protect UserInterfaceOnly:=True
End Sub

Et ça me donne une erreur de compilation avec : "La déclaration de la procédure ne correspond pas à la description de l'événement ou de la procédure de même nom".
Où est mon erreur ?

Merci à toi
Roland

PS Sur ma feuille je verrouille toutes les cellules, sauf les seules où l'on peut saisir H5:H24.
Mais je n'active pas la protection puisque c'est VBA qui le fait. Est-ce bien ainsi?

Bonjour,

C'est un évènement classeur, donc à mettre dans le module thisWorkbook.
Mais à la reflexion il vaut mieux le mettre à l'ouverture, ça évite un ré-enregistrement du classeur si tu viens de le faire.

Private Sub Workbook_Open()
    Sheets("Feuil1").Protect UserInterfaceOnly:=True
End Sub

eric

Mais ne me faut-il pas mettre un "=false" quelque part et un "= True" à un autre endroit ?
non
UserInterfaceOnly : Argument de type Variant facultatif. Cet argument a la valeur True pour protéger l'interface utilisateur, mais pas les macros. Si cet argument n'est pas spécifié, la protection s'applique à la fois aux macros et à l'interface utilisateur.

Tu fermes ton classeur.
A l'ouverture Feuil1 sera protégée pour l'utilisateur mais pas pour les macros qui écrivent dessus.
Re-teste comme ça et dis...

eric

Difficile de te répondre sans fichier et pas le courage ni le temps d'en construire un qui essaie de ressembler au tien...
Mais on peut supposer en effet que tu as bien fait les choses et que les shapes sont insensibles à UserInterfaceOnly:=True
A tout hasard ne protège pas toi-même et laisse faire la macro, mais je ne crois guère à une différence.
Ca ne serait pas la 1ère fois qu'une fonctionnalité n'est correcte que sur une partie.
Si c'est le cas tu es bon pour plus de lignes : enlever et remettre la protection comme proposé auparavant. Désolé dans ce cas de t'avoir fait perdre du temps.
Quand j'aurai 5 min je testerai car ça serait intéressant de confirmer.

eric

Mais non, tu ne m'as fait perdre aucun temps, Eric !
Alors, ne sois vraiment pas désolé ! Tu es vraiment sympa, toi et tous les autres de ce forum, de partager ainsi vos savoir et vos connaissances !

Encore merci et un grand coup de chapeau Ce site est vraiment d'utilité nationale. J'aimerais pouvoir donner ne serait-ce qu'une petite partie de ce que j'y trouve, crois-moi !

Ce sont effectivement les shapes qui me posent problème en ne se laissant pas "concerner" par le code VBA de "déprotection"

Mais je te remercie encore de ta gentillesse et de ta patience
Cordialement
Roland

Bonjour,
Ok je quitte le poste
Bonne suite.
Salutations.
Le Pingou

Je viens de tester, effectivement la protection des objets reste.

Donc sans mot de passe, au début de chaque sub en ayant besoin :
Sheets("Feuil1").Unprotect
rétablir à la fin de chaque sub :
Sheets("Feuil1").Protect

Si tu as plusieurs feuilles ou sub tu peux regrouper dans 2 sub que tu appelles partout où c'est nécessaire.
Si tu regardes l'aide sur Protect tu verras que tu peux augmenter les droits de l'utilisateur sur certaines actions.

eric

Merci Le Pingou de me donner un peu de ton temps

Mon "fichier", ici, c'est une feuille vide. Tout simplement
1- Ma procédure VBA "feuille" ( sur bouton de commande) la nourrit de nombres au hasard , en colonnes F5:G25 Elle efface aussi les contenus d'autres cellules modifiées par calcul .

2- L'utilisateur, un enfant de 10 ans, saisit le produit des nombres sur chacune de 20 lignes et cela dans la colonne H5:H25

3- Mon autre procédure (en "worbooks") capte chaque résultat saisi.
Et, selon le cas( 1= juste, 0 = faux), affiche des images nommées "bonus" ou "cible".

Et le code VBA efface ces images à chaque fois que nécessaire, pour ne pas qu'elles s'empilent
sur la feuille;

C'est pour cette raison que je voudrais ( voulais ?) :
Que le code VBA puisse tout faire, images et cellules, sans protection
Que, au contraire, l'utilisateur ne puisse accéder qu'aux seules cellules H5:H25

Voili voilà Mais si tu veux je t'envoie bien volontiers le dossier complet .
Cordialement,
Roland

Bonjour,

Mais que veux tu que je t'envoie comme précisions supplémentaires .?

1- ces "shapes" sont des images .Jpg tout à fait quelconques et que je nomme "cible" ou "bonus" en les chargeant ( comme le code VBA te l'indique)
C'est selon le code 0 ou 1, "faux" ou "juste", que VBA lit sur la feuille excel

2- De dossier, il n'y a pas
La feuille ("feuil1)" est une feuille nourrie au départ par VBA, à partir d'un bouton de commande

Mon seul problème est maintenant de placer des images quelconques (ou de les effacer), sur une feuille Excel quelconque mais qui est protégée pour l'utilisateur.

Dis-moi si je peux t'en dire plus pour mieux faire comprendre mon problème.
Eric m'a gentiment dépanné pour la dé-protection VBA de toutes les opérations de type cellules ( Range ou Select, par exemple).
Mais apparemment, cela serait incompatible avec les instructions de type shape().delete

Merci encore
Cordialement
Roland

Bonjour,
Eh bien avec la version 2003 je ne peux pas tester alors je vous conseille d'essayer avec la proposition d'eriiic (poste 19), ce serait un minimum .... Non .... !
Salutations.
Le Pingou

Bonjour,

J'ai pensé (bêtement) que le second prenait la place du premier, le rendant inutile.
Si, si, tu avais bien compris, c'était prévu comme ça.
Tu peux enlever cette partie, ou la laisser si tu crains d'oublier de protéger un jour.

eric