Formula.Firewall error; calling a web api get's error when used in a table with append other tables.

My (shortend)query looks like this:

let
geocode = (herecoding as text) =>
let
coding = herecoding,
PostContent=””,
Bron = Json.Document(Web.Contents(“https://geocoder.api.here.com/6.2/geocode.json?app_id=xxxx&app_code=xxxx&searchtext=”&coding&"", [Headers=[#”Accept-Encoding”=”gzip”]]), Compression.GZip),
#”Geconverteerd naar tabel” = Record.ToTable(Bron),
in
#”Geconverteerd naar tabel” ,
Source = Excel.Workbook(Web.Contents(“https://vanbruggen.sharepoint.com/sites/ManagementInformatie/Gedeelde%20%20documenten/Excel 2.0/Afspraken 2018 2.0 (nieuw).xlsx”), null, true),
Blad1_Sheet = Source{[Item=”Blad1″,Kind=”Sheet”]}[Data],
#”Headers met verhoogd niveau” = Table.PromoteHeaders(Blad1_Sheet, [PromoteAllScalars=true]),
#”Query toegevoegd” = Table.Combine({#”Headers met verhoogd niveau”, Afspraken2017, #”Blad1 (2)”}),
#”Rijen gefilterd” = Table.SelectRows(#”Query toegevoegd”, each ([Jaar] 2019)),
#”Query toegevoegd1″ = Table.Combine({#”Rijen gefilterd”, #”Rapportage Inbound 0800″}),
#”Kolommen verwijderd” = Table.RemoveColumns(#”Query toegevoegd1″,{“Column50”, “Column51”, “Column52”, “Column53″}),
#”Type gewijzigd” = Table.TransformColumnTypes(#”Kolommen verwijderd”,{{“Beldatum”, type date}}),
#”Aangepaste kolom toegevoegd” = Table.AddColumn(#”Type gewijzigd”, “DatumKey”, each Date.ToText([Beldatum],”yyyyMMdd”)),
#”Filtered Rows” = Table.SelectRows(#”Aangepaste kolom toegevoegd”, each true),
#”Renamed Columns” = Table.RenameColumns(#”Filtered Rows”,{{“CTPID”, “Afspraken”}}),
#”Type gewijzigd1″ = Table.TransformColumnTypes(#”Renamed Columns”,{{“Huisnummer”, type text}, {“Postcode”, type text}}),
in
#”Type gewijzgd1"

I've also tried to define the function within every query that is merged into this one but that aslo didn't help.
My next step is to use Relative Path and Query to improve the query but maybe some people have other ideas?