0

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

感謝

4

3 に答える 3

1 
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
于 2013-07-22T20:34:00.257 に答える