Macro enregistrer

Bonjour le forum,

J'ai crée une macro avec un bouton bien défini pour pouvoir enregistrer mon classeur pour plusieurs utilisateur,

le problème ,c'est qu'il utilise les boutons du menu ou crtl s pour enregistrer me métant le pagaille dans le reste du classeur!!!

Ma maacro est la suivante :

Sub Sauvegarde_agent_001()

'

' Sauvegarde_agent_001 Macro

'

Sheets("001").Select

ActiveWindow.SelectedSheets.Visible = False

Sheets("Accueil ").Select

ChDir "M:\DOP DT\Bases Techniques \COMPTEUR HORAIRE AGENTS\Semainier divers groupes\2012"

ActiveWorkbook.SaveAs Filename:= _

"M:\DOP DT\Bases Techniques \COMPTEUR HORAIRE AGENTS\Semainier divers groupes\2012\Semaine " & Range("C7").Value & ".xlsm", _

FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

MsgBox "Le dossier est sauvegardé !"

End Sub

Voilà cette macro, quelqu'un peut m'aider à désactiver les commandes enregister...

Merci d'avance à tous

Bonjour,

regarde le raccourci suivant:

https://www.excel-pratique.com/fr/astuces_vba/empecher_enregistrement_fichier.php

Il peut répondre à ta question.

Cordialement.

Bonjour,

Dans le gestionnaire de Fichier VBA : Double-Cliquer sur ThisWorkook et coller la macro suivante :

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

A+

Merci pour vos ,mais c'est pas trop le but recherché!!

Avec cette méthode je ne peu pu du tout enregistrer... et moi je voudrais enregistrer mais pas avec les boutons du menu "enregistrer,enregistrer sous" , mais avec une image à laquelle est affecté la macro et seulement avec image.

Merci pour votre aide

Sorry... Un peu de distraction !

En plus de la macro indiquée modifier ta macro comme suit :

Sub Sauvegarde_agent_001()
On Error GoTo GESTERR
Application.EnableEvents = False
   Sheets("001").Select
   ActiveWindow.SelectedSheets.Visible = False
   Sheets("Accueil ").Select
   ChDir "M:\DOP DT\Bases Techniques \COMPTEUR HORAIRE AGENTS\Semainier divers groupes\2012"
   ActiveWorkbook.SaveAs Filename:= _
   "M:\DOP DT\Bases Techniques \COMPTEUR HORAIRE AGENTS\Semainier divers groupes\2012\Semaine " & Range("C7").Value & ".xlsm", _
   FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
Application.EnableEvents = True
   MsgBox "Le dossier est sauvegardé !"
Exit Sub
GESTERR:
Application.EnableEvents = True
End Sub

Bonne soirée.

A+

Bonsoir

Pour info:

'Désactive le raccourci clavier Ctrl+S,
'Application.OnKey "s^", ""

Rétabli le raccourci clavier Ctrl+S
'Application.OnKey "", "s^"

Cdlt