Changer la touche maj pour désactiver le démarrage d'une macro

mdo100 · Janvier 18, 2017, 11:23

Bonsoir CMa, toutes et tous,
Bonsoir DocteurExcel,

CMa, J’intégrerais le code comme ceci:

'*** In the ThisWorkbook Module ***`			
		
Private Sub Workbook_WindowActivate(ByVal Wn As Window)			
			
'À l'ouverture du classeur, masque le ruban			
Application.DisplayFullScreen = True			
'À l'ouverture du classeur, masque les titres			
ActiveWindow.DisplayHeadings = False			
'A l'ouverture du classeur, masque les onglets			
ActiveWindow.DisplayWorkbookTabs = False			
			
End Sub			
			
Private Sub Workbook_Activate()			
Call ToggleCutCopyAndPaste(False)			
End Sub			
			
Private Sub Workbook_BeforeClose(Cancel As Boolean)			
Sheets("Invisible sans macros").Visible = 2			
   'A la fermeture du fichier, cacher tous les onglets			
Call ToggleCutCopyAndPaste(True)			
			
'Restaurer le ruban			
Application.WindowState = xlNormal			
'Restaurer les titres			
ActiveWindow.DisplayHeadings = True			
'Restaurer les onglets			
ActiveWindow.DisplayWorkbookTabs = True			
			
End Sub			
			
Private Sub Workbook_Deactivate()			
Call ToggleCutCopyAndPaste(True)			
End Sub			
			
Private Sub Workbook_Open()			
    Sheets("Invisible sans macros").Visible = -1			
    'A l'ouverture du fichier, afficher les onglets			
Call ToggleCutCopyAndPaste(False)			
End Sub

Même conseil, fait d’abord un essai sur un fichier test.
DocteurExcel, me corrigera, si j’ai fais une erreur.

Pour le reste suis les conseils du début de DocteurExcel
Voici comment procéder pour créer un tel fichier:

•Dans l’éditeur VBE ( Alt + F11) , cacher toutes les feuilles du fichier en leur affectant la propriété xlSheetVeryHidden dans le menu propriétés (raccourci F4 pour l’afficher)

•Ajouter une page de garde avec un message demandant d’activer les macros

Bonne nuit

Cordialement.