통합 문서의 특정 시트 보호 열기

Question

내 통합 문서의 모든 시트를 매크로 단추가있는 곳과 별도로 보호하는 다음 코드가 있습니다.

Private Sub Workbook_open() 

Dim ws As Worksheet 

For Each ws In ThisWorkbook.Worksheets 
    Select Case ws.Name 
     Case "Rota" 
     Case Else: ws.Protect password:="1234", userinterfaceonly:=True 
    End Select 
Next ws 

End Sub 

문제는 매크로 통합 문서를 열 때 내가 원하지 않는 새 시트가 보호 될 생성하는 것입니다. 나는 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 

과 시트 "Sheet1의"라는되어 있지 않은 경우, "시트 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 

위의 솔루션 문제는 변수로 설정되지 않았다고 생각합니다.