OneDrive Local Pfad

Hallo zusamme,

nachdem unsere Firma die Einstellungen für OneDrive für manche User geändert hat, können viele User leider nicht mehr "File Collaboration" ausschalten (in alten Versionen hiess das noch "Use Office applications to sync Office files that I open".
Als Folge liefert ThisWorkbook.Path nicht mehr:"C:\Users\Tiger.t\OneDrive - BesteFirma\Documents\TheoTools\HMF"
sondern stattdessen
"https://pgone-my.sharepoint.com/personal/tiger_t_bestefirma_com/Documents/Documents/TheoTools/HMF"

Im Forenarchiv habe ich gefunden, dass GetAbsolutePathName helfen soll, hier wird aber der Pfad irgendwie random abgeschnitten - er ignoriert die Subfolder:

Sub OneDrivePath()
    Dim fso As Object
    Dim HTTPPath As String
    Dim LocalPath As String
  
    Set fso = CreateObject("Scripting.FileSystemObject")
    HTTPPath = ThisWorkbook.Path
    
    'local Path sollte sein:
    '"C:\Users\Tiger.t\OneDrive - BesteFirma\Documents\TheoTools\HMF"
    LocalPath = fso.GetAbsolutePathName(ThisWorkbook.Name)
    'LocalPath ist:
   '"C:\Users\tiger.t\OneDrive - BesteFirma\Documents\DiesesTool.xlsb"
End Sub