Schützen Sie bestimmte Blätter auf Arbeitsmappe öffnen

Question

Ich habe den folgenden Code, um alle Blätter in meiner Arbeitsmappe zu schützen, abgesehen von einem, wo ich eine Makro-Taste habe.

Das Problem besteht darin, dass das Makro neue Blätter erstellt, die nicht geschützt werden sollen, wenn die Arbeitsmappe geöffnet wird. Ich muss nur die Blätter 1 bis 6 schützen. Kann mir bitte jemand helfen, den Code zu ändern?

Answer 1

Wie wäre:

Private Sub Workbook_Open() 
    For i = 1 To 6 
     Sheets("Sheet" & i).Protect Password:="1234", userinterfaceonly:=True 
    Next i 
End Sub 

und wenn die Blätter nicht "Sheet1" genannt, "Tabelle2", ..., nur eine Schleife über den Blattnamen.

Answer 2

Ich habe es geschafft, die Antwort zu finden.

Private Sub Workbook_Open() 
Dim i As Long 
For i = 1 To 6 
    Sheets(i).Protect password:="1234", userinterfaceonly:=True 
Next i 
End Sub 

Ich denke, das Problem mit der obigen Lösung war, dass ich nicht als Variable festgelegt wurde.