association de macros

Re : association de macros

Bonjour gilrennais,

peut-être, mais comme je ne connais pas le code de chacune des macros à "fusionner"...

Re : association de macros

Bonjour Toto,
Veux-tu que je te les joigne?

Re : association de macros

Bonjour gilrennais,

joins les sur le fil, que nous puissions tous participer 😉

Re : association de macros

Voila donc la 1ere macro, qui oblige à activer les macros à l'ouverture du fichier.
Elle se trouve dans Thisworkbook d'un fichier de 13 feuilles (1 par mois, plus la feuil1 qui contient le message disant qu'il faut obligatoirement activer les macros).

Private Sub Workbook_Open()
Dim i As Integer
For i = 2 To Sheets.Count
Sheets(i).Visible = True 'affiche toutes les feuilles
Next
Sheets(1).Visible = xlVeryHidden 'masque la 1ère feuille

End Sub



Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim i As Integer
Sheets(1).Visible = True 'affiche la 1ère feuille
For i = 2 To Sheets.Count
Sheets(i).Visible = xlSheetVeryHidden 'masque les autres feuilles
Next
'Application.ScreenUpdating = False
'ThisWorkbook.Save 'enregistre le fichier
'Application.ScreenUpdating = True

End Sub

Toute seule, elle fonctionne très bien.
Je veux ensuite supprimer le droit au Copier, Coller, CTRL+C, CTRL+V.
Voici une macro qui fonctionne aussi quand elle est seule dans Thisworkbook.


'*** In a standard module ***
Option Explicit

Sub ToggleCutCopyAndPaste(Allow As Boolean)
'Activate/deactivate cut, copy, paste and pastespecial menu items
Call EnableMenuItem(21, Allow) ' cut
Call EnableMenuItem(19, Allow) ' copy
Call EnableMenuItem(22, Allow) ' paste
Call EnableMenuItem(755, Allow) ' pastespecial

'Activate/deactivate drag and drop ability
Application.CellDragAndDrop = Allow

'Activate/deactivate cut, copy, paste and pastespecial shortcut keys
With Application
Select Case Allow
Case Is = False
.OnKey "^c", "CutCopyPasteDisabled"
.OnKey "^v", "CutCopyPasteDisabled"
.OnKey "^x", "CutCopyPasteDisabled"
.OnKey "+{DEL}", "CutCopyPasteDisabled"
.OnKey "^{INSERT}", "CutCopyPasteDisabled"
Case Is = True
.OnKey "^c"
.OnKey "^v"
.OnKey "^x"
.OnKey "+{DEL}"
.OnKey "^{INSERT}"
End Select
End With
End Sub

Sub EnableMenuItem(ctlId As Integer, Enabled As Boolean)
'Activate/Deactivate specific menu item
Dim cBar As CommandBar
Dim cBarCtrl As CommandBarControl
For Each cBar In Application.CommandBars
If cBar.Name <> "Clipboard" Then
Set cBarCtrl = cBar.FindControl(ID:=ctlId, recursive:=True)
If Not cBarCtrl Is Nothing Then cBarCtrl.Enabled = Enabled
End If
Next
End Sub

Sub CutCopyPasteDisabled()
'Inform user that the functions have been disabled
MsgBox "Sorry! Cutting, copying and pasting have been disabled in this workbook!"
End Sub

'*** In the ThisWorkbook Module ***
Option Explicit

Private Sub Workbook_Activate()
Call ToggleCutCopyAndPaste(False)
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call ToggleCutCopyAndPaste(True)
End Sub

Private Sub Workbook_Deactivate()
Call ToggleCutCopyAndPaste(True)
End Sub

Private Sub Workbook_Open()
Call ToggleCutCopyAndPaste(False)
End Sub


Le but de ma question: je voudrais que ces deux macros puissent fonctionner ensemble dans ce même fichier de 13 feuilles, et donc que les gens soient obligés de valider les macros, et ne puissent plus faire ensuite de copier-coller, ctrl+C et V.
Je pense que je fais LA grosse erreur du débutant qui ne sais pas associer deux macros dans Thisworkbook.
Merci de votre aide.
Merci de votre aide

Re : association de macros

Re,

à priori, dans ThisWorkbook :


dans un Module :

Re : association de macros

Dans ce cas, la 1ere fonctionne, mais pas la seconde...

Re : association de macros

Re,


Une fois que tu as mis le code comme indiqué, il faut enregistrer le classeur, le fermer puis le rouvrir
je viens de faire un essai et ça marche correctement chez moi

Re : association de macros

Je viens de recommencer, seule l'obligation d'activer fonctionne.
Une fois le classeur ouvert, on peut toujours copier, coller, faire un CTRL+C et V.
Je ne comprends pas.

Re : association de macros

Re,

Je ne comprends pas

Cliquez pour agrandir...

Pas mieux... 😕

si quelqu'un d'autre a une idée ???

Quelle version d'Excel ?

Re : association de macros

J'ai Excel 2003
Que faudrait-il changer dans les macros?

Re : association de macros

Re,

à priori, rien, car j'ai Excel 2003 aussi 🙂

Tu peux poster un bout de fichier exemple qui correspondrait au classeur où tu veux l'appliquer ?

Re : association de macros

Désolé, même en vidant mon fichier au max, je ne descends pas sous 57K.
La limite du forum est 48K.

Re : association de macros

Bonjour,

tu as essayé de coller le code dans un autre fichier pour voir si ça marche ?

Re : association de macros

Re,

j'ai encore réessayé et ça marche toujours bien...