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

 

Med risiko for at jeg har forstået dig forkert, har jeg disse 2 koder til dig.

 

Beskyt: Beskytter arket med koden 123

Fjern_Beskyt: Åbner arket igen med koden 123

 

//Allan

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

 

Koden i denne kodestump er 123 (Du kan selv rette den til hvad du ønsker.)

 

 

 

Jamen den sidder bare lige i skabet.

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

 

Hej Timer.

 

Hov forresten - jeg glemte helt at spørge dig, om det er muligt at køre Makroen blot ved at dobbelt klikke på filen, og hvor koden til denne handling i givet fald skal placeres ?

 

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

 

Jo tak, det hele virker perfekt.  

 

Endnu engang tusind tak for din hjælp.

Det har bare været en fornøjelse.

 

Hej Timer.

Rigtig god dag til dig Timer.

 

//Allan