我正在嘗試鎖定作業簿中特定作業表中的范圍。我使用的代碼僅鎖定第一個作業表的單元格，不會回圈到下一個鎖定范圍的單元格。
Sub lockpivots()
Dim sh As Worksheet
For Each sh In Sheets
Select Case sh.Name
Case Is = "2) Review Charts-Management", "3) Review Charts-Functional"
Selection.Locked = False
Selection.FormulaHidden = False
range("b2:C9").Select
ActiveSheet.Protect Password:="IDR"
End Select
Next sh
End Sub
uj5u.com熱心網友回復：
不要使用Selectionor.Select或ActiveSheet，而是指sh：
For Each sh In ThiseWorkbook.Worksheets
Select Case sh.Name
Case "2) Review Charts-Management", "3) Review Charts-Functional"
With sh
.Range("B2:C9").Locked = False
.Range("B2:C9").FormulaHidden = False
.Protect Password:="IDR"
End With
End Select
Next sh
uj5u.com熱心網友回復：
鎖定范圍的單元格
Option Explicit
Sub LockPivots()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
Select Case ws.Name
Case "2) Review Charts-Management", "3) Review Charts-Functional"
ws.UnProtect Password:="IDR"
With ws.Range("B2:C9")
.Locked = False
.FormulaHidden = False
End With
ws.Protect Password:="IDR"
Case Else ' do nothing
End Select
Next ws
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/qukuanlian/439846.html