Jeg har et problem med at fjerne beskyttelse af ark, når jeg kører Makroen.

 

Jeg har indspillet Makroen således, jeg åbner flien, klikker på arket, klikker på "Fjern arkbeskyttelse" taster koden og åbner arket, laver mine rettelser, klikker igen på "Beskyt ark" og taster koden, klikker på "GEM", lukker siden og stopper indspilning.

 

Når jeg så kører Makroen virker alt med undtagelse af, at Promten "Fjern arkbeskyttelse" kommer op og jeg skal taste koden for at køre Makroen til ende. Arket bliver så efterladt åbent uden beskyttelse.

 

Er der nogen der kan fortælle mig hvordan jeg får Makroen til at køre hele processen uden at taste kode ?

 

Hej

Her er kan du se schriptet:

( Hvor/hvordan kan jeg flette "Beskyt ark"/"Fjern beskyttelse ind her ?

Sub opdatchaufloen()
'
' opdatchaufloen Makro
' Makro indspillet 27-02-2011 af Stig Petersen
'

'
    ChDir "C:\SPtaxi\chauf"
    Workbooks.Open Filename:="C:\SPtaxi\chauf\c01.xls", UpdateLinks:=3
    ActiveWindow.ScrollWorkbookTabs Sheets:=14
    Sheets("mar1").Select
    ActiveSheet.Unprotect
    Range("E25").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(R[-1]C[1]>0,+IF(R[-14]C[-3]=3,IF(Stam!R[5]C[-3]=Stam!R[5]C,Stam!R[5]C,Stam!R[5]C)+IF(Stam!R[5]C="""",Stam!R[5]C[-3])),0)"
    Application.Run "Backup"
    Range("A1").Select
    ActiveWorkbook.Save
    ActiveWindow.Close
'
    Workbooks.Open Filename:="C:\SPtaxi\chauf\c02.xls", UpdateLinks:=3
    ActiveWindow.ScrollWorkbookTabs Sheets:=14
    Sheets("mar1").Select
    ActiveSheet.Unprotect
    Range("E25").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(R[-1]C[1]>0,+IF(R[-14]C[-3]=3,IF(Stam!R[5]C[-3]=Stam!R[5]C,Stam!R[5]C,Stam!R[5]C)+IF(Stam!R[5]C="""",Stam!R[5]C[-3])),0)"
    Application.Run "Backup"
    Range("A1").Select
    ActiveWorkbook.Save
    ActiveWindow.Close
End Sub

 

Jamen den sidder bare lige i skabet.

Jeg siger tusind tak for hjælpen og din hurtige respons.

 

Hej Timer.

 

For at få makroen til at køre som det første når filen åbnes, skal du omdøbe makroen til Sub Auto_Open()

Det kommer lidt an på din fils opbygning, men prøv lige om den virker i første hug.

 

//Allan

Rigtig god dag til dig Timer.

 

//Allan