Discussion :

[Nico Co]

Bonjour,

Je débute sur VBA et cherche à sécuriser à minima via des codes VBA les enregistrements afin de ne pas en exécuter sur les fichiers modèles.

En gros les fichiers modèles ont des macros qui aboutissent sur un enregistrement sous en automatique. Mais je ne peux pas empêcher mes collègues de cliquer sur le bouton "Enregistrer" d'Excel. Je ne veux pas n'ont plus l'interdire mais juste m'assurer que la modification soit justifiée.
Par conséquent j'ai cherché à l'aide des forums à modifier le comportement du bouton "Enregistrer" par l'ouverture d'une boite de dialogue qui aboutit sur un enregistrement sous ...
Ainsi lorsque l'on clique sur le bouton "Enregistrer" la macro présente dans ThisWorkBook oriente l'utilisateur vers un enregistrement sous.
Si je ne modifie pas le nom du fichier tout se passe bien. Si je modifie le nom du fichier alors Excel cesse de fonctionner.
Pourtant l'enregistrement s'effectue quand même.

Pouvez-vous m'expliquez pourquoi cela se produit ? Est-il possible à l'aide du code VBA que je souhaite utiliser d'empêcher cette déconnexion Excel indésirable ? Avez-vous une autre solution à me proposer.


Exemple :
-Enregistrement sous ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sub Macro1()
 
Dim chemin As String
chemin = "C:\"
ActiveWorkbook.SaveAs Filename:=chemin & Worksheets(1).[A2].Value
 
End Sub
 
-------------------
 
- Code présent dans la feuille ThisWorkbook
 
'Ce code à pour but d'obliger l'utilisateur à enregistrer sous afin de ne pas modifier le fichier modèle
 
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
 
MsgBox " - ATTENTION - " & Chr(10) & "" & Chr(10) & "Si la demande d'enregistrement fait suite au lancement d'une macro nous vous invitons à cliquer sur OK" & Chr(10) & "" & Chr(10) & "En cas contraire, nous vous informons que vous n'êtes pas autorisés à enregistrer sur le fichier modèle." & Chr(10) & "" & Chr(10) & "Vous allez être redirigés vers un Enregistrement sous ... qui vous permettra de modifier le nom du fichier modèle ou d'écraser votre précédent enregistrement." & Chr(10) & "Cliquer 2 fois sur OK" & Chr(10) & "" & Chr(10) & "Si vous voulez mettre à jour le fichier modèle vous devez désactiver les macros."
 
Application.Dialogs(xlDialogSaveAs).Show
 
 
End Sub
 
'Informe Excel que le fichier a déjà été enregistré (cela évite d'avoir une demande d'enregistrement à la fermeture)
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.ThisWorkbook.Saved = True
End Sub

[parmi]

Bonjour,

Et si tu ouvrais le fichier en lecture seule ?
Seuls ceux qui auraient le mot de passe pourraient l'enregistrer puisqu'en mode écriture.
Les autres ne pourraient que l'enregistrer sous...

Autrement, il y a aussi SaveCopyAs

[Nico Co]

Bonjour,

J'ai pensée à la lecture seul mais ça ne me convient pas.
J'aurais aimé une macro.

Avez-vous une explication sur le fait que Excel cesse de fonctionner et doit redémarrer ?

[clementmarcotte]

Bonjour,

Tu pourrais demander au Service de Dictature Informatique de t'organiser un dossier exclusif pour tes modèles. Ils s'organisent pour que tu sois le seul à avoir des droits en écriture. Les autres, qui n'auraient que des droits en lecture seraient de toutes façons obligés d'enregistrer ailleurs.

[parmi]

Il faudrait voir ce que retourne

Worksheets(1).[A2].Value

[Nico Co]

Bonjour,

Vous pouvez tester avec n'importe qu'elle mot comme "test".

[Invité]

Bonsoir,
les fichier modèles on une extention particulièr (xlt pour 2003) ; ouvre ton fichier modèle et fais eregistre sou et sélectionnes modèle avec macro.

[Nico Co]

Bonjour,

A oui j'ai omis de préciser.
Je travaille sous excel 2010 et les fichiers modèles contenant les macros sont en extension ".xlsm".
Dois-je modifier cette extension pour résoudre la déconnexion indésirable d'excel ?

[Invité]

Tu utilises des fichers exel 2010 ce sont des fichiers classique pas des modèles.

Dans excel il faut faire enregistrer sous et la ou s'affiche l'extention xlsx ou xlsm click sur flèche et choisis modèle avec macro

[Nico Co]

Bonjour,

Oubliez le mot modèle. Je ne l'utilisais pas dans ce sens mais plutôt de le sens initiale, origine, source, type, etc...

Sinon, la modification de l'extension d'enregistrement ne change rien.

Excel cesse toujours de fonctionner. Il doit redémarrer.
Quelqu'un a t il une explication ?

[Invité]

Fichier Image

[Nico Co]

Bonjour,

Le format .xltm protège bien le fichier source et empêche bien excel de cesser de fonctionner.
Par contre je rencontre un souci avec l'enregistrement automatique présente au sein de la macro.
En effet l'enregistrement ne sauvegarde pas les macros. Peut-on aboutir à un enregistrement automatique en ".xlsm" ? Ca m'arrangerait beaucoup.
J'ai essayé d'ajouter - & ".xlsm" ou & ".xltm" - mais ça ne fonctionne pas.
Avez-vous une solution ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub Macro1()
 
Dim chemin As String
chemin = "C:\"
ActiveWorkbook.SaveAs Filename:=chemin & Worksheets(1).[A2].Value
 
End Sub

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveWorkbook.SaveAs Filename:="C:\Users\RDurupt\Documents\Classeur1.xlsm",   FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

[Nico Co]

Merci rdurupt
C'est parfait.
Ça répond à toutes mes attentes.