Question

我有一个带有以下代码的受保护工作簿MAIN SHEET。当我打开我的工作簿时，当我第一次点击它时我的单元格没有突出显示，但它允许我键入（我可以编辑）细胞）。

之后，我转到第二张或第三张并返回MAIN Sheet，它将突出显示带有绿色边框的单元格。

以前工作正常。直到这段代码进入项目。

Public Sub Worksheet_Change(ByVal Target As Range)
Dim worksh As Integer
Dim worksheetexists As Boolean


With ThisWorkbook.Sheets("SubSheet")
      If UCase$(Range("B11").Value) = "YES" Then
        .Range("A18:D31").Locked = False
      Else
        .Range("A18:D31").Locked = True
      End If
End With
End Sub

代码，当下拉值为＆＃34; NO＆＃34;时，禁用SubSheet上的单元格。在MAIN表上。这段代码可能有什么问题？

Private Sub Workbook_Open()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
ws.Protect Password:="xyz", UserinterfaceOnly:=True
Next
End Sub

单元格不会以边框突出显示

0 个答案: