Para maior segurança, você pode ter as duas macros, uma em cada idioma e disparar a macro correta após testar a configuração regional
Em alguns casos, você também pode optar por abrir a janela do Regional Settings e solicitar ao usuário que altere o idioma.
'Em General
Option Explicit
'Pega as configurações
Private Declare Function GetLocaleInfo Lib "kernel32" Alias _
"GetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, _
ByVal lpLCData As String, ByVal cchData As Long) As Long
'Altera as configurações
Private Declare Function SetLocaleInfo Lib "kernel32" Alias _
"SetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, _
ByVal lpLCData As String) As Boolean
Private Declare Function GetUserDefaultLCID% Lib "kernel32" ()
Public Const CIngles = "English (United States)"
Public Const CPortugues = "Portuguese (Brazil)"
'Constantes das Configurações Regionais
Const LOCALE_ICENTURY = &H24
Const LOCALE_ICOUNTRY = &H5
Const LOCALE_ICURRDIGITS = &H19
Const LOCALE_ICURRENCY = &H1B
Const LOCALE_IDATE = &H21
Const LOCALE_IDAYLZERO = &H26
Const LOCALE_IDEFAULTCODEPAGE = &HB
Const LOCALE_IDEFAULTCOUNTRY = &HA
Const LOCALE_IDEFAULTLANGUAGE = &H9
Const LOCALE_IDIGITS = &H11
Const LOCALE_IINTLCURRDIGITS = &H1A
Const LOCALE_ILANGUAGE = &H1
Const LOCALE_ILDATE = &H22
Const LOCALE_ILZERO = &H12
Const LOCALE_IMEASURE = &HD
Const LOCALE_IMONLZERO = &H27
Const LOCALE_INEGCURR = &H1C
Const LOCALE_INEGSEPBYSPACE = &H57
Const LOCALE_INEGSIGNPOSN = &H53
Const LOCALE_INEGSYMPRECEDES = &H56
Const LOCALE_IPOSSEPBYSPACE = &H55
Const LOCALE_IPOSSIGNPOSN = &H52
Const LOCALE_IPOSSYMPRECEDES = &H54
Const LOCALE_ITIME = &H23
Const LOCALE_ITLZERO = &H25
Const LOCALE_NOUSEROVERRIDE = &H80000000
Const LOCALE_S1159 = &H28
Const LOCALE_S2359 = &H29
Const LOCALE_SABBREVCTRYNAME = &H7
Const LOCALE_SABBREVDAYNAME1 = &H31
Const LOCALE_SABBREVDAYNAME2 = &H32
Const LOCALE_SABBREVDAYNAME3 = &H33
Const LOCALE_SABBREVDAYNAME4 = &H34
Const LOCALE_SABBREVDAYNAME5 = &H35
Const LOCALE_SABBREVDAYNAME6 = &H36
Const LOCALE_SABBREVDAYNAME7 = &H37
Const LOCALE_SABBREVLANGNAME = &H3
Const LOCALE_SCOUNTRY = &H6
Const LOCALE_SCURRENCY = &H14
Const LOCALE_SDATE = &H1D
Const LOCALE_SDAYNAME1 = &H2A
Const LOCALE_SDAYNAME2 = &H2B
Const LOCALE_SDAYNAME3 = &H2C
Const LOCALE_SDAYNAME4 = &H2D
Const LOCALE_SDAYNAME5 = &H2E
Const LOCALE_SDAYNAME6 = &H2F
Const LOCALE_SDAYNAME7 = &H30
Const LOCALE_SDECIMAL = &HE
Const LOCALE_SENGCOUNTRY = &H1002
Const LOCALE_SENGLANGUAGE = &H1001
Const LOCALE_SGROUPING = &H10
Const LOCALE_SINTLSYMBOL = &H15
Const LOCALE_SLANGUAGE = &H2
Const LOCALE_SLIST = &HC
Const LOCALE_SLONGDATE = &H20
Const LOCALE_SMONDECIMALSEP = &H16
Const LOCALE_SMONGROUPING = &H18
Const LOCALE_SMONTHNAME1 = &H38
Const LOCALE_SMONTHNAME10 = &H41
Const LOCALE_SMONTHNAME11 = &H42
Const LOCALE_SMONTHNAME12 = &H43
Const LOCALE_SMONTHNAME2 = &H39
Const LOCALE_SMONTHNAME3 = &H3A
Const LOCALE_SMONTHNAME4 = &H3B
Const LOCALE_SMONTHNAME5 = &H3C
Const LOCALE_SMONTHNAME6 = &H3D
Const LOCALE_SMONTHNAME7 = &H3E
Const LOCALE_SMONTHNAME8 = &H3F
Const LOCALE_SMONTHNAME9 = &H40
Const LOCALE_SABBREVMONTHNAME1 = &H44
Const LOCALE_SABBREVMONTHNAME2 = &H45
Const LOCALE_SABBREVMONTHNAME3 = &H47
Const LOCALE_SABBREVMONTHNAME4 = &H48
Const LOCALE_SABBREVMONTHNAME5 = &H49
Const LOCALE_SABBREVMONTHNAME6 = &H4A
Const LOCALE_SABBREVMONTHNAME7 = &H4B
Const LOCALE_SABBREVMONTHNAME8 = &H4C
Const LOCALE_SABBREVMONTHNAME9 = &H4D
Const LOCALE_SABBREVMONTHNAME10 = &H4E
Const LOCALE_SABBREVMONTHNAME11 = &H4F
Const LOCALE_SABBREVMONTHNAME12 = &H50
Const LOCALE_SMONTHOUSANDSEP = &H17
Const LOCALE_SNATIVECTRYNAME = &H8
Const LOCALE_SNATIVEDIGITS = &H13
Const LOCALE_SNATIVELANGNAME = &H4
Const LOCALE_SNEGATIVESIGN = &H51
Const LOCALE_SPOSITIVESIGN = &H50
Const LOCALE_SSHORTDATE = &H1F
Const LOCALE_STHOUSAND = &HF
Const LOCALE_STIME = &H1E
Const LOCALE_STIMEFORMAT = &H1003
'CÒDIGO PARA O FORMULÁRIO:
Public Function Verifica_Regional(pLinguagem As String) ' PEGA simbolo decimal ATUAL
Dim Symbol As String
Dim iRet1 As Long
Dim iRet2 As Long
Dim lpLCDataVar As String
Dim Pos As Integer
Dim Locale As Long
Dim msg As String
Verifica_Regional = False
Locale = GetUserDefaultLCID()
'Buscando definição do Regional Settings
iRet1 = GetLocaleInfo(Locale, LOCALE_SLANGUAGE, lpLCDataVar, 0)
Symbol = Space$(iRet1)
iRet2 = GetLocaleInfo(Locale, LOCALE_SLANGUAGE, Symbol, iRet1)
Pos = InStr(Symbol, Chr$(0))
Symbol = Left$(Symbol, Pos - 1)
'------------------------------------------------------------------------------
If pLinguagem = CPortugues Then
If Symbol <> CPortugues Then
Verifica_Regional = True
msg = "A Linguagem padrão configurada no seu computador está como " & Symbol & "." & vbCrLf & vbCrLf
msg = msg & "Para o funcionamento da planilha ela deverá ser " & CPortugues & "." & vbCrLf & vbCrLf
msg = msg & "A seguir, será aberta a tela de Regional Settings para que seja feita a alteração."
MsgBox msg, vbExclamation
If MsgBox("Deseja alterar o idioma", vbYesNo, "Alterar o Regional Settings") = vbYes Then
Call Shell("rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,0", vbNormalFocus)
Else
Call 'NomeDaMacro'
End If
End If
Else
If Symbol <> CIngles Then
Verifica_Regional = True
Verifica_Regional = True
msg = "A Linguagem padrão configurada no seu computador está como " & Symbol & "." & vbCrLf & vbCrLf
msg = msg & "Para o funcionamento da planilha ela deverá ser " & CPortugues & "." & vbCrLf & vbCrLf
msg = msg & "A seguir, será aberta a tela de Regional Settings para que seja feita a alteração."
MsgBox msg, vbExclamation
If MsgBox("Deseja alterar o idioma", vbYesNo, "Alterar o Regional Settings") = vbYes Then
Call Shell("rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,0", vbNormalFocus)
Else
Call 'NomeDaMacro'
End If
End If
End If
End Function
Abs,
