取消了“宏”就什么都完了！

dadream

从头到尾认真看了一遍~学习了~

xjm001

这段宏在EXCEL2003中可运行，为什么在EXCEL2007就不行？请指导。谢谢
Private Sub UserForm_Initialize()
Dim FileName$, cPath$, n%, m%
        cPath = ThisWorkbook.Path
        m = Len(cPath) + 1
        With Application.FileSearch   '从这里开始
            .NewSearch
            .LookIn = cPath
            .FileType = msoFileTypeAllFiles
            .SearchSubFolders = True
            If .Execute(SortBy:=msoSortByFileName, _
                        SortOrder:=msoSortOrderAscending) > 0 Then
                For i = 1 To .FoundFiles.Count
                    n = InStrRev(.FoundFiles(i), "\")
                    FileName = Mid(.FoundFiles(i), n + 1)
                    cPath = Mid(Left(.FoundFiles(i), n - 1), m)
                 If Right(FileName, 3) = "mdb" Then
                     导出数据库表.库名.AddItem FileName
                 End If
                  Next i
            End If
       End With
End Sub

zhui_

无耻的做法
auto_close()里把有用的工作表都隐藏掉，若提示表不存在就新建一个，里面有提示“请启用宏，否则不能使用”等字样
auto_open()里删除这张提示表，把有用的工作表隐藏取消
不启用宏就让他用不了，

dodo2000

应该说是“无用的做法”。在2007里无法实现。不启用宏的时候也可以打开VBE窗口，改掉代码以后再启用宏，就都露出来了。

马上回家

留脚印，以后学习

好学999

看了很久，还是看不懂。

sunjing-zxl

我来学习了

好学999

留下记号，表示路过这里

gger5

同样,可以为VBE工程窗口加上密码,别人就打不开VBE窗口,也就改不了代码了!

lantu

真的很经典啊