Display Alert

Har du prøvet at vælge :
"Vis ikke advarslen, og opdater ikke automatiske kæder"
i menuen Rediger/Kæder/ Startprompt ?

Ja jeg fandt løsningen i nat med Application.AskToUpdateLinks, men fik ikke lukket spørgsmålet ;-)

Men tak for hjælpen - du kom med en løsning og skal have point - jeg havde dog håbet, at man kunne "fange" advarsler og beskeder og herefter bestemme hvad der skulle ske med dem.

Selvom løsningen på ovenstående er fundet, er mine problemer dog ikke løst ;-) Jeg troede at dette ville gøre åbningen af mine 40 filer hurtigere (har en lille kode der åbner 40 filer opdaterer mine data og lukker filerne igen), men når Excel når til nummer 26 går det næsten i stå jf. http://www.eksperten.dk/spm/894037 (er værst i Excel 2007 - 2003 kører væsentligt hurtigere) - nogle ideer til en optimering?

Jeg ender ellers med at åbne en fil af gangen og derefter alene opdatere den kolonne i min samlefil, hvor den åbnede fils data indgår. Men igen var det sjovere at finde en anden løsning ;-)

eller.

Private Sub Workbook_Open()
ActiveWorkbook.UpdateLinks = xlUpdateLinksNever
End Sub

Prøv send hele koden fra det andet spørgsmål, så prøver jeg at kikke på det. Men det tager nu engang tid at åbne/lukke filer
så jeg lover ikke noget.

pm@madsen.tdcadsl.dk

Dette er hele koden:

Dim xlsHome, c As Range

Sub HentDataX()

'Slå skærm og msg fra
    Application.DisplayAlerts = False
    Application.ScreenUpdating = False
    Application.AskToUpdateLinks = False


   
'Efterregn workbook
    xlsHome = ActiveWorkbook.Name
   
        Workbooks(xlsHome).Application.Calculate
     
'Hent sti og filtype
    Sti = Range("Sti")
    Filtype = Range("Filtype")
         
'Åben xls-filer

For Each c In Range("Filnavne").Cells

    If c.Value <> Empty Then Workbooks.Open Filename:=Sti + c.Value + "." + Filtype, ReadOnly:=True, IgnoreReadOnlyRecommended:=True
   
Next c
     
'Efterregn xlsHome-workbook og sæt til manuelberegning
    Workbooks(xlsHome).Application.Calculate
         
    Workbooks(xlsHome).Application.Calculation = xlCalculationManual
   
'Aktiver xlsHome-workbook
    Workbooks(xlsHome).Activate


'Luk filer

For Each c In Range("Filnavne").Cells

If c.Value <> Empty Then Workbooks(c.Value + "." + Filtype).Close SaveChanges:=False
   
Next c


'Slå opdatering af skærm og msg til
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
    Application.AskToUpdateLinks = True

End Sub

Jeg kan se koden ikke udfører noget i de åbnede projektmapper
Har du nogle formler/kæder som ikke bliver opdateret automatisk ?
- altså uden at skulle åbne filerne

Ja - jeg har mange forlmer, der er sammensat ved INDIREKTE, og spom derfor kræver at filerne bliver åbnet.

Jeg arbejder p.t. på at åbne én fil af gangen og alene beregne den kolonne, der henter data fra den åbne fil.

Hvor mange af dine formler indeholder INDIREKTE ?