Bir modüle alttaki kodları ekleyin abey.Open yada colse varsa içindekileri ekleyin yada excelin açılış yada kapanış yerlerine ekleyin with ile end if olan yerleri.

Sub Auto_Open()

    With Application

        .DecimalSeparator = ","

        .ThousandsSeparator = "."

        .UseSystemSeparators = False

    End With

End Sub



Sub Auto_Close()

    With Application

        .DecimalSeparator = "."

        .ThousandsSeparator = ","

        .UseSystemSeparators = True

    End With

End Sub