Suppression code VBA et fermeture classeur
Bonjour forum,
je désire ouvrir un classeur, le vider de tout son code vba ( code, module, ...). Dans ce classeur (qui est protégé) il y a un feuille non-visible et quelque feuille protégées. Voici un bout de mon code :
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
| Workbooks.Open CheminClasseur & NomClasseur
Dim VBC As Object
With Workbooks(NomClasseur).VBProject
For Each VBC In .VBComponents
If VBC.Type = 100 Then
With VBC.CodeModule
.DeleteLines 1, .CountOfLines
.CodePane.Window.Close
End With
Else: .VBComponents.Remove VBC
End If
Next VBC
End With
Application.DisplayAlerts = False
Workbooks(NomClasseur).Unprotect
Workbooks(NomClasseur).Close True
Application.DisplayAlerts = True |
Alors en mode pas a pas sa bug a la ligne->
Code:
Workbooks(NomClasseur).Close True
, et arrive alors une fenêtre "Excel a rencontré un probleme et doit fermer..."
Si quelqu'un a déjà rencontrer ce probleme ou a une idée je suis prenneur.
Kalu