如果工作表受到保护，则隐藏或禁用按钮

Question

对于我的表单，我需要隐藏或禁用在工作表受保护时附加了一个单击删除宏的文本框。我在谈论excel的内置保护系统。我看过几个教程，但似乎无法让它正常工作。 我尝试过多种方法，包括：

If ActiveSheet.ProtectContents = True Then
    TextBox1.Visible = False
Else
    TextBox1.Visible = True
End If

知道怎么做吗？

Answer 1

更改

If ActiveSheet.ProtectContents = True Then
    TextBox1.Visible = False
Else
    TextBox1.Visible = True
End If

到

If ActiveSheet.ProtectContents = True Then
    ActiveSheet.TextBox1.Visible = False
Else
    ActiveSheet.TextBox1.Visible = True
End If

您没有声明文本框的位置。这将解决它

Answer 2

目前尚不清楚文本框是嵌入在工作表中还是嵌入在用户窗体中。

如果在工作表中是基于形状的文本框？这些是从功能区上的“插入”选项卡创建的。

或者这是一个ActiveX文本框？这些是从功能区上的DEVELOPER选项卡创建的。

另一方面，如果您指的是用户窗体上的文本框，则可以使用以下代码（假设用户窗体代码名称为UserForm1）：

UserForm1.Controls("NameOfYourTextBox").Visible = Not ActiveSheet.ProtectContents