deux code vba sur Workbook

[titooooo]

bonjour

je veut avoir deux code vba dans la page this workbook

le 1er

Private Sub Workbook_Open()
Dim ws As Worksheet
For Each ws In Worksheets
With ws
.EnableAutoFilter = True
.EnableOutlining = True
.Protect Contents:=True, Password:="123456", UserInterfaceOnly:=True
End With
Next ws
End Sub



et le deuxieme

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Call AjoutCommentaire(Target)
End Sub




comment les mettre les deux ensemble svp

 

[david84]

Re : deux code vba sur Workbook

Bonjour,
quel est le problème que tu veux solutionner ?
Qu'entends-tu par

comment les mettre les deux ensemble svp

Tes 2 codes sont bien dans le ThisWorkbook non ?
Si tu veux laner AjoutCommentaire dans le Workbook_Open il te faut définir l'argument Target qui sera traité à l'ouverture, mais je ne sais pas si c'est ce que tu attends.
A+

 

[titooooo]

Re : deux code vba sur Workbook

bonjour ,

le premier code sert a vérouiller les feuille du classeur et le deuxiéme sert a ajouter des commentaire , du coup les deux doivent etre sur la feuille ThisWorkbook , ca marche si je met soit l'un ou l'autre mais si je met le 1er et en desous le deuiéme ca passe pas

comment faire pour en former avec ces deux cdes vba qu'un seul et unique code qui exécutera les deux code a la fois s ans erreurs

d'avance merci

 

[phlaurent55]

Re : deux code vba sur Workbook

Bonjour à tous,

il sera peut-être possible de garder les 2 codes en modifiant le premier comme ceci:

Private Sub Workbook_Open()
Application.EnableEvents = False
Dim ws As Worksheet
For Each ws In Worksheets
With ws
.EnableAutoFilter = True
.EnableOutlining = True
.Protect Contents:=True, Password:="123456", UserInterfaceOnly:=True
End With
Next ws
Application.EnableEvents = True
End Sub

à+
Philippe