VBA kode

Hvis det er uden password kan denne klare det:

Sub Opdater()
    ActiveSheet.Unprotect
      Application.CalculateFull
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

Hej jens48
Når jeg aktiver koden opdatere den desværre ikke.
Jeg har også skrevet forkert, koden skal kun opdater (Alt+F5)
NB. der er ingen password på arkbeskrivelsen

Prøv med denne:

Sub Opdater()
    ActiveSheet.Unprotect
    Application.Calculation = xlAutomatic
    Application.Calculation = xlManual
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

prøv at erstatte

Application.Calculation = xlAutomatic
    Application.Calculation = xlManual

med


SendKeys "^%{F5}", True

SendKeys "^%{F5}", True' CTRL + ALT + F5

SendKeys "%{F5}", True'  ALT + F5

Hej jens48 & kabbak
Undskyld den sene reaktion, har lige været nede nogle dage. Jeg har forsøgt på den ene og den anden måde, filen opdaterer ikke, det er ligesom forsinkelsen ikke er langt nok, inden arkbeskyttelsen. Filen opdater fint unden arkbeskyttelse.

Lukker tråden, jeg tror der er noget galt med filen, blev pludselig 66 MB større, tak for jeres bud. Hvis det lykkes mig at bruge Jeres bud, opretter jeg et point spørgsmål.

God weekend