P
patrick
Guest
Bonjour,
Dans la macro suivante je recopie un module dans un classeur que je crée.
Quel est le code pour que la macro du classeur soit protégée par mot de passe ?
Dim S As String, Wbk As Workbook
Set Wbk = Workbooks("Perso.xls")
With Wbk.VBProject.VBComponents("Module7").CodeModule
S = .Lines(1, .CountOfLines)
End With
ActiveWorkbook.VBProject.VBComponents.Add 1
With ActiveWorkbook.VBProject.VBComponents("Module1").CodeModule
.AddFromString S
End With
Merci au forum
Dans la macro suivante je recopie un module dans un classeur que je crée.
Quel est le code pour que la macro du classeur soit protégée par mot de passe ?
Dim S As String, Wbk As Workbook
Set Wbk = Workbooks("Perso.xls")
With Wbk.VBProject.VBComponents("Module7").CodeModule
S = .Lines(1, .CountOfLines)
End With
ActiveWorkbook.VBProject.VBComponents.Add 1
With ActiveWorkbook.VBProject.VBComponents("Module1").CodeModule
.AddFromString S
End With
Merci au forum