Dag Arnold,

Het zou zomaar kunnen dat ik het gevonden heb...
Ik heb hier 2 bestanden staan die zowat hetzelfde doen. Met het ene krijg ik die beveiligingsmelding, met het andere niet.
Ze staan in dezelfde map, en Office-opties gelden voor alle files, dus... moet het elders zitten.
Ben dus in de verkenner eens naar de eigenschappen van de bestanden gaan kijken, en onder 'Algemeen' geeft het ene aan dat het wordt geblokkeerd wegens afkomstig van andere computer. "Blokkering opheffen" klikken loste het op.

En nu hopen dat jij het ook zo voor elkaar krijgt 

Arnold,

ik denk dat de eigenschappen van het Excel-bestand of Excel zelf bedoeld wordt! Niet van het MP3-bestand 

SoftAid              

Arnold,

Was er de rest van de namiddag niet meer, en merk ondertussen dat ik het niet duidelijk genoeg had uitgelegd, maar zoals SoftAid vermoedde gaat dat inderdaad over de xlsm-bestanden.

Ik was er trouwens niet naar aan het zoeken geweest, maar louter voor mezelf nog wat bizarre experimentjes aan het doen met vba. Toen ik, nota bene per ongeluk, op een hyperlink klikte kreeg ik die beveiligingsmelding. Om mezelf te overtuigen dat ik nog min of meer bij zinnen was probeerde ik het met het andere, en daar kreeg ik die melding niet, dus net als tevoren. Het ging bovendien om hetzelfde mp3-bestand. Tja, dan moet het aan het xlsm-bestand liggen.

Hierbij een afbeelding ter verduidelijking. Als dat bij jou niet voorkomt gooi ik de handdoek in de ring, en ik weet ook wel dat het niet van levensbelang is, maar het vinden zou natuurlijk leuk zijn. Kijk je dus nog eens?

Mvg,
Molly

Dag Arnold,

Het is ook niet Excel-gerelateerd. Als ik de eigenschappen van je jpg-bijlage download staat dat er ook!
Even googelen en dan blijkt dat het een veel voorkomend geval is; de vele pagina's die dit bespreken lijken wel aan te tonen dat jij de enige bent die er nooit mee te maken krijgt 
Specifiek voor Office vond ik nog het advies om de map waarin de xlsm staat toe te voegen aan 'Vertrouwde locaties'.
Anderzijds, vermits jij geen blokkeringsmelding krijgt bij eigenschappen zal het mogelijk ook niets uithalen, maar 't is misschien een kleine moeite?

Mvg,
Molly

Ja, daar houdt een mens inderdaad een grrrr-gevoel aan over.

Dan maar terug naar iets dat ik wel een beetje kan.
Bij mijn laatste probeersels (niet geschikt voor publicatie) zag ik uit mijn eigen muziekcollectie plots "™”r y”rt”nch.mp3" waar het "Öör yörtönch.mp3" moet zijn. Dat verschil vond ik net te groot, maar ook bij minder exotische titels krijg je bv. B,caud ipv Bécaud.
Dat heeft te maken met
"a = Split(CreateObject("wscript.shell").exec("cmd /c Dir ""c:\muziek\*.mp3""/b/o:n/s").stdout.readall, vbCrLf)" uit de importprocedure.

Het makkelijkste alternatief om unicode-karakters te bekomen lijkt mij een omwegje via een tekstbestand. Ongetwijfeld een fractie trager maar met het blote oog is het tijdsverschil niet waar te nemen. Ik heb de code in stapjes opgedeeld zodat ze beter te volgen is.
Dat geeft dan voor het inleesgedeelte:
With Sheets("Records")
    .Columns("A:B").ClearContents
    Dim wshell As Object
    Set wshell = VBA.CreateObject("WScript.Shell")
    locatie = "e:\muziek\"
    tmp_bestand = locatie & "uitvoer.txt"
    opdracht = "dir " & locatie & "*.mp3 /b /o:n /s > " & tmp_bestand
    cmd_opdracht = "cmd.exe /u /c " & opdracht
    wshell.Run cmd_opdracht, False, True
    Dim titels()
    aantal = 0
    Open tmp_bestand For Input As #1
    While Not EOF(1)
        aantal = aantal + 1
        ReDim Preserve titels(1 To aantal)
        Line Input #1, titels(aantal)
    Wend
    Close #1
    Kill tmp_bestand
    .Cells(1, 1).Resize(aantal) = Application.Transpose(titels)
End WithBekijk maar of dat voor jou ook een meerwaarde heeft.

Iets helemaal anders... ik zag ook Andesmuziek in je lijst staan. Ken je ?

ondertussen de aangepaste code geïmplementeerd.

wat Uw bijlage betreft , die vrouw heeft een ongelooflijke stem !  beetje te vergelijken met Yma Sumac  , die vrouw kon de hoogste octaven aan....zoek maar eens op youtube ernaar..

wat die Andes muziek betreft , we zijn Jaaaren geleden eens naar de Rode & Zwarte berg geweest en daar was dan zo'n groepje een optreden aan het geven , in tradionele klederdracht , ze waren zo in een ronde aan het dansen met kleine pasjes en ze nodigden ons uit om mee te doen en we zijn dan ook spontaan beginnen mee dansen .
ik heb daar ter plaatste ook een CD gekocht en daar stond dan bijgevoegd liedje op ( was dat waarin we ook mee dansten)...
dat liedje zal altijd een mooi plekje hebben bij ons  .

maar ik heb wel een heel erg brede interesse voor muziek , van de hedendaagse "boenke boenke" music  (Arnold's Beats) tot pavarotti en Soul...

grtjs,
Arnold.

Nog een kleine aanvulling voor eventuele gebruikers die hetzelfde probleem ervaren bij het gebruiken van de code uit Post#69.

Mijn probleem is een foldernaam met spaties en de huidige code uit die post genereerde hierdoor een leeg tekstbestand en dus foutmelding

bij het inlezen van de records.

Mits een kleine aanpassing werkt ze nu echter ook voor foldernamen met of zonder spatie, of gemengd.

With Sheets("Records")
    .Columns("A:B").ClearContents
    locatie = "G:\mijn documenten\mijn muziek\"
    'locatie = "D:\rudi\my music\"
    'locatie = "D:\rudi\music\"
    tmp_bestand = locatie & "uitvoer.txt"
    opdracht = "dir " & """" & locatie & "*.mp3" & """" & " /b /o:n /s > " & """" & tmp_bestand & """"
    cmd_opdracht = "cmd /u /c " & opdracht
    CreateObject("WScript.Shell").Run cmd_opdracht, False, True
    Dim titels()
    aantal = 0
    Open tmp_bestand For Input As #1
    While Not EOF(1)
        aantal = aantal + 1
        ReDim Preserve titels(1 To aantal)
        Line Input #1, titels(aantal)
    Wend
    Close #1
    Kill tmp_bestand
    .Cells(1, 1).Resize(aantal) = Application.Transpose(titels)
End With