Comment effacer Private Sub Worksheet?

Le 01/05/2014 à 23:13

Bonsoir,

je tente en vain de trouver un code pour effacer le code présent (private sub...) dans la partie du VBAProject de la FEUIL1.

Une image est en PJ, merci par avance

capture 1
Le 01/05/2014 à 23:24

Bonsoir

Soit ta question n'est pas assez précise, soit tu sélectionnes le code et tu appuies sur "Suppr"

Amicalement

Nad

Le 01/05/2014 à 23:35

Bonsoir,

Bonsoir, Nad

Essaie ce code, à mettre dans un module...

Sub eff_code()
EffaceCodeFeuille ("Feuil1")
End Sub
Sub EffaceCodeFeuille(NomFeuille As String)
  With ActiveWorkbook.VBProject.VBComponents _
      (ActiveWorkbook.Sheets(NomFeuille).CodeName).CodeModule
    .DeleteLines 1, .CountOfLines
    .CodePane.Window.Close
  End With
End Sub

Attention, il faut pour que cela fonctionne que l'accès soit approuvé au modèle d'objet du projet VBA.

Pour cela, tu cliques sur "Fichier", "Options"

Onglet "Centre de gestion de la confidentialité", puis sur "Paramètres du Centre de gestion de la confidentialité", Catégorie "Paramètres des macros", et valide l'option "Accès approuvé au modèle d'objet du projet VBA"

Bonne soirée

Le 02/05/2014 à 12:04

Bonjour

merci pour votre aide et pour le code.

Ca marche nikel

Rechercher des sujets similaires à "comment effacer private sub worksheet"