Option Explicit
Private Sub Workbook_Open()
Application.Caption = "JCGL"
On Error GoTo Sortie
Exit Sub
With Application
' If .UserName <> " " Then
If .ReferenceStyle = xlR1C1 Then
.ReferenceStyle = xlA1
Else
.ReferenceStyle = xlA1
End If
.Calculation = xlAutomatic
End With
Application.CommandBars("Nitro PDF Professional").Visible = False
Sortie:
End Sub