løbe folder igennem for regneark og gøre det samme ved dem alle

Prøv noget i denne stil.
I løkken kan du evt. indsætte din egen kode.

Sub AllFolders()
Dim FS As FileSearch
Dim FilePath As String
Dim i As Long
Const Filespec = "*.xls"              'udfyldes af bruger

FilePath = "C:\test\"                'udfyldes af bruger
Application.ScreenUpdating = False
Set FS = Application.FileSearch
With FS
  .LookIn = FilePath
  .Filename = Filespec
  .SearchSubFolders = True
  .Execute
  If .FoundFiles.Count = 0 Then
      MsgBox ("Ingen filer fundet")
      Exit Sub
  End If
  For i = 1 To .FoundFiles.Count
   
    Workbooks.Open Filename:=.FoundFiles(i)
    With ActiveWorkbook
        .KeepChangeHistory = True
        .ChangeHistoryDuration = 30
    End With
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:=.FoundFiles(i), AccessMode:=xlShared
    ActiveWorkbook.Close
    Application.DisplayAlerts = True
   
  Next
End With
Application.ScreenUpdating = False
End Sub

sidste linie ændres til
Application.ScreenUpdating = True

det fungerer perfekt tak, lav lige et svar

hvordan kører man en makro indefra vba?

okay det fandt jeg selv, jeg søgte bare det forkerte sted
application.run

Ok, et svar :-)

naah måske ikke helt alligevel

den fil jeg har lavet vba koden i hedder skiftstatus.xls
den har en makro der hedder del_ark

i midten af din kode indsætter jeg så

    With ActiveWorkbook
        .Run (skiftstatus.xls!del_ark)
    '    .KeepChangeHistory = True
    '    .ChangeHistoryDuration = 30
    End With

sådan gør man åbenbart ikke, hvordan så ?

makroen gør ikke andet end at åbne tools->share workbook-> sætte hak og trykke ok

Du skal bare køre denne makro (eller den anden), når du har indsat det korrekte bibliotek

Sub AllFolders()
Dim FS As FileSearch
Dim FilePath As String
Dim i As Long
Const Filespec = "*.xls"              'udfyldes af bruger

FilePath = "C:\test\"                'udfyldes af bruger
Application.ScreenUpdating = False
Set FS = Application.FileSearch
With FS
  .LookIn = FilePath
  .Filename = Filespec
  .SearchSubFolders = True
  .Execute
  If .FoundFiles.Count = 0 Then
      MsgBox ("Ingen filer fundet")
      Exit Sub
  End If
  For i = 1 To .FoundFiles.Count
   
    Workbooks.Open Filename:=.FoundFiles(i)
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:=.FoundFiles(i), AccessMode:=xlShared
    ActiveWorkbook.Close
    Application.DisplayAlerts = True
   
  Next
End With
Application.ScreenUpdating = False
End Sub

bare for at få det skåret ud i pap:

AccessMode:= xlShared er det samme som at sætte kryds i den dialog boks under 'tools' 'share workbook' ?

sorry hvis det er tilfældet, så havde du jo faktisk løst hele opgaven for mig

Det er korrekt :-)
AccessMode:= xlShared
er det samme som at sætte kryds i den dialog boks under 'tools' 'share workbook'

et sidste spørgsmål.

mange af arkene er linket til hinanden, dvs når de åbnes kommer den og spørg om man vil opdatere, kan man undertrykke den popup ?

og det var en parameter til open
    Workbooks.Open Filename:=.FoundFiles(i), updatelinks:=0