我如何使用循環來鎖定單元格範圍通過所有現有的工作表

Question

我有一個存在的工作簿有50多個工作表。我需要爲每個存在的工作表鎖定單元格範圍（b7：b51）。我嘗試使用循環來做到這一點，我有一個循環的代碼，通過所有的工作表，我需要把正確的代碼鎖定單元格。

Sub WorksheetLoop() 

    Dim WS_Count As Integer 
    Dim I As Integer 

    ' Set WS_Count equal to the number of worksheets in the active 
    ' workbook. 
    WS_Count = ActiveWorkbook.Worksheets.Count 

    ' Begin the loop. 
    For I = 2 To WS_Count 

    ActiveSheet.range("B1:B51").locked=true. --this is not correct. 


    MsgBox ActiveWorkbook.Worksheets(I).Name 


    Next I 

    End Sub 

感謝

Answer 1

嘗試......

Sub WorksheetLoop() 

Dim WS_Count As Integer 
Dim I As Integer 

' Set WS_Count equal to the number of worksheets in the active 
' workbook. 
WS_Count = ActiveWorkbook.Worksheets.Count 

' Begin the loop. 
For I = 1 To WS_Count 

If Worksheets(I).Range("C1:C51").Locked <> True Then 
    Worksheets(I).Range("C1:C51").Locked = True 
    Worksheets(I).Protect Contents:=True 
Else 
End If 

MsgBox ActiveWorkbook.Worksheets(I).Name 


Next I 

End Sub 

Answer 2

Public Sub ProtectRange() 
Dim i As Integer, wsCount As Integer 

wsCount = ActiveWorkbook.Worksheets.Count 

For i = 1 To wsCount 
    ActiveWorkbook.Worksheets(i).Range("B1:B51").Locked = True 
    ActiveWorkbook.Worksheets(i).Protect Contents:=True 
Next i 

End Sub 

Answer 3

這應該這樣做。

Sub Macro1() 

Dim WS_Count As Integer 
    Dim I As Integer 

    ' Set WS_Count equal to the number of worksheets in the active 
    ' workbook. 
    WS_Count = ActiveWorkbook.Worksheets.Count 

    ' Begin the loop. 
    For I = 2 To WS_Count 

     Dim sheet As Worksheet 
     Set sheet = Sheets(I) 

     sheet.Unprotect 

     sheet.UsedRange.Locked = False 
     sheet.Range("B7:B51").Locked = True 
     sheet.Protect Contents:=True 

     MsgBox ActiveWorkbook.Worksheets(I).Name 

    Next I 

End Sub