Sub TransfertModule()
Dim S As String
Dim Wbk As Workbook
On Error GoTo Erreur
With ThisWorkbook.VBProject.VBComponents("Module2").CodeModule
S = .Lines(1, .CountOfLines)
End With
'--- On supprime "Option Explicit" car on risque un conflit si ---
'--- l'option "Déclaration des variables obligatoire" est en vigueur ---
S = Replace(S, "Option Explicit", "")
Set Wbk = Workbooks.Add
Wbk.VBProject.VBComponents.Add(1).Name = "Interdiction_Copier_Coller"
With Wbk.VBProject.VBComponents("Interdiction_Copier_Coller").CodeModule
.AddFromString S
End With
Exit Sub
Erreur:
If Err = 1004 Then
'--- Traduire éventuellement en chinois ou en anglais ---
MsgBox "Erreur " & Err.Number & vbCrLf & Err.Description & vbCrLf & vbCrLf & _
"Dans Excel, faites menu Outils/Options/Sécurité..." & vbCrLf & _
"Dans l'onglet ''Editeurs approuvés'' cochez la case" & vbCrLf & _
"''Faire confiance au Projet Visual Basic''"
'--------------------------------------------------------
End If
End Sub