Question

在我的工作簿中，我有一个隐藏了pwd-protection的工作表。

在Sheet1中我有一个CommandButton，当TextBox1中的PWD正确时取消隐藏Sheet2。

在我的VBA代码中，当我关闭我的工作簿时，Sheet2会被隐藏，但是如果我再次打开它，则会在TextBox1中显示PWD ..当我关闭我的工作簿时是否有可能清除TextBox1？

当我关闭工作簿时，这是我的代码：

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Worksheets("Sheet2").Visible = xlSheetVeryHidden
End Sub

这是我隐藏的代码：

Option Explicit

Private Sub CommandButton1_Click()
    If TextBox1.Text = "password" Then
        Worksheets("Sheet2").Visible = xlSheetVisible
    Else
        Worksheets("Sheet2").Visible = xlSheetVeryHidden
    End If
End Sub

Private Sub UserForm_Initialize()
    TextBox1.PasswordChar = "*"
End Sub

修改

去吧：）

只需添加以下代码：

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Worksheets("Sheet2").Visible = xlSheetVeryHidden
    Worksheets("Sheet1").TextBox1.Value = " "
End Sub

Answer 1

只需添加以下代码：

<div class="dropdown">
   <a class="dropbtn">Tours & Activity</a>
    <div class="dropdown-content">
        <a href="#"><button>link 1</button ></a>
        <a href="#"><button>link 2</button ></a>
        <a href="#"><button>link 3</button ></a>
    </div>
</div>

关闭工作簿时Excel清除文本框

1 个答案: