VBA code to change regional settings

[jaryszek]

Hi,

i need the code for changing regional settings in windows environment:

1. Check what regional settings are used
2. If RS are Windows default (in my case polish -pl) - change to US (United States)
3. If US - change to windows defaults.

Cross posted here:

https://www.excelforum.com/excel-pr...-settings-from-windows-compatibile-to-us.html

Please help,
Best,
Jacek

 

[jaryszek]

Hi,

anyone?

Best,
Jacek

 

[jaryszek]

Ok Guys,

i found this code from here:
https://stackoverflow.com/questions...ZAxBwAYgT_lqB-Kc9JQA6qZAkdP7hySkx34tlnO9W5lNc

but this is not working for me.

Option ExplicitDim result


#If VBA7 Then
    Private Declare PtrSafe Function SetThreadLocale Lib "kernel32" _
        (ByVal Locale As Long) As Boolean
    Private Declare PtrSafe Function GetUserDefaultLCID Lib "kernel32" () As Long
    Private Declare PtrSafe Function LocaleNameToLCID Lib "kernel32" _
        (ByVal lpName As LongPtr, dwFlags As Long) As Long
#Else
    Private Declare Function SetThreadLocale Lib "kernel32" (ByVal Locale As Long) As Boolean
    Private Declare Function GetUserDefaultLCID Lib "kernel32" () As Long
    Private Declare Function LocaleNameToLCID Lib "kernel32" _
       (ByVal lpName As LongPtr, dwFlags As Long) As Long
#End If


Private Sub Test()
    'Get the locale identifier for French (Canada)
    Dim frCa As Long
    frCa = LocaleNameToLCID(StrPtr("en-US"), 0)
    'Make sure there function succeeded.
    If result = 0 Then
        'Cache the current locale
        Dim userLocale As Long
        userLocale = GetUserDefaultLCID
        SetThreadLocale 1045
        'Switch to French (Canada)
        If SetThreadLocale(frCa) Then
            'en français
            '...
            'switch back
            SetThreadLocale userLocale
        End If
    End If
End Sub

i tried to change "fr-CA" but this is not working.

userLocale = GetUserDefaultLCID is a long for Polish language = 1045, for English (United States) it is 1033.
How to set up?

• SetThreadLocale method is not working

SetThreadLocale 1033 should change windows settings for US, and 1045 should change it for 1033.

Can anybody help?

Best,
Jacek