允许 Excel 宏在受保护的工作表上运行

Question

I have the following macro that is not able to run whenever I protect the sheet.

Sub ConditionalDisplay()
    With Worksheets("Data Entry")
    If .Range("C13") = "" Then
        .Rows("14:15").Hidden = True
      Else
        .Rows("14").Hidden = .Range("C13") = "lbs/gal"
        .Rows("15").Hidden = .Range("C13") = "g/L"
    End If

    If .Range("C17") = "" Then
        .Rows("18:19").Hidden = True
        Else
            .Rows("18").Hidden = .Range("C17") = "lbs/gal"
            .Rows("19").Hidden = .Range("C17") = "g/L"
    End If
End With
End Sub

If it's unprotected it works fine, but protecting the sheet throws an error when I open the workbook as this sub routine is called when the workbook opens. I saw a couple of websites that reference using the "Me.Protect Userinterfaceonly:=true" but so far that has not worked out for me.

Are there any suggestions?

Answer 1

For anyone wondering, below is the solution:

Private Sub Workbook_Open()
    Worksheets("Data Entry").Protect Userinterfaceonly:=True
    Worksheets("Data Entry").Range("C6:C10") = ""
    Worksheets("Data Entry").Range("C12:C15") = ""
    Worksheets("Data Entry").Range("C17:C19") = ""
ConditionalDisplay
End Sub