anvendelse af makro på beskyttet ark

Prøv at sætte dette ind i modulet ThisWorkbook

Private Sub Workbook_Open()
    Sheets("Ark1").Protect userinterfaceonly:=True
End Sub

Userinterfaceonly gør at arket er beskyttet for brugerinput, men ikke for makroinput

ThisWorkbook, er det der hvor makro´en er programmeret ? Selve makro består af følgende;

"Sub stilling()
'
' stilling Makro
' Makro indspillet 14-06-2006 af Hald
'
' Genvejstast:Ctrl+q
'
    Sheets("vm").Select
    Range("C41:K45").Select
    Selection.Sort Key1:=Range("D41"), Order1:=xlDescending, Key2:=Range( _
        "I41"), Order2:=xlDescending, Key3:=Range("E41"), Order3:=xlDescending, _
        Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:= _
        xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, _
        DataOption3:=xlSortNormal
    Range("C47:W48").Select
End Sub"

Hvor skal jeg sætte det ind som du foreslår ? - hvis det overhovedet er her ?

Hansenhald

du kunne også anvende bak's udmærkede forslag i din egen sub :

Sub stilling()
'
' stilling Makro
' Makro indspillet 14-06-2006 af Hald
'
' Genvejstast:Ctrl+q
'
Sheets("vm").Protect userinterfaceonly:=True
    Sheets("vm").Select
    Range("C41:K45").Select
    Selection.Sort Key1:=Range("D41"), Order1:=xlDescending, Key2:=Range( _
        "I41"), Order2:=xlDescending, Key3:=Range("E41"), Order3:=xlDescending, _
        Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:= _
        xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, _
        DataOption3:=xlSortNormal
    Range("C47:W48").Select
Sheets("vm").Protect userinterfaceonly:=False
End Sub