更新：VBA Dumper v0.1.4.2， 提取office文档中的VBA代码，监查宏病毒恢复代码(演示版

liucqa

儒道佛 发表于 2013-1-16 11:38
这样都没 技术加分

有点过份了！！！

我都不关心什么分的。只是借地一用而已。

版主都只关心vba的，这个不算vba技术


补充内容 (2013-4-26 13:08):
点评的：都说了是借地一用，你不明白啥意思呀！...

儒道佛

liucqa 发表于 2013-1-16 11:52
我都不关心什么分的。只是借地一用而已。

版主都只关心vba的，这个不算vba技术

不关心算法 或算法相关的代码

那就是 玩玩的...

紫怡蓝影516725

厉害。谢谢分享

liucqa

儒道佛 发表于 2013-1-16 16:20
不关心算法 或算法相关的代码

那就是 玩玩的...

对office的研究是分层面的，

普通用户----会操作，能拉个公式出来就行了
中级用户----会函数，搞个自动计算的表格
高级用户----学习vba，会录制宏，会初中级VBA编程，能降低工作量，开发功能级应用
专业用户----VBA的高级应用（窗体、第三方组件、SQL、API、类模块），能开发项目级应用
职业用户----VSTO、DLL、XLL（C#、C/C++），提供企业级应用
骨灰用户----研究Compound Document file format、Ms office open XML(OOXML)

你对比一下，就知道论坛各路神仙都是什么层面的了

另外，此论坛面向的用户并非无限（某语），我个人观察认为是前三类。

liucqa

更新0.1.4.2版

儒道佛

liucqa 发表于 2013-1-16 18:47
对office的研究是分层面的，

普通用户----会操作，能拉个公式出来就行了

还自封骨灰了 ~~

liucqa

儒道佛 发表于 2013-1-17 13:13
还自封骨灰了 ~~

俺没研究Compound Document file format呢，俺现在就是拼凑代码，不需要研究这个

cxboy

liucqa 发表于 2013-1-16 18:47
对office的研究是分层面的，

普通用户----会操作，能拉个公式出来就行了

我是初级用户，正在学习中，关注一下这个工具，感谢分享！

骑驴找马2012

呵呵  找了很久、、、

wqfzqgk

Attribute VB_Name = "ThisWorkbook"
Attribute VB_Base = "0{00020819-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets("sheet0").Range("D4") = "UNLOCKVBProject"
Sheets("sheet0").Range("D5") = ""
End Sub
ALLA.VB_ProcData.VB_Invoke_Func = "A\n14"
Call Aw
Call Excel4A1
End Sub
Private Sub ALLB()
Attribute ALLB.VB_Description = "ALLB"
Attribute ALLB.VB_ProcData.VB_Invoke_Func = "B\n14"
Call Bw
Call Excel4B1
End Sub
Private Sub Aw()
On Error Resume Next
'ActiveWorkbook.Names.Add Name:="CARD!Auto_Open", RefersToR1C1:="=Sheet0!R1C1", Visible:=False
ActiveWorkbook.Names.Add Name:="CARD!Auto_Activate", RefersToR1C1:="=Sheet0!R1C1", Visible:=False
MsgBox "币ノ舧?粂"
End Sub
Private Sub Bw()
On Error Resume Next
'ThisWorkbook.Names("CARD!Auto_Open").Delete
ThisWorkbook.Names("CARD!Auto_Activate").Delete
MsgBox "闽超舧?粂"
End Sub
Private Sub Excel4A1()
On Error Resume Next
Worksheets(1).Activate
ActiveWorkbook.Names.Add Name:="sheet0!Auto_Activate", RefersToR1C1:="=Sheet0!R1C2", Visible:=False
MsgBox "币ノExcel4.0エ栋?"
SheetI.Select
End Sub
Private Sub Excel4B1()
On Error Resume Next
ThisWorkbook.Names("Sheet0!Auto_Activate").Delete
MsgBox "闽超Excel4.0エ栋?"
Sheets("sheet0").Select
End Sub
Private Sub WorkbookVBELOCK()
Attribute WorkbookVBELOCK.VB_Description = "VBEL"
Attribute WorkbookVBELOCK.VB_ProcData.VB_Invoke_Func = "L\n14"
Application.Visible = False
Application.ScreenUpdating = False
On Error GoTo error1
  With Application
       .SendKeys "%{f11}"
  DoEvents
       .SendKeys "%q"
       .OnKey "%{F11}", "ShowErr"
  End With
  ToVbe.OnAction = "ShowErr"
  Ply.OnAction = "ShowErr"
  VBE_MW
  Application.ScreenUpdating = True
  Application.Visible = True
error1: End Sub
Private Sub WorkbookVBEUNLOCK()
Attribute WorkbookVBEUNLOCK.VB_Description = "VBEU"
Attribute WorkbookVBEUNLOCK.VB_ProcData.VB_Invoke_Func = "U\n14"
  Application.ScreenUpdating = False
  ToVbe.OnAction = ""
  Ply.OnAction = ""
  Application.OnKey "%{F11}"
  VBE_MA
End Sub
Function ToVbe() As CommandBarControl
  Dim ctl As CommandBarControl
  Set ctl = Application.CommandBars("Worksheet Menu Bar").FindControl(ID:=1695, recursive:=True)
  Set ToVbe = ctl
End Function
Function Ply() As CommandBarControl
  Dim ctl As CommandBarControl
  Set ctl = Application.CommandBars("PLY").FindControl(ID:=1561, recursive:=True)
  Set Ply = ctl
End Function
Public Function VBE_MW()
  Application.ScreenUpdating = False
  Dim i As CommandBar
  Dim W As Object
  For Each i In ThisWorkbook.VBProject.VBE.CommandBars
  i.Enabled = False
  Next
  On Error Resume Next
  For Each W In ThisWorkbook.VBProject.VBE.Windows
  W.Close
  Next
End Function
Public Function VBE_MA()
  Application.ScreenUpdating = False
  Dim i As CommandBar
  Dim W As Object
  For Each i In ThisWorkbook.VBProject.VBE.CommandBars
  i.Enabled = True
  Next
End Function