VBA lås kun et ark.

Måske:

ActiveWorkbook.Sheets(1).Protect "password", AllowFiltering:=True

Får fejl. run-time error '9': subscript out of range.

VBA koden som jeg bruger pt.
men vil have lavet om så den kun låser et ark.

Const værdiForLås = "lås"
Const værdiForLåsOp = "lås op"
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$T$1" And Target = værdiForLås Then
   
        'ophæv beskyttelse
        Dim s As Worksheet
        For Each s In ActiveWorkbook.Sheets
        s.Unprotect "password"
    Next
        'sæt området til forberedt låst
        Range("K5").Select
        Selection.Locked = True
        Range("I5").Select
        Selection.Locked = True
        Range("A12:E15").Select
        Selection.Locked = True
        Range("A18:C45").Select
        Selection.Locked = True
        Range("D46:D48").Select
        Selection.Locked = True
        Range("E18:E48").Select
        Selection.Locked = True
    End If
        'sæt beskyttelse
        For Each s In ActiveWorkbook.Sheets
        s.Protect "password", AllowFiltering:=True
    Next
   
    If Target.Address = "$T$2" And Target = værdiForLåsOp Then
   
        'ophæv beskyttelse
        For Each s In ActiveWorkbook.Sheets
        s.Unprotect "password"
    Next
        'området A1:B5 sættes til "ej låst"
        Range("K5").Select
        Selection.Locked = False
        Range("I5").Select
        Selection.Locked = False
        Range("A12:E15").Select
        Selection.Locked = False
        Range("A18:C45").Select
        Selection.Locked = False
        Range("D46:D48").Select
        Selection.Locked = False
        Range("E18:E48").Select
        Selection.Locked = False
    End If
        'sæt beskyttelse
        For Each s In ActiveWorkbook.Sheets
        s.Protect "password", AllowFiltering:=True
    Next

End Sub

Const værdiForLås = "lås"
Const værdiForLåsOp = "lås op"
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$T$1" And Target = værdiForLås Then
   
        'ophæv beskyttelse
    ActiveWorkbook.Sheets(1).Unprotect "password"
   
        'sæt området til forberedt låst
        Range("K5").Locked = True
        Range("I5").Locked = True
        Range("A12:E15").Locked = True
        Range("A18:C45").Locked = True
        Range("D46:D48").Locked = True
        Range("E18:E48").Locked = True
    End If
        'sæt beskyttelse
    ActiveWorkbook.Sheets(1).Protect "password", AllowFiltering:=True
   
    If Target.Address = "$T$2" And Target = værdiForLåsOp Then
   
        'ophæv beskyttelse
    ActiveWorkbook.Sheets(1).Unprotect "password"
   
        'området A1:B5 sættes til "ej låst"
        Range("K5").Locked = False
        Range("I5").Locked = False
        Range("A12:E15").Locked = False
        Range("A18:C45").Locked = False
        Range("D46:D48").Locked = False
        Range("E18:E48").Locked = False
    End If
        'sæt beskyttelse
  ActiveWorkbook.Sheets(1).Protect "password", AllowFiltering:=True

End Sub

Får fejlen.

Run-time error '1004':
kan ikke angive egebskaben lucked for klassen range.

Denne virker hos mig
http://gupl.dk/687574/

Den virker os her.
Men ville nu gerne have to fælter man skrev i for af låse og låse op.
Men må vise sig når jeg lige får det puttet i det rigtige ark, om et felt er nok.
Men smid et svar & tak for hjælpen,

forresten, må jeg høre dig om noget?

Jepp

Hvis man fks. vil have flere VBA/Makro koder i thisworkbook, hvordan forbinder man dem så?

hvordan forbinde?

Har du et eksempel?

Jeg har fundet en der har kodet en log & en autoluk.
De begge skal i thisworkbook.

Men når jeg insætter dem, meddler den fejl:
ambiguous name detected: workbook open

Undskylder på forhånd af jeg er dårlig til VBA/Makro & english :).

Kan ikke lige lure det,

Så er der sikkert 2 "makroer" der hedder det samme: workbook open

"Men ville nu gerne have to fælter man skrev i for af låse og låse op"

Hvis jeg så ændre navnet med bare et 1 til efter.
Så excel ikke den ene?

Er fixede nu tror jeg :),
Men jeg bukker pænt og siger tak for hjælpen!

Nej, ikke når det er "workbook open" denne køres når Excel åbnes.

Der kan kun være denne ene "workbook open"
"workbook open1" vil ikke virke.

Nej, den var der ikke der, den vil kun køre en vba/makro når jeg sætter dem ind,

damn,

Hvad kan man så ellers gøre? nu når de er lavet med begge workbook_open?

Prøv om du kan putte dem i samme workbook_open

Før:
workbook_open
"log kode"
End sub

workbook_open
"autoluk kode"
End sub

Efter:
workbook_open
"log kode"

"autoluk kode"
End sub

er prøvet, de skal nok mere kodes helt om hvis de skal køres i samme workbook_open :p