Suspendre macro

Bonjour à tous,

Je travail sur un fichier dans lequel existe une macro qui désactive la possibilité de faire des copier/coller (voir ci-dessous Macro1 : j'avais recopié ce code sur le forum de mémoire).

Toutefois aujourd'hui j'écris une nouvelle macro qui nécessite de pouvoir faire une copie, donc ma première macro me bloque.

Est-il possible de suspendre la 1ère macro pendant l'exécution de la seconde, où même d'arrêter totalement la première macro pendant l'exécution de la seconde et la redémarrer pendant l'exécution d'une troisième ?

Merci pour votre aide car je suis trop novice sur le sujet et là je seiche.

Macro1 :

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

'Interdit le collage sur la même feuille que celle qui a servi à faire la copie

Application.CutCopyMode = False

End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)

'Active la possibilité de collage

Application.CutCopyMode = True

Dim oCtrl As Office.CommandBarControl

For Each oCtrl In Application.CommandBars.FindControls(ID:=21)

oCtrl.Enabled = True

Next oCtrl

For Each oCtrl In Application.CommandBars.FindControls(ID:=19)

oCtrl.Enabled = True

Next oCtrl

End Sub

application.enableevents=False

'code

application.enableevents=True

Ca marche,

J'ai galéré un peu pour trouver la syntaxe mais ça y est.

Merci beaucoup.

Fred

Rechercher des sujets similaires à "suspendre macro"