Sub Auto_Open()
Sheets("Feuil1").Activate
MsgBox"Bonsoir tout le monde"
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If LCase(Sh.Name) = "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
Pour info XLDnaute Barbatruc est "un grade" pour les membres du forum qui ont posté plus de 10 000 messages.question "barbatruc" je le vois souvent sous plusieurs nom au debut je pensais barbatruc le pseudo mais la j ai un doute
merci encore
Private Sub Worksheet_Activate()
MsgBox "Cette feuille est réservée à Mr YUST, Mme QUERAT, Mr ARMANT !" & vbLf & _
"Les seules modifications possibles sont expliquées dans " & vbLf & _
"les info-bulles situées à droite du tableau !", 48, "Attention..."
End Sub