工作簿激活时隐藏工作表失效及控件设置技术咨询

以下是可能的原因及修复方案：

• 代码位置错误：确保代码放在ThisWorkbook模块中，而非普通模块。只有ThisWorkbook模块内的Workbook_Open事件才会在工作簿打开时触发。
• 宏未启用/文件格式错误：工作簿需保存为.xlsm（启用宏的工作簿）格式，且打开时必须启用宏。
• 工作表名称不匹配：检查数组中的工作表名称是否与实际完全一致，包括大小写、空格、特殊字符（比如代码中带连接符的表名，需确认无拼写错误）。
• 批量设置兼容性问题：替换批量设置为循环逐个隐藏，避免部分Excel版本对批量设置Visible属性的兼容性问题：

Dim wsName As Variant
For Each wsName In Array("Data", "CLLIDATA", "OXXXXS", "LXXXXXXB", "LXXXXXXT", "BXXXXXXO", _
    "LXXXXXXO", "NXXXXXXV", "NXXXXXX1", "JXXXXXXX", "NXXXXXXP", "LXXXXXXB-LXXXXXXT MAP", _
    "LXXXXXXB-BXXXXXXO MAP", "LXXXXXXB-LXXXXXXO MAP")
    ThisWorkbook.Worksheets(wsName).Visible = xlSheetHidden
Next wsName

• 工作表保护限制：如果目标工作表处于保护状态，需先解除保护再隐藏，完成后可重新保护：

ThisWorkbook.Worksheets(wsName).Unprotect Password:="你的密码"
ThisWorkbook.Worksheets(wsName).Visible = xlSheetHidden
ThisWorkbook.Worksheets(wsName).Protect Password:="你的密码"

设置ListBox、ToggleButton、TextBox等控件的尺寸，直接赋值和With语句都有效，两者区别如下：

• 直接赋值：写法直观，但每次赋值都需重复引用控件对象，效率略低且代码冗余。你的原代码写法是可行的，只要控件引用正确就不会报错。
• With语句：仅需引用一次控件对象，后续操作直接用.调用属性，代码更简洁高效，推荐使用。以ListBox1为例优化：

With ThisWorkbook.Sheets("Index").ListBox1
    .Height = 141
    .Left = 333.5
    .Top = 102
    .Width = 195.5
End With

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