protection macro

Sub Princ()
  Dim C As Workbook, T, I&
  T = Array('Module1', 'Module2') ' à adapter
  Set C = Workbooks.Add
  For I = 0 To UBound(T)
    Export ThisWorkbook, T(I)
    Import C, T(I)
  Next I
End Sub

Sub Export(C As Workbook, ByVal NomMod$)
  C.VBProject.VBComponents(NomMod).Export NomMod & '.bas'
End Sub

Sub Import(C As Workbook, ByVal NomMod$)
  On Error Resume Next
  C.VBProject.VBComponents.Import(NomMod & '.bas').Name = NomMod
End Sub

Cliquez pour agrandir...