Limitation application macro Résolu/Fermé

Question

Bonjour, 

J'utilise une macro (récupérée sur ce site il y a qlqs semaines grâce à votre collaboration) qui à pour but d'autoriser l'utilisation des boutons de groupement / dégroupement sur des feuilles protégées.
J'avoue est ignare en VB ... 
Cette macro est présente dans chaque worksheet. Le fichier en comporte une vingtaine.
 
Private Sub Worksheet_Change(ByVal Target As Range)
 Dim sh As Worksheet
    For Each sh In Worksheets
        sh.EnableAutoFilter = True
        sh.EnableOutlining = True
        sh.Protect Contents:=True, Password:="kisskiss", UserInterfaceOnly:=True
     Next

End Sub

Mon pb: quand j'insère une nouvelle feuille dans ce fichier, la macro s'y applique alors que . je n'ai pas copier la macro dans la feuille.
De la même manière quand je déplace/ copie une de ces feuilles dans un autre fichier, la macro s'applique à l'ensemble des feuilles du fichier destinataire.
Je souhaiterais que la macro ne s'applique qu'à la feuille dans laquelle elle est copiée soit être capable de la désactiver dans les feuilles dans laquelle je ne souhaite pas qu'elle s'applique.

Merci de votre aide

ccm81 · Answer

Bonjour

Je souhaiterais que la macro ne s'applique qu'à la feuille dans laquelle elle est copiée
Private Sub Worksheet_Change(ByVal Target As Range)Dim sh As WorksheetSet sh = ActiveSheetsh.EnableAutoFilter = Truesh.EnableOutlining = Truesh.Protect Contents:=True, Password:="kiss", UserInterfaceOnly:=TrueEnd Sub

RQ. la macro me parait quand même bizarre, elle s'exécute dès qu'il y a un changement dans la feuille 
.Je pense qu'il faudrait préciser QUAND tu veux qu'elle s'exécute

cdlmnt

Mike-31 · Answer

Bonjour,

Lorsque on copie un code sur un forum il est créé pour une demande bien précise, le code initial que j'ai mis en ligne était, et n'a rien à voir avec ta demande

Option Explicit

Private Sub Workbook_Open()
    On Error Resume Next
    Dim Sh  As Worksheet
    For Each Sh In Sheets
    Sh.Protect Password:="open", DrawingObjects:=True, Contents:=True, Scenarios:=True _
    , AllowFiltering:=True
    Next Sh
    Sheets("P").Unprotect Password:="open"
    Sheets("P").EnableOutlining = True
   Sheets("P").Protect Password:="open", userInterfaceOnly:=True
End Sub