关闭Excel工作簿时清空TextBox1内容的VBA解决方案咨询

刚好碰到过类似的需求，其实只需要在你现有的Workbook_BeforeClose事件里加几行代码就行，再配合保存操作确保修改生效。

步骤与完整代码 #

1. 打开VBA编辑器（按Alt+F11快速打开），找到左侧项目窗口里的ThisWorkbook模块并双击打开。
2. 把你现有的关闭事件代码替换成下面的完整版本：

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    ' 执行你原来的隐藏Sheet2逻辑
    Worksheets("Sheet2").Visible = xlSheetHidden
    
    ' 清空Sheet1上的ActiveX文本框TextBox1内容
    Sheet1.TextBox1.Value = ""
    
    ' 必须保存工作簿，否则下次打开时旧密码可能还会残留
    ThisWorkbook.Save
End Sub

代码说明 #

• Sheet1.TextBox1.Value = ""：这行是核心，直接定位到Sheet1上的ActiveX文本框，把它的内容设为空字符串。
• ThisWorkbook.Save：很关键！如果不保存，Excel可能会缓存未保存的界面状态，下次打开时文本框里还是会有之前输入的密码，所以一定要加上保存操作。

特殊情况：如果是表单控件文本框 #

如果你用的是表单控件（不是ActiveX控件）的文本框，那清空代码要改成这样：

Sheet1.Shapes("TextBox1").TextFrame.Characters.Text = ""

这样设置后，每次关闭工作簿时，不仅会自动隐藏Sheet2，还会清空TextBox1的内容，下次打开工作簿时文本框就是空白的啦。

内容的提问来源于stack exchange，提问作者diem_L