rendre inactif le menu "Outils/Options..." dans Excel
42 réponses
JPhL
La question se trouve dans le sujet... Est-t-il possible=20
de rendre inactif le menu "Outils/Options..." dans Excel=20
afin qu'un utilisatuer autre que le r=E9alisateur du=20
classeur Excel ne puisse modifier quoi que se soit dans=20
ce menu ?
J'ai tout compris ! Je ne touche plus a rien... Tout fonctionne au poil... Et merci encore... Et à charge de revanche, quand j'aurai fait des progrès... ;-D
-----Message d'origine----- bonjour JPhL si tout marche, tu ne touches surtout plus!!! quant à ta question : "si tu (es) en xl2K et +" signifie "si tu es
équipé de excel 2000 ou +" ; en effet, à chaque nouvelle version d'excel
peuvent se rajouter des fonctions qui ne fonctionneraient pas si tu
étais, comme je le suis, avec excel 97... verstanden auch? à + jps
JPhL a écrit:
Bon, j'ai fait tout qu'st ce qu'on m'a dit pour certifier les macros. Et bien sûr, ca marche ! Je n'en ai
jamais douté ! Par contre, pour ma culture perso, qu'est
ce que ça veut dire : "si tu en xl2k ou +"...
-----Message d'origine----- Merci à tout le monde pour ces conseils zavisés... Et désolé d'avoir réveiller chez certains de vielles querelles...
Encore merci...
JPhL
-----Message d'origine-----
moi car l'évènement Scude
Tu pourrais demander à LL de l'ajouter à "ton" module
de
classe.
P.S. Pour ceux qui auraient "oublié" cet événement
inoubliable:
http://www.excelabo.net/mpfe/lecon1.htm
.
.
.
J'ai tout compris ! Je ne touche plus a rien... Tout
fonctionne au poil... Et merci encore... Et à charge de
revanche, quand j'aurai fait des progrès... ;-D
-----Message d'origine-----
bonjour JPhL
si tout marche, tu ne touches surtout plus!!!
quant à ta question : "si tu (es) en xl2K et +"
signifie "si tu es
équipé de excel 2000 ou +" ; en effet, à chaque nouvelle
version d'excel
peuvent se rajouter des fonctions qui ne
fonctionneraient pas si tu
étais, comme je le suis, avec excel 97...
verstanden auch?
à +
jps
JPhL a écrit:
Bon, j'ai fait tout qu'st ce qu'on m'a dit pour
certifier les macros. Et bien sûr, ca marche ! Je n'en
ai
jamais douté ! Par contre, pour ma culture perso,
qu'est
ce que ça veut dire : "si tu en xl2k ou +"...
-----Message d'origine-----
Merci à tout le monde pour ces conseils zavisés... Et
désolé d'avoir réveiller chez certains de vielles
querelles...
Encore merci...
JPhL
-----Message d'origine-----
moi car l'évènement Scude
Tu pourrais demander à LL de l'ajouter à "ton" module
de
classe.
P.S. Pour ceux qui auraient "oublié" cet événement
J'ai tout compris ! Je ne touche plus a rien... Tout fonctionne au poil... Et merci encore... Et à charge de revanche, quand j'aurai fait des progrès... ;-D
-----Message d'origine----- bonjour JPhL si tout marche, tu ne touches surtout plus!!! quant à ta question : "si tu (es) en xl2K et +" signifie "si tu es
équipé de excel 2000 ou +" ; en effet, à chaque nouvelle version d'excel
peuvent se rajouter des fonctions qui ne fonctionneraient pas si tu
étais, comme je le suis, avec excel 97... verstanden auch? à + jps
JPhL a écrit:
Bon, j'ai fait tout qu'st ce qu'on m'a dit pour certifier les macros. Et bien sûr, ca marche ! Je n'en ai
jamais douté ! Par contre, pour ma culture perso, qu'est
ce que ça veut dire : "si tu en xl2k ou +"...
-----Message d'origine----- Merci à tout le monde pour ces conseils zavisés... Et désolé d'avoir réveiller chez certains de vielles querelles...
Encore merci...
JPhL
-----Message d'origine-----
moi car l'évènement Scude
Tu pourrais demander à LL de l'ajouter à "ton" module
de
classe.
P.S. Pour ceux qui auraient "oublié" cet événement
inoubliable:
http://www.excelabo.net/mpfe/lecon1.htm
.
.
.
isabelle
bonjour JPhL,
pour avoir la liste de tout les controls, voici une exemple :
Sub Infos_CommandBars() On Error Resume Next Dim cb As CommandBar Worksheets.Add [A1] = "ID": [B1] = "Nom Local": [C1] = "VBA name" [D1] = "Control ID": [E1] = "Control caption" I = 2 With ActiveSheet For Each cb In CommandBars For Each c In cb.Controls .Cells(I, 1).Value = cb.ID .Cells(I, 2).Value = cb.NameLocal .Cells(I, 3).Value = cb.Name .Cells(I, 4).Value = c.ID .Cells(I, 5).Value = c.Caption I = I + 1 Next c Next cb Range("A:F").Columns.AutoFit End With End Sub
isabelle
Bon, j'ai fait tout qu'st ce qu'on m'a dit pour certifier les macros. Et bien sûr, ca marche ! Je n'en ai jamais douté ! Par contre, pour ma culture perso, qu'est ce que ça veut dire : "si tu en xl2k ou +"...
-----Message d'origine----- Merci à tout le monde pour ces conseils zavisés... Et désolé d'avoir réveiller chez certains de vielles querelles...
Encore merci...
JPhL
-----Message d'origine-----
moi car l'évènement Scude
Tu pourrais demander à LL de l'ajouter à "ton" module de
classe.
P.S. Pour ceux qui auraient "oublié" cet événement inoubliable:
http://www.excelabo.net/mpfe/lecon1.htm
.
.
bonjour JPhL,
pour avoir la liste de tout les controls, voici une exemple :
Sub Infos_CommandBars()
On Error Resume Next
Dim cb As CommandBar
Worksheets.Add
[A1] = "ID": [B1] = "Nom Local": [C1] = "VBA name"
[D1] = "Control ID": [E1] = "Control caption"
I = 2
With ActiveSheet
For Each cb In CommandBars
For Each c In cb.Controls
.Cells(I, 1).Value = cb.ID
.Cells(I, 2).Value = cb.NameLocal
.Cells(I, 3).Value = cb.Name
.Cells(I, 4).Value = c.ID
.Cells(I, 5).Value = c.Caption
I = I + 1
Next c
Next cb
Range("A:F").Columns.AutoFit
End With
End Sub
isabelle
Bon, j'ai fait tout qu'st ce qu'on m'a dit pour
certifier les macros. Et bien sûr, ca marche ! Je n'en ai
jamais douté ! Par contre, pour ma culture perso, qu'est
ce que ça veut dire : "si tu en xl2k ou +"...
-----Message d'origine-----
Merci à tout le monde pour ces conseils zavisés... Et
désolé d'avoir réveiller chez certains de vielles
querelles...
Encore merci...
JPhL
-----Message d'origine-----
moi car l'évènement Scude
Tu pourrais demander à LL de l'ajouter à "ton" module
de
classe.
P.S. Pour ceux qui auraient "oublié" cet événement
inoubliable:
pour avoir la liste de tout les controls, voici une exemple :
Sub Infos_CommandBars() On Error Resume Next Dim cb As CommandBar Worksheets.Add [A1] = "ID": [B1] = "Nom Local": [C1] = "VBA name" [D1] = "Control ID": [E1] = "Control caption" I = 2 With ActiveSheet For Each cb In CommandBars For Each c In cb.Controls .Cells(I, 1).Value = cb.ID .Cells(I, 2).Value = cb.NameLocal .Cells(I, 3).Value = cb.Name .Cells(I, 4).Value = c.ID .Cells(I, 5).Value = c.Caption I = I + 1 Next c Next cb Range("A:F").Columns.AutoFit End With End Sub
isabelle
Bon, j'ai fait tout qu'st ce qu'on m'a dit pour certifier les macros. Et bien sûr, ca marche ! Je n'en ai jamais douté ! Par contre, pour ma culture perso, qu'est ce que ça veut dire : "si tu en xl2k ou +"...
-----Message d'origine----- Merci à tout le monde pour ces conseils zavisés... Et désolé d'avoir réveiller chez certains de vielles querelles...
Encore merci...
JPhL
-----Message d'origine-----
moi car l'évènement Scude
Tu pourrais demander à LL de l'ajouter à "ton" module de
classe.
P.S. Pour ceux qui auraient "oublié" cet événement inoubliable: