ブック内の特定のシートを開く

Question

私はブック内のすべてのシートを、マクロボタンを持っているものとは別に保護するためのコードを用意しています。

マクロは、ブックを開くときに保護したくない新しいシートを作成するという問題があります。私はシート1〜6を保護する必要があります。

Answer 1

方法について：

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

とシートは、「シート1」と命名されていない場合は、「シート2」、...、シート名を超えるだけのループ。

Answer 2

私は答えを見つけることができました。

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

私が変数として設定されていなかったという上記の解決策の問題だと思います。