Empecher la commande enregistrer sous

Bonjour Gigi,
Désolé de te décevoir, mon message est juste pour te dire que je suis
également interrésé. Mon problème vient du fait que j'utilise un dongle de
protection d'acces. Si tu regarde mes questions elles concernent
l'élaboration d'un message (ne marche toujours pas ).
Cette configuration avec double classeur m'a obligé à prévoir un quitter
avec ou sans sauvegarde par macro. Le clic sur la croix quitte ou fichier
quitter plante.
Double merci donc à celui qui trouvera la solution
Claude



"Gigi" <Gigi@discussions.microsoft.com> a écrit dans le message de
news:2EFC4809-6988-4B20-8308-34F0EAAE52B2@microsoft.com...

Bonjour,

J'aimerais forcer l'utilisateur à utiliser un bouton 'Sauvegarder' mis en
place et ainsi l'empêcher d'utiliser la commande 'Enregistrer sous' du
menu....
Comment puis-je procéder sans masquer cette barre...
L'idéal serait qu'au moment ou l'utilisateur clique sur enregistrer sous
un

message s'affiche en lui disant d'utiliser le bouton mis en place...

Y a t-il une solution ?

merci bcp
gigi

Bonjour

En plaçant le code suivant dans le module du classeur ( généralement
ThisWorkbook )
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
If SaveAsUI = True Then
MsgBox "Vous ne pouvez pas utiliser ""Enregistrer sous"" pour ce
document.", _
vbOKOnly + vbExclamation, "Erreur de sauvegarde"
Cancel = True
End If
End Sub

Cela devrait fonctionner. Attention! Il faut avoir enregistré le classeur au
moins une fois avant d'insérer la macro, sinon il est impossible
d'enregistrer le classeur, puisque le premier "enregistrer" est transformé
en "enregistrer sous..."

Cela convient-il?


--
Pierre Fauconnier (pierre.fauconnier@nospam.nospam)
Les sept laids tuent ( Lewis Carol )
Remplacez nospam.nospam par pfi.be pour répondre. Merci

"Gigi" <Gigi@discussions.microsoft.com> a écrit dans le message de
news:2EFC4809-6988-4B20-8308-34F0EAAE52B2@microsoft.com...

Bonjour,

J'aimerais forcer l'utilisateur à utiliser un bouton 'Sauvegarder' mis en
place et ainsi l'empêcher d'utiliser la commande 'Enregistrer sous' du
menu....
Comment puis-je procéder sans masquer cette barre...
L'idéal serait qu'au moment ou l'utilisateur clique sur enregistrer sous
un

message s'affiche en lui disant d'utiliser le bouton mis en place...

Y a t-il une solution ?

merci bcp
gigi

Bonjour,
Je n'ai pas autan de chances. Ne t'inquiète pas Pierre j'ai un problème avec
le fait que j'ai 2 fichiers avec un auto open etc.
La commande semble bloquer sur fichier qui se ferme tout seul en cascade.
Je vais donc chercher encore, mais tu m'as donné la première partie de la
solution.
J'ai quand même 2 refus de syntaxe
Le underscore Workbook_BeforeSave doit être supprimé
ainsi que le underscore et la virguel après "pour ce document.",_
Et je n'ai pas de message ?
J'ai malheureusement pas le temps de poursuivre tout de suite.
Je redonnerai des nouvelles sur le fil plus tard.

Merci
Claude



"Gigi" <Gigi@discussions.microsoft.com> a écrit dans le message de
news:88184233-F8F7-404D-BD10-216AF506F68E@microsoft.com...

Je ne sais pas pour Claude mais pour moi c'est parfait, c'est exactement
la

fonction que je recherchais.

Merci beaucoup
Gigi

Bonjour

En plaçant le code suivant dans le module du classeur ( généralement
ThisWorkbook )
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
If SaveAsUI = True Then
MsgBox "Vous ne pouvez pas utiliser ""Enregistrer sous"" pour ce
document.", _
vbOKOnly + vbExclamation, "Erreur de sauvegarde"
Cancel = True
End If
End Sub

Cela devrait fonctionner. Attention! Il faut avoir enregistré le
classeur au

moins une fois avant d'insérer la macro, sinon il est impossible
d'enregistrer le classeur, puisque le premier "enregistrer" est
transformé

en "enregistrer sous..."

Cela convient-il?


--
Pierre Fauconnier (pierre.fauconnier@nospam.nospam)
Les sept laids tuent ( Lewis Carol )
Remplacez nospam.nospam par pfi.be pour répondre. Merci

"Gigi" <Gigi@discussions.microsoft.com> a écrit dans le message de
news:2EFC4809-6988-4B20-8308-34F0EAAE52B2@microsoft.com...

Bonjour,

J'aimerais forcer l'utilisateur à utiliser un bouton 'Sauvegarder' mis
en

place et ainsi l'empêcher d'utiliser la commande 'Enregistrer sous' du
menu....
Comment puis-je procéder sans masquer cette barre...
L'idéal serait qu'au moment ou l'utilisateur clique sur enregistrer
sous

un

message s'affiche en lui disant d'utiliser le bouton mis en place...

Y a t-il une solution ?

merci bcp
gigi