[已解决]看病啦，宏病毒杀完后的后遗症

huangcaiguang

请高手解决：附件中文件原来中了宏病毒，后来清掉病毒后，打开文件老是弹出“找不到ERF!$A$2”的对话框！

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-4-23 13:58

1. Sub test()
   
2.     Dim MyName As Name
   
3.     Dim c&
   
4.     Dim sMsg$
   
5.     With ThisWorkbook
   
6.         '遍历名称
   
7.         For Each MyName In .Names
   
8.             If MyName.Visible = False Then
   
9.                 c = c + 1
   
10.                 MyName.Visible = True
    
11.             End If
    
12.             '删除名称定义中包含AUTO字样的名称
    
13.             If UCase(MyName.Name) Like "*AUTO*" Then MyName.Delete
    
14.         Next
    
15.     End With
    
16.     If c > 0 Then
    
17.         sMsg = "一共有 " & c & " 个隐藏名称"
    
18.     Else
    
19.         sMsg = "无隐藏名称"
    
20.     End If
    
21.     MsgBox sMsg
    
22. End Sub
    

复制代码

跳转到最佳答案楼层

qjsu

不敢打开你的文件，目测是宏病毒杀毒软件删除了某个sheet，而你现有表中有到那个sheet A2的绝对引用

蝶·舞

4月运输经营表.zip (8.01 KB, 下载次数: 2)

2013-4-23 13:54 上传

点击文件名下载附件

hwc2ycy

1. Sub test()
   
2.     Dim MyName As Name
   
3.     Dim c&
   
4.     Dim sMsg$
   
5. 
   
6.     Application.DisplayAlerts = False
   
7.     Application.ScreenUpdating = False
   
8. 
   
9.     With ThisWorkbook
   
10.         '遍历名称
    
11.         For Each MyName In .Names
    
12.             If MyName.Visible = False Then
    
13.                 c = c + 1
    
14.                 MyName.Visible = True
    
15.             End If
    
16.             '删除名称定义中包含AUTO字样的名称
    
17.             If UCase(MyName.Name) Like "*AUTO*" Then MyName.Delete
    
18.         Next
    
19.     End With
    
20.    
    
21.     Application.DisplayAlerts = True
    
22.     Application.ScreenUpdating = True
    
23. 
    
24.     If c > 0 Then sMsg = sMsg & "一共有 " & c & " 个隐藏名称"
    
25. End Sub

复制代码

hwc2ycy

1. Sub test()
   
2.     Dim MyName As Name
   
3.     Dim c&
   
4.     Dim sMsg$
   
5.     With ThisWorkbook
   
6.         '遍历名称
   
7.         For Each MyName In .Names
   
8.             If MyName.Visible = False Then
   
9.                 c = c + 1
   
10.                 MyName.Visible = True
    
11.             End If
    
12.             '删除名称定义中包含AUTO字样的名称
    
13.             If UCase(MyName.Name) Like "*AUTO*" Then MyName.Delete
    
14.         Next
    
15.     End With
    
16.     If c > 0 Then
    
17.         sMsg = "一共有 " & c & " 个隐藏名称"
    
18.     Else
    
19.         sMsg = "无隐藏名称"
    
20.     End If
    
21.     MsgBox sMsg
    
22. End Sub
    

复制代码

huangcaiguang

hwc2ycy 发表于 2013-4-23 13:58

真是孤陋寡闻啊！还可以将定义的名称隐藏？是怎么做到的？明明没有代码，也没看到名称框有名称！

hwc2ycy

这个得用代码实现。

hwc2ycy

Name.Visible 属性
返回或设置一个 Boolean 值，它确定对象是否可见。可读写。
语法

表达式.Visible

表达式   一个代表 Name 对象的变量。

说明


如果将一个名称的 Visible 属性设为 False，则该名称将不出现在“定义名称”对话框中。

huangcaiguang

hwc2ycy 发表于 2013-4-23 14:44
Name.Visible 属性
返回或设置一个 Boolean 值，它确定对象是否可见。可读写。
语法

Sub test()
Dim MyName As Name
Dim c&
Dim sMsg$
With ThisWorkbook
For Each MyName In .Names
If MyName.Visible = TRUE Then
c = c + 1
MyName.Visible = FALSE            
End If
Next
End With
If c > 0 Then
sMsg = "一共有 " & c & " 个定义的名称"
Else
sMsg = "无定义的名称"
End If
MsgBox sMsg
End Sub

hwc2ycy

以前写的，还是可以再改下的。

这句If MyName.Visible = TRUE Then
可以改成
If MyName.Visible then

已经是逻辑值了，就不需要来=TRUE了。