我如何使用循环locking单元格范围通过所有现有的工作表

我有一个有50多个工作表的存在工作簿。 我需要为每个存在的工作表locking单元格范围（b7：b51）。 我尝试使用循环来做到这一点，我有一个循环的代码，通过所有的工作表，我需要把正确的代码来locking单元格。

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

这应该做到这一点。

 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 

Answer 3

 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