vba protect

6 réponses
Avatar
isabelle
bonjour à tous,

j'ai un problème pour protéger la feuille "menu" qui contient des formules liées
à un contrôles ListBox1 et Picture
la cellule C5 est liée au ListBox1
le contrôle image est lié par la formule =AdrImage (voir dans gestionnaire
des noms)

les 2 contrôles sont déverrouillés
les cellules sont verrouillées et masquées

http://www.cjoint.com/c/FBzpsAtuxYa

j'ai fais le test avec la macro suivante, mais rien n'y fait

Sub Macro1()
ActiveSheet.Protect Password:="abc", DrawingObjects:=True, Contents:=True,
Scenarios:=True, UserInterfaceOnly:=True
ActiveSheet.EnableSelection = xlUnlockedCells
End Sub

merci! pour votre aide
isabelle

6 réponses

Avatar
isabelle
j'ai oublié de vous dire le principal...
le problème est qu' une fois la feuille protégée il est impossible de faire une
sélection dans le ListBox1
isabelle

Le 2016-02-25 10:27, isabelle a écrit :
bonjour à tous,

j'ai un problème pour protéger la feuille "menu" qui contient des formules liées
à un contrôles ListBox1 et Picture
la cellule C5 est liée au ListBox1
le contrôle image est lié par la formule ­rImage (voir dans gestionnaire
des noms)

les 2 contrôles sont déverrouillés
les cellules sont verrouillées et masquées

http://www.cjoint.com/c/FBzpsAtuxYa

j'ai fais le test avec la macro suivante, mais rien n'y fait

Sub Macro1()
ActiveSheet.Protect Password:="abc", DrawingObjects:=True, Contents:=True,
Scenarios:=True, UserInterfaceOnly:=True
ActiveSheet.EnableSelection = xlUnlockedCells
End Sub

merci! pour votre aide
isabelle
Avatar
Jacky
Bonjour isabelle,

la cellule C5 est liée au ListBox1


Ne pas verouillé la cellule C5

--
Salutations
JJ

isabelle a exposé le 25/02/2016 :
bonjour à tous,

j'ai un problème pour protéger la feuille "menu" qui contient des formules
liées à un contrôles ListBox1 et Picture
la cellule C5 est liée au ListBox1
le contrôle image est lié par la formule ­rImage (voir dans
gestionnaire des noms)

les 2 contrôles sont déverrouillés
les cellules sont verrouillées et masquées

http://www.cjoint.com/c/FBzpsAtuxYa

j'ai fais le test avec la macro suivante, mais rien n'y fait

Sub Macro1()
ActiveSheet.Protect Password:="abc", DrawingObjects:=True, Contents:=True,
Scenarios:=True, UserInterfaceOnly:=True
ActiveSheet.EnableSelection = xlUnlockedCells
End Sub

merci! pour votre aide
isabelle
Avatar
MichD
Bonjour Isabelle,

Si tu lies le contenu d'une cellule au listbox
cela crée le problème que tu rencontres et il n'y a pas
grand-chose à faire...

Mais tu peux faire autrement en utilisant seulement le VBA.
Ton fichier : http://www.cjoint.com/c/FBztCzaCVHX

Il y a une procédure dans le module de la feuille "Menu" et
j'utiliserais une procédure ressemblant à celle du module "MichD"
du projetVBA du classeur. Évidemment, tu peux adapter la plage que
tu veux protéger.


MichD
Avatar
MichD
Si tu veux enlever "On error resume next" dans
la procédure, insère cette ligne de commande
à cette position... c'est préférable!

DoEvents <<<<======
'Appel de la procédure pour insérer l'image
InsérerImage Me.Name, Range("E6:F23")
Avatar
isabelle
salut Jacky,

yes sir, c'est exactement ça,
gros merci! depuis hier que je m'arrachais les cheveux là dessus
big bisou*
isabelle

Le 2016-02-25 11:58, Jacky a écrit :
Bonjour isabelle,

la cellule C5 est liée au ListBox1


Ne pas verouillé la cellule C5

--
Salutations
JJ
Avatar
isabelle
merci Denis,
j'ai déverouillé la cellule liée au ListBox, comme Jacky m'a conseillé,
je l'ai fais comme ça parce que mon ami ne voulait pas de vba dans son fichier.
isabelle

Le 2016-02-25 14:35, MichD a écrit :

Bonjour Isabelle,

Si tu lies le contenu d'une cellule au listbox
cela crée le problème que tu rencontres et il n'y a pas
grand-chose à faire...

Mais tu peux faire autrement en utilisant seulement le VBA.
Ton fichier : http://www.cjoint.com/c/FBztCzaCVHX

Il y a une procédure dans le module de la feuille "Menu" et
j'utiliserais une procédure ressemblant à celle du module "MichD"
du projetVBA du classeur. Évidemment, tu peux adapter la plage que
tu veux protéger.


MichD