Kan man lave en FOR-NEXT der gennemser alle ark i et regneark ?

Jeg bruger ganske vist ikke en FOR-NEXT løkke, men denne her virker osse efter hensigten:

Sub Beskyt_ark()
With ActiveWorkbook
    For Each ws In ActiveWorkbook.Worksheets
        ActiveWorkbook.Sheets(ws.Name).Protect Password:="xxx"
    Next
End With
End Sub

Kors, hvor jeg dog vrøvler..... det er da netop en FOR-NEXT løkke *SS*

;0)  Sådan går det jo af og til.


b_hansen > Kunne du ikke nøjes med nedenstående?

Sub Beskyt_ark()

    For Each ws In ActiveWorkbook.Worksheets
        ActiveWorkbook.Sheets(ws.Name).Protect Password:="xxx"
    Next

End Sub

sjap> Som udgangspunkt jo. Men i mit tilfælde, har lagt makroen i en generel makrofil, mens den skal virke på den aktive fil.

eller alternativt:

Sub Beskyt_ark()
With ActiveWorkbook
    For Each ws In .Worksheets
        .Sheets(ws.Name).Protect Password:="xxx"
    Next
End With
End Sub

sjap> Jeg bøjer mig gerne. Jeg er ikke den helt store haj udi vba, så jeg fusker mig frem til nogle løsninger. Og ofte får jeg dem så ikke optimeret bagefter *G*

b_hansen > Jeg er absolut heller ingen haj, og fusker også gerne. Det sker tit, at nogen her på stedet "trimmer" min kode, og det er jo rart - og nogen gange også overraskende (for mig) :0)

Igen er jeg nødt til at være enig *S* Det er jo den slags input, man lærer af.

Når jeg så skal checke data i hvert ark i celle(1,1), hvordan gør jeg så ?
Normalt ville jeg skrive Ark1.cells(1,1)

Så må det vist være

ActiveWorkbook.Sheets(ws.Name).Cells(1,1)

Nu skyder jeg godt nok fra hoften, men mit bud ville være
.Sheets(ws.Name).Cells(1,1)

Nu virker det næsten, linien "Ark1.Cells(Row, 1) = Mid(Cells(1, 2), 1, 5)" danner en fejl ???

Sub Beskyt_ark()
    With ActiveWorkbook
        Row = 3
        For Each ws In ActiveWorkbook.Worksheets
            Row = Row + 1
            If ws.Name <> "All Products" Then
                Sheets(ws.Name).Select
                Ark1.Cells(Row, 1) = Cells(1, 2)
            End If
        Next
    End With
End Sub

Hvad er Ark1?

Mener du Sheets("Ark1")?

dvs.

Sheets("Ark1").Cells(Row, 1) = Mid(Cells(1, 2), 1, 5)"

cwc> er du kommet videre?

Jeps - alt virker perfekt !!!