一段代码放到sheet表上后可运行，关闭再开出现损坏

xjoger

各位大神，我想开发一个VBA的小软件，用来查询螺纹规格，其中有以下代码：

Sub Worksheet_SelectionChange(ByVal Target As Range)  '多级菜单的方法
        Application.EnableEvents = False
        Application.ScreenUpdating = False
        On Error Resume Next
        
        '实现在第3行的点击效果
        If Target.Row <> 3 Then GoTo end1
        Application.CellDragAndDrop = False  '若禁止工作表内拖拽，只需该代码
   
        If Target.Count > 1 Then GoTo end1    '选择的单元格大于2个，就退出
        If Target.Column <> 4 Then GoTo end1
        Sheets("基础数据").Activate
        row2 = Sheets("基础数据").Cells(Rows.Count, "b").End(xlUp).Row
        'MsgBox row2
        
        myarr = Sheets("基础数据").Range("a2:b" & row2)   '将所有菜单装入数组
        'MsgBox UBound(myarr)
        
        If UBound(myarr) < 3 Then GoTo end1   '如果菜单个数少于3个就退出
        Set myDic = CreateObject("Scripting.Dictionary")       '建立一级菜单字典
        Set mytwoDic = CreateObject("Scripting.Dictionary")    '建立二级菜单字典
        
        Sheets("螺纹规格查询").Activate
        If Target.Column = 4 And Target.Offset(0, -1) <> "" Then
              For i = 1 To UBound(myarr)
                  t = myarr(i, 1)
                  If t <> "" Then T1 = t
                  If t = "" Then t = T1
                  If t = Target.Offset(0, -1) Then
                      mytwoDic(myarr(i, 2)) = myarr(i, 2) '将菜单值写入键
                  End If
              Next
   
              '二级菜单实现
              With Target.Validation
                  .Delete
                  .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=Join(mytwoDic.Keys, ",")
              End With
         End If
     
end1:   Set myDic = Nothing
        Set mytwoDic = Nothing
        Application.EnableEvents = True
        Application.ScreenUpdating = True
        Application.CellDragAndDrop = True
        
End Sub

      把它放在“螺纹规格查询”表上，一切正常，公称直径一栏可以出现下拉菜单，但关闭后重新打开，就会出现以下报警：


点“是”后，这段代码不在原表上，而是在自动产生的一个sheet6的表上了，这个似乎是工作簿？“螺纹规格查询表“上没有这段代码，无法实现二级菜单了，不知道是什么原因？请大神帮助，谢谢！

xjoger

刚才忘了上传文件，补上，这个是打开后，代码已经不在正常的sheet表上了。

ynzsvt

工作表名称遭损坏，复制成了另一个文件。

xjoger

2楼，你好！这个文件，你把“Sub Worksheet_SelectionChange(ByVal Target As Range)  这个代码全部复制到sheets（螺纹规格查询）下面，然后存盘退出，再次打开又会损坏，这是主要问题；该如何避免这种情况？

xjoger

只要把代码放在要产生2级菜单上的那个表上，关闭再开，就又会损坏，搞不清什么原因

3190496160

3190496160

这是代码建立数据有效性经常会出现的问题，
只有在每次关闭文件时，自动删除工作表内所有的数据有效性并保存文件，就不会出现这种提示啦

xjoger

哦，这样的啊！之前也一直用有效性，不过之前的数据量较少，没有出现这个问题，这次量一大，就出现这个问题；原来是这个原因，太感谢了！

xjoger

测试了，只要把有效性数据删除再存盘，打开就没有这个问题了