1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
| Private Sub WorkBook_Open()
Dim CmdB As CommandBar
For Each CmdB In Application.CommandBars
CmdB.Enabled = True
Next CmdB
With Application
.DisplayFullScreen = True
.DisplayStatusBar = False
.DisplayFormulaBar = False
End With
With ActiveWindow
.DisplayHeadings = False
End With
With Worksheets("Accueil")
.EnableOutlining = True
.Protect Password:="APEL", UserInterFaceOnly:=True
End With
With Worksheets("Compte")
.EnableOutlining = True
.Protect Password:="APEL", UserInterFaceOnly:=True
End With
With Worksheets("Tableaux")
.EnableOutlining = True
.Protect Password:="APEL", UserInterFaceOnly:=True
End With
End Sub |
