Bonjour Forum,
En exécutant cette procédure une erreur 1004 s'affiche: (run time error '1004'. Apllication-defined or object-defined error)
Private Sub Workbook_Activate()
Dim bar As CommandBar
For Each bar In Application.CommandBars
bar.Enabled = False
Next
With Application
.DisplayScrollBars = False
.DisplayStatusBar = False
.DisplayFormulaBar = False
.DisplayExcel4Menus = False
.CommandBars('Worksheet Menu Bar').Enabled = False
.DisplayFullScreen = True
End With
With ActiveWindow
.DisplayHeadings = False
.DisplayVerticalScrollBar = True
.DisplayWorkbookTabs = False
End With
HideShapes
With Sheets('Accueil')
.Range('NomPre').Select
.ScrollArea = ('$A$1:$O$18')
ActiveSheet.Activate
ActiveSheet.Protect
End With
Sheets('Q-Dvt').Select
ActiveSheet.Protect
Sheets('Q-Images').Select
ActiveSheet.Protect
Sheets('Q-C-M').Select
AtiveSheet.Protect
User.show
End Sub
Merci d'avance pour votre aide
Message édité par: insideout, à: 26/09/2005 21:24
En exécutant cette procédure une erreur 1004 s'affiche: (run time error '1004'. Apllication-defined or object-defined error)
Private Sub Workbook_Activate()
Dim bar As CommandBar
For Each bar In Application.CommandBars
bar.Enabled = False
Next
With Application
.DisplayScrollBars = False
.DisplayStatusBar = False
.DisplayFormulaBar = False
.DisplayExcel4Menus = False
.CommandBars('Worksheet Menu Bar').Enabled = False
.DisplayFullScreen = True
End With
With ActiveWindow
.DisplayHeadings = False
.DisplayVerticalScrollBar = True
.DisplayWorkbookTabs = False
End With
HideShapes
With Sheets('Accueil')
.Range('NomPre').Select
.ScrollArea = ('$A$1:$O$18')
ActiveSheet.Activate
ActiveSheet.Protect
End With
Sheets('Q-Dvt').Select
ActiveSheet.Protect
Sheets('Q-Images').Select
ActiveSheet.Protect
Sheets('Q-C-M').Select
AtiveSheet.Protect
User.show
End Sub
Merci d'avance pour votre aide
Message édité par: insideout, à: 26/09/2005 21:24