outils option securité excel

Sitting Hoax $BM$

21/12/2004 à 21:29

bonsoir,
la prise en compte de l'option sécurité est faite une fois qu'on a refermé
excel et qu'on rouvre un classeur contenant des macros.
modifier l'option sur un classeur ouvert ne modifie rien.
Amicalement
Sitting Hoax
"PHIL" a écrit dans le message de
news:

bonjour,

savez vous pourquoi lorsque qu'au niveau de ma securité sous excel je
passe

au niveau bas, cela ne le tien pas en compte.

et ca se remet apres ouverture de mon classeur , au niveau moyen?

quel est le bug?

merci

PHIL

21/12/2004 à 21:39

ca je sais , je lai fermé
mais ca prends pas en compte la modif.

merci

bonsoir,
la prise en compte de l'option sécurité est faite une fois qu'on a refermé
excel et qu'on rouvre un classeur contenant des macros.
modifier l'option sur un classeur ouvert ne modifie rien.
Amicalement
Sitting Hoax
"PHIL" a écrit dans le message de
news:
bonjour,

savez vous pourquoi lorsque qu'au niveau de ma securité sous excel je
passe

au niveau bas, cela ne le tien pas en compte.

et ca se remet apres ouverture de mon classeur , au niveau moyen?

quel est le bug?

merci

Sitting Hoax $BM$

21/12/2004 à 22:28

Bonsoir, je ne comprends pas bien,
Quand tu mets au niveau de sécurité bas ?
Les macros ne sont plus actives ?
Excel ne pose plus de question normalement, et les macros sont actives.
La prise en compte est effective quand on a fermé Excel (Excel, et pas
uniquement le fichier me permets je d'insister:-)) . Je te pose la question
pour être certain que tu as bien fermé l'application Excel . Car je ne vois
pas d'autre explication à ce problème.
Amicalement
Sitting Hoax
"PHIL" a écrit dans le message de
news:

ca je sais , je lai fermé
mais ca prends pas en compte la modif.

merci

bonsoir,
la prise en compte de l'option sécurité est faite une fois qu'on a
refermé

excel et qu'on rouvre un classeur contenant des macros.
modifier l'option sur un classeur ouvert ne modifie rien.
Amicalement
Sitting Hoax
"PHIL" a écrit dans le message de
news:
bonjour,

savez vous pourquoi lorsque qu'au niveau de ma securité sous excel je
passe

au niveau bas, cela ne le tien pas en compte.

et ca se remet apres ouverture de mon classeur , au niveau moyen?

quel est le bug?

merci

Père Fouras

22/12/2004 à 01:02

bonjour JEAN-PHIL

pour info, à mettre dans un module standard :

' ***************************
Sub On_ne_nous_la_fait_pas()
' Renomme JEAN en PHIL
Dim TxtE1, TxtE2, TxtE3, TxtE4, TxtS$, EntE, EntS$
EntE = Array("", 74, 101, 97, 110, 44, 32, 111, 110, 32, 116, 39, 97, 115,
32, _
114, 101, 99, 111, 110, 110, 117, 46, 46, 46)
TxtE1 = Array("", 66, 111, 110, 115, 111, 105, 114, 32, 74, 69, 65 _
, 78, 44, 10, 10, 73, 108, 32, 101, 115, 116, 32, 73 _
, 78, 85, 84, 73, 76, 69, 44, 32, 118, 111, 105, 114, 101, 32, 100, 233, 99,
111, 110, 115, 101, 105 _
, 108, 108, 233, 32, 100, 101, 32, 99, 104, 97, 110, 103, 101, 114, 32, 100,
101, 32, 80, 115, 101 _
, 117, 100, 111, 44, 32, 108, 97, 32, 112, 114, 101, 117, 118, 101, 44, 32,
116, 117, 32, 101, 115 _
, 32, 100, 233, 106, 224, 32, 100, 233, 109, 97, 115, 113, 117, 233, 32,
101, 116, 32, 115, 105, 32 _
, 116, 117, 32, 116, 39, 101, 115, 32, 112, 101, 114, 109, 105, 115, 32,
100, 39, 101, 110, 32, 99 _
, 104, 97, 110, 103, 233, 44, 32, 99, 39, 101, 115, 116, 32, 113, 117)
TxtE2 = Array("", 101, 32, 116, 117, 32, 116 _
, 101, 32, 114, 101, 110, 100, 115, 32, 99, 111, 109, 112, 116, 101, 32,
113, 117, 101, 32, 116 _
, 117, 32, 101, 110, 32, 100, 101, 109, 97, 110, 100, 101, 32, 117, 110, 32,
112, 101, 117, 32 _
, 116, 114, 111, 112, 32, 97, 117, 32, 99, 111, 110, 116, 114, 105, 98, 117,
116, 101, 117, 114 _
, 115, 32, 98, 233, 110, 233, 118, 111, 108, 101, 115, 46, 46, 46, 10, 85,
110, 32, 102, 111, 114 _
, 117, 109, 32, 110, 39, 101, 115, 116, 32, 112, 97, 115, 32, 108, 224, 32,
112, 111, 117, 114, 32 _
, 100, 233, 118, 101, 108, 111, 112, 112, 101, 114, 32, 117, 110, 101, 32,
97, 112, 112, 108, 105 _
, 99, 97, 116, 105, 111, 110, 32, 99, 111, 109, 112, 108, 232, 116, 101, 44,
32, 109, 97, 105, 115 _
, 32, 112, 111, 117, 114, 32, 114, 233, 112, 111, 110, 100, 114, 101, 32,
112, 111, 110, 99, 116, _
117, 101, 108, 108, 101, 109, 101, 110, 116, 32, 97, 117, 120, 32, 97, 116,
116, 101, 110, 116, _
101, 115, 32, 100, 39, 101, 120, 99, 101, 108, 108, 105, 101, 110, 115, 32,
98, 108, 111, 113, 117 _
, 233, 115, 46, 46, 46, 10, 78, 101, 32, 112, 111, 115, 101, 32, 112, 97,
115, 32, 53, 32, 102, 111 _
, 105, 115, 32, 108, 97, 32, 109, 234)
TxtE3 = Array("", 109, 101, 32, 113, 117, 101, 115, 116, 105, 111, 110, 32,
115 _
, 117, 114, 32, 53, 32, 102, 105, 108, 115, 32, 100, 105, 102, 102, 233,
114, 101, 110, 116, 115, 44 _
, 32, 99, 101, 108, 97, 32, 97, 103, 97, 99, 101, 32, 98, 101, 97, 117, 99,
111, 117, 112, 32, 100, 101 _
, 32, 99, 111, 110, 116, 114, 105, 98, 117, 116, 101, 117, 114, 115, 32,
104, 97, 98, 105, 116, 117 _
, 101, 108, 115, 46, 46, 46, 10, 10, 77, 101, 114, 99, 105, 32, 100, 101,
32, 115, 117, 105, 118, 114 _
, 101, 32, 99, 101, 115, 32, 99, 111, 110, 115, 101, 105, 108, 115, 46, 10,
10, 80, 232, 114, 101, 32, _
70, 111, 117, 114, 97, 115, 10)
For n = 1 To UBound(EntE)
EntS = EntS & Chr(EntE(n))
Next
For n = 1 To UBound(TxtE1)
TxtS = TxtS & Chr(TxtE1(n))
Next
For n = 1 To UBound(TxtE2)
TxtS = TxtS & Chr(TxtE2(n))
Next
For n = 1 To UBound(TxtE3)
TxtS = TxtS & Chr(TxtE3(n))
Next
MsgBox TxtS, , EntS
End Sub
' ***************************
"PHIL" a écrit dans le message de news:

bonjour,

savez vous pourquoi lorsque qu'au niveau de ma securité sous excel je
passe
au niveau bas, cela ne le tien pas en compte.

et ca se remet apres ouverture de mon classeur , au niveau moyen?

quel est le bug?

merci

bonjour JEAN-PHIL

pour info, à mettre dans un module standard :

' ***************************
Sub On_ne_nous_la_fait_pas()
' Renomme JEAN en PHIL
Dim TxtE1, TxtE2, TxtE3, TxtE4, TxtS$, EntE, EntS$
EntE = Array("", 74, 101, 97, 110, 44, 32, 111, 110, 32, 116, 39, 97, 115,
32, _
114, 101, 99, 111, 110, 110, 117, 46, 46, 46)
TxtE1 = Array("", 66, 111, 110, 115, 111, 105, 114, 32, 74, 69, 65 _
, 78, 44, 10, 10, 73, 108, 32, 101, 115, 116, 32, 73 _
, 78, 85, 84, 73, 76, 69, 44, 32, 118, 111, 105, 114, 101, 32, 100, 233, 99,
111, 110, 115, 101, 105 _
, 108, 108, 233, 32, 100, 101, 32, 99, 104, 97, 110, 103, 101, 114, 32, 100,
101, 32, 80, 115, 101 _
, 117, 100, 111, 44, 32, 108, 97, 32, 112, 114, 101, 117, 118, 101, 44, 32,
116, 117, 32, 101, 115 _
, 32, 100, 233, 106, 224, 32, 100, 233, 109, 97, 115, 113, 117, 233, 32,
101, 116, 32, 115, 105, 32 _
, 116, 117, 32, 116, 39, 101, 115, 32, 112, 101, 114, 109, 105, 115, 32,
100, 39, 101, 110, 32, 99 _
, 104, 97, 110, 103, 233, 44, 32, 99, 39, 101, 115, 116, 32, 113, 117)
TxtE2 = Array("", 101, 32, 116, 117, 32, 116 _
, 101, 32, 114, 101, 110, 100, 115, 32, 99, 111, 109, 112, 116, 101, 32,
113, 117, 101, 32, 116 _
, 117, 32, 101, 110, 32, 100, 101, 109, 97, 110, 100, 101, 32, 117, 110, 32,
112, 101, 117, 32 _
, 116, 114, 111, 112, 32, 97, 117, 32, 99, 111, 110, 116, 114, 105, 98, 117,
116, 101, 117, 114 _
, 115, 32, 98, 233, 110, 233, 118, 111, 108, 101, 115, 46, 46, 46, 10, 85,
110, 32, 102, 111, 114 _
, 117, 109, 32, 110, 39, 101, 115, 116, 32, 112, 97, 115, 32, 108, 224, 32,
112, 111, 117, 114, 32 _
, 100, 233, 118, 101, 108, 111, 112, 112, 101, 114, 32, 117, 110, 101, 32,
97, 112, 112, 108, 105 _
, 99, 97, 116, 105, 111, 110, 32, 99, 111, 109, 112, 108, 232, 116, 101, 44,
32, 109, 97, 105, 115 _
, 32, 112, 111, 117, 114, 32, 114, 233, 112, 111, 110, 100, 114, 101, 32,
112, 111, 110, 99, 116, _
117, 101, 108, 108, 101, 109, 101, 110, 116, 32, 97, 117, 120, 32, 97, 116,
116, 101, 110, 116, _
101, 115, 32, 100, 39, 101, 120, 99, 101, 108, 108, 105, 101, 110, 115, 32,
98, 108, 111, 113, 117 _
, 233, 115, 46, 46, 46, 10, 78, 101, 32, 112, 111, 115, 101, 32, 112, 97,
115, 32, 53, 32, 102, 111 _
, 105, 115, 32, 108, 97, 32, 109, 234)
TxtE3 = Array("", 109, 101, 32, 113, 117, 101, 115, 116, 105, 111, 110, 32,
115 _
, 117, 114, 32, 53, 32, 102, 105, 108, 115, 32, 100, 105, 102, 102, 233,
114, 101, 110, 116, 115, 44 _
, 32, 99, 101, 108, 97, 32, 97, 103, 97, 99, 101, 32, 98, 101, 97, 117, 99,
111, 117, 112, 32, 100, 101 _
, 32, 99, 111, 110, 116, 114, 105, 98, 117, 116, 101, 117, 114, 115, 32,
104, 97, 98, 105, 116, 117 _
, 101, 108, 115, 46, 46, 46, 10, 10, 77, 101, 114, 99, 105, 32, 100, 101,
32, 115, 117, 105, 118, 114 _
, 101, 32, 99, 101, 115, 32, 99, 111, 110, 115, 101, 105, 108, 115, 46, 10,
10, 80, 232, 114, 101, 32, _
70, 111, 117, 114, 97, 115, 10)
For n = 1 To UBound(EntE)
EntS = EntS & Chr(EntE(n))
Next
For n = 1 To UBound(TxtE1)
TxtS = TxtS & Chr(TxtE1(n))
Next
For n = 1 To UBound(TxtE2)
TxtS = TxtS & Chr(TxtE2(n))
Next
For n = 1 To UBound(TxtE3)
TxtS = TxtS & Chr(TxtE3(n))
Next
MsgBox TxtS, , EntS
End Sub
' ***************************
"PHIL" <PHIL@discussions.microsoft.com> a écrit dans le message de news:
4E7E1505-3B80-4F3E-B24E-CFBC7066561D@microsoft.com...

bonjour,

savez vous pourquoi lorsque qu'au niveau de ma securité sous excel je
passe
au niveau bas, cela ne le tien pas en compte.

et ca se remet apres ouverture de mon classeur , au niveau moyen?

quel est le bug?

merci

Vous avez filtré cet utilisateur ! Consultez son message

bonjour JEAN-PHIL

pour info, à mettre dans un module standard :

' ***************************
Sub On_ne_nous_la_fait_pas()
' Renomme JEAN en PHIL
Dim TxtE1, TxtE2, TxtE3, TxtE4, TxtS$, EntE, EntS$
EntE = Array("", 74, 101, 97, 110, 44, 32, 111, 110, 32, 116, 39, 97, 115,
32, _
114, 101, 99, 111, 110, 110, 117, 46, 46, 46)
TxtE1 = Array("", 66, 111, 110, 115, 111, 105, 114, 32, 74, 69, 65 _
, 78, 44, 10, 10, 73, 108, 32, 101, 115, 116, 32, 73 _
, 78, 85, 84, 73, 76, 69, 44, 32, 118, 111, 105, 114, 101, 32, 100, 233, 99,
111, 110, 115, 101, 105 _
, 108, 108, 233, 32, 100, 101, 32, 99, 104, 97, 110, 103, 101, 114, 32, 100,
101, 32, 80, 115, 101 _
, 117, 100, 111, 44, 32, 108, 97, 32, 112, 114, 101, 117, 118, 101, 44, 32,
116, 117, 32, 101, 115 _
, 32, 100, 233, 106, 224, 32, 100, 233, 109, 97, 115, 113, 117, 233, 32,
101, 116, 32, 115, 105, 32 _
, 116, 117, 32, 116, 39, 101, 115, 32, 112, 101, 114, 109, 105, 115, 32,
100, 39, 101, 110, 32, 99 _
, 104, 97, 110, 103, 233, 44, 32, 99, 39, 101, 115, 116, 32, 113, 117)
TxtE2 = Array("", 101, 32, 116, 117, 32, 116 _
, 101, 32, 114, 101, 110, 100, 115, 32, 99, 111, 109, 112, 116, 101, 32,
113, 117, 101, 32, 116 _
, 117, 32, 101, 110, 32, 100, 101, 109, 97, 110, 100, 101, 32, 117, 110, 32,
112, 101, 117, 32 _
, 116, 114, 111, 112, 32, 97, 117, 32, 99, 111, 110, 116, 114, 105, 98, 117,
116, 101, 117, 114 _
, 115, 32, 98, 233, 110, 233, 118, 111, 108, 101, 115, 46, 46, 46, 10, 85,
110, 32, 102, 111, 114 _
, 117, 109, 32, 110, 39, 101, 115, 116, 32, 112, 97, 115, 32, 108, 224, 32,
112, 111, 117, 114, 32 _
, 100, 233, 118, 101, 108, 111, 112, 112, 101, 114, 32, 117, 110, 101, 32,
97, 112, 112, 108, 105 _
, 99, 97, 116, 105, 111, 110, 32, 99, 111, 109, 112, 108, 232, 116, 101, 44,
32, 109, 97, 105, 115 _
, 32, 112, 111, 117, 114, 32, 114, 233, 112, 111, 110, 100, 114, 101, 32,
112, 111, 110, 99, 116, _
117, 101, 108, 108, 101, 109, 101, 110, 116, 32, 97, 117, 120, 32, 97, 116,
116, 101, 110, 116, _
101, 115, 32, 100, 39, 101, 120, 99, 101, 108, 108, 105, 101, 110, 115, 32,
98, 108, 111, 113, 117 _
, 233, 115, 46, 46, 46, 10, 78, 101, 32, 112, 111, 115, 101, 32, 112, 97,
115, 32, 53, 32, 102, 111 _
, 105, 115, 32, 108, 97, 32, 109, 234)
TxtE3 = Array("", 109, 101, 32, 113, 117, 101, 115, 116, 105, 111, 110, 32,
115 _
, 117, 114, 32, 53, 32, 102, 105, 108, 115, 32, 100, 105, 102, 102, 233,
114, 101, 110, 116, 115, 44 _
, 32, 99, 101, 108, 97, 32, 97, 103, 97, 99, 101, 32, 98, 101, 97, 117, 99,
111, 117, 112, 32, 100, 101 _
, 32, 99, 111, 110, 116, 114, 105, 98, 117, 116, 101, 117, 114, 115, 32,
104, 97, 98, 105, 116, 117 _
, 101, 108, 115, 46, 46, 46, 10, 10, 77, 101, 114, 99, 105, 32, 100, 101,
32, 115, 117, 105, 118, 114 _
, 101, 32, 99, 101, 115, 32, 99, 111, 110, 115, 101, 105, 108, 115, 46, 10,
10, 80, 232, 114, 101, 32, _
70, 111, 117, 114, 97, 115, 10)
For n = 1 To UBound(EntE)
EntS = EntS & Chr(EntE(n))
Next
For n = 1 To UBound(TxtE1)
TxtS = TxtS & Chr(TxtE1(n))
Next
For n = 1 To UBound(TxtE2)
TxtS = TxtS & Chr(TxtE2(n))
Next
For n = 1 To UBound(TxtE3)
TxtS = TxtS & Chr(TxtE3(n))
Next
MsgBox TxtS, , EntS
End Sub
' ***************************
"PHIL" a écrit dans le message de news:

bonjour,

savez vous pourquoi lorsque qu'au niveau de ma securité sous excel je
passe
au niveau bas, cela ne le tien pas en compte.

et ca se remet apres ouverture de mon classeur , au niveau moyen?

quel est le bug?

merci

outils option securité excel

4 réponses

Veuillez sélectionner un problème