Option Explicit
Dim SepDec As String, SepMil As String
Private Sub Workbook_BeforeClose(Cancel As Boolean)
With Application
.DecimalSeparator = SepDec
.ThousandsSeparator = SepMil
End With
End Sub
Private Sub Workbook_Open()
SepDec = Application.DecimalSeparator
SepMil = Application.ThousandsSeparator
With Application
.DecimalSeparator = "."
.ThousandsSeparator = ""
End With
End Sub