Comment obliger à quitter le fichier en passant.....

Fred0o

XLDnaute Barbatruc

• 11 Novembre 2012

• #2

Re : Comment obliger à quitter le fichier en passant.....

Bonjour toune21,

Voici les 2 macros à mettre dans le module de ThisWorkbook :

VB:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    ActiveWorkbook.SaveAs "C:\sauv_2013\2013.xlsm"
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If SaveAsUI = True Then Cancel = True
End Sub

Attention, si l'utilisateur désactive les macros, il fera ce qu'il veut.

A+

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 11 Novembre 2012

• #3

Re : Comment obliger à quitter le fichier en passant.....

Bonjour à tous

Je plussoie aux propos de FreD0o (que je salue au passage)
Excel a dès ses origines été marabouté par un esprit soixante-huitard qui répétait en boucle:
"Il est interdit d'interdire"
C'est pour cela que toute tentative de protection avec Excel est quasi-illusoire (sauf peut-être avec XL 2010? à voir )
PS: Avec internet, le nombre d'utilisateurs "béotiens" d'Excel se réduit (en tout cas devrait se réduire), donc tout le monde finira par savoir comment ouvrir un classeur sans activer les macros et comment outrepasser ses protections.
NB: Un clic-droit dans Windows sur un fichier Excel -> Envoyer vers n'est pas empêché par la macro, donc la personne peut enregistrer le fichier ailleurs que dans le répertoire sauv_2013.

 

Vote positif 0 Vote négatif

T

toune21

XLDnaute Impliqué

• 11 Novembre 2012

• #4

Re : Comment obliger à quitter le fichier en passant.....

Bonjour Fred0o,

Merci Fred0o,
Il faudrait peut être que je lui mette un petit message.

Staple1600 à dit:

NB: Un clic-droit dans Windows sur un fichier Excel -> Envoyer vers n'est pas empêché par la macro, donc la personne peut enregistrer le fichier ailleurs que dans le répertoire sauv_2013.

Cliquez pour agrandir...

Bonjour JM,
Effectivement la réflexion est très bonne, donc il faudrait un message et un bouton pour lui demander de sauvegarder dans sauv_2013 avant de quitter son dossier, ce serait plus sympa, vous croyez pas !

Alors pouvez vous me faire ce petit bout de code SVP je le demande tout bas,

Merci à tous les deux.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 11 Novembre 2012

• #5

Re : Comment obliger à quitter le fichier en passant.....

Re


Si ton utilisateur final n'est pas mu par de mauvaises intentions, le code proposé par FreD0o suffit.

Pour le reste, Excel ne peut pas restreindre l'utilisation de Windows (sauf à s'embarquer dans un truc de ouf)

 

Vote positif 0 Vote négatif

T

toune21

XLDnaute Impliqué

• 11 Novembre 2012

• #6

Re : Comment obliger à quitter le fichier en passant.....

Merci à tous,
Bon appétit
MM

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 11 Novembre 2012

• #7

Re : Comment obliger à quitter le fichier en passant.....

Bonjour,
Une manière d'obliger l'utilisateur à activer les macros
mdp : kjin
A+
kjin

 

Pièces jointes

• tourne.xls

  27.5 KB · Affichages: 51
• tourne.xls

  27.5 KB · Affichages: 50
• tourne.xls

  27.5 KB · Affichages: 56

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 11 Novembre 2012

• #8

Re : Comment obliger à quitter le fichier en passant.....

Re

kjin:
presque obliger l'utilisateur néophyte car il peut toujours répondre non au message d'activation des macros.
(et on peut toujours ouvrir sans activer les macros etc...)
et on reste impuissant au clic-droit dans l'explorateur Windows (voir mon précédent message)
PS: Tu as vu la nouvelle charade

 

Dernière édition: 11 Novembre 2012

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 11 Novembre 2012

• #9

Re : Comment obliger à quitter le fichier en passant.....

Re, maître charadatiroiriste,

Staple1600 à dit:

obliger l'utilisateur néophyte oui
(mais on peut ouvrir sans activer les macros etc...)

Cliquez pour agrandir...

Certe on peut ouvrir mais pas sans servir, sauf à prendre des substances illicites 😀

PS : Oui, j'ai bien vu la dernière, et je cherche, je cherche...et je sèche, je sèche....

A+
kjin

 

Vote positif 0 Vote négatif