RESOLU !!!Afficher MSG BOX a l ouverture d'une page du classeur

[excelnoober]

Bonjour
je souhaite générer un msgbox uniquement sur l ouverture d une page de mon classeur

j ai bien récupéré ce code sur la toile, mais lorsque je le copie dans mon projet "thisworkbook'
il ne se passe rien

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If LCase(Sh.CodeName) = "Intervenants AP" Then
MsgBox "Cette feuille est réservée au " & _
"Secrétariat Général, merci de ne rien modifier/ajouter.", vbCrLf & _
vbInformation + vbOKOnly, "La direction..."
End If
End Sub

quelqu' un pourrait m aider svp?

 

[Staple1600]

Bonsoir le fil, le forum

j ai bien récupéré ce code sur la toile, mais lorsque je le copie dans mon projet "thisworkbook'
il ne se passe rien

@Si...
J'ai récupéré le code récupéré pour récupérer l'affichage du MsgBox.
Quant à avoir si le code récupéré est pertinent ou pas, c'est une autre question que je ne suis pas posé [HFT_T] Étant donné : Petit a : que je me foule rarement, un dimanche, autant qu'un séminariste à motocyclette[/HFT_T]

Et quand je suis moi, et même si jamais je ne l'étais pas, je ne vois aucun intérêt à diffuser un classeur à des personnes qui ne doivent pas le voir...
Autant distribuer une version du classeur sans la feuille qu'on veut cacher.

 

[Si...]

re l'ami Staple,

j'aime bien jouer à cache-cache

 

[excelnoober]

hihi xdl naute !!!
weldone !!!