Re Bonjour Karine, Zon, le Forum
Je n'ai pas Win 2000 sous la main, mais en tout cas, je ne pense pas que ce code puisse tourner sous n'importe quelle version de Windows.
En effet depuis toujours, la Syntax pour une message box se construit de la manière suivante :
MsgBox(prompt[, buttons] [, title] [, helpfile, context])
Or toi tu écris
Object = MsgBox('PAGE SUGGESTIONS...', vbOKOnly, 'karine',
vbdefaultbutton,
vbInformation)
Ce qui Signifie en Syntax
MsgBox(prompt[, buttons] [, title]
[, Buttons][, Buttons]
Là tu ne risques pas de passer...
Pour le reste, je n'ai pas une version 2000 donc pas de XLA AutoSave... Mais voilà ton code remanié sur la XLA Utilitaire d'Analyse sur une version américaine ce qui donne 'Analysis ToolPak'
Option Explicit
Private Sub Workbook_Open()
Dim Message1 As Byte
Dim Message2 As String
Dim i As Integer
AddIns('Analysis ToolPak').Installed = True
Message1 = MsgBox('Quel est le comble de la politesse? C'est de s'asseoir sur son derrière et de lui demander pardon.', vbOKCancel + vbQuestion, 'UN PEU D HUMOUR?...')
If Message1 = vbOK Then
Message2 = MsgBox('çA VOUS A PLU? DITES LE A LA PAGE SUGGESTIONS...', vbOKOnly + vbInformation, 'karine')
Else
Exit Sub 'Si on répond Cancel, on termine l'exécution du code.
End If
'NB : Subordonné à ce que ce classeur existe et soit ouvert, idem pour la macro
Application.Run ''LOCATION CAMIONS ET APPAREILS.xlS'!MsgBox_RealPBar'
Sheets('ouverture').Select
For i = 1 To ActiveWorkbook.Sheets.Count
With Worksheets(i)
.EnableSelection = xlUnlockedCells
.Protect Password:='contrat', UserInterfaceOnly:=True
End With
Next i
End Sub
Ici je boucle toutes les feuilles pour la Protection en UserInterface Only...
Si tu dois le faire que sur certaine feuilles alors voici une boucle :
Dim Feuille As Variant
For Each Feuille In Array('EV BENNE NE PAS TOUCHER', 'RESERVATIONS', 'IC2 NE PAS TOUCHER', _
'EV NE PAS TOUCHER', 'RESERVATION', 'CONTRAT DE LOCATION', _
'SUGGESTIONS', 'IC NE PAS TOUCHER') 'continuer avec les autres Feuilles
With Worksheets(Feuille)
.EnableSelection = xlUnlockedCells
.Protect Password:='contrat', UserInterfaceOnly:=True
End With
Next Feuille
Bon Appétit
[ol]@+Thierry[/ol]