[求助]ppt的vba project 工程密码如何破解

dstsrdh 发表于: 2008-12-20 18:01 来源: 扑奔PPT网

[求助]ppt的vba project 工程密码如何破解？
有很多execl vba工程密码破解的软件，可是始终没有好用的ppt vba project 工程密码破解软件，只是为了能学习一下优秀的ppt vba制作经验，恳请高手赐教。
如：下例附件中的ppt vba工程不能查看，能否破解或绕过密码。

(2008-12-20 18:01:15, Size: 90.3 KB, Downloads: 104)

[ 本帖最后由 dstsrdh 于 2008-12-20 18:03 编辑 ]

大家对 [求助]ppt的vba project 工程密码如何破解的评论

lemon_up 发表于 2008-12-20 19:40:58: 在网上搜一下，有个Microsoft Office Password Recovery的软件，可以取消密码。。。。
jack0421 发表于 2008-12-20 22:04:37: VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "TitleMaster"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Private Sub 絙腹2_Click()
Call 絙腹
End Sub
Private Sub 礶掸2_Click()
Call 礶掸
End Sub
Private Sub 倔ブ揽2_Click()
Call 倔ブ揽
End Sub
Private Sub 堵︹2_Click()
Call 堵︹
End Sub
Private Sub フ︹2_Click()
Call フ︹
End Sub
Private Sub ︹2_Click()
Call ︹
End Sub
Private Sub 厚︹2_Click()
Call 厚︹
End Sub
Private Sub 屡︹2_Click()
Call 屡︹
End Sub
Private Sub 獵屡︹2_Click()
Call 獵屡︹
End Sub
Private Sub 档︹2_Click()
Call 档︹
End Sub
Private Sub 独︹2_Click()
Call 独︹
End Sub
Private Sub η︹2_Click()
Call η︹
End Sub
Private Sub 挡2_Click()
Call 挡
End Sub
Sub 絙腹()
SlideShowWindows(Index:=1).View.PointerType = ppSlideShowPointerArrow
End Sub
Sub 倔ブ揽()
On Error GoTo 0
Select Case Val(Application.Version)
Case 5
SlideShowWindows(Index:=1).View.EraseDrawing
Case 7
SlideShowWindows(Index:=1).View.EraseDrawing
Case 8
SlideShowWindows(Index:=1).View.EraseDrawing
Case 9
SlideShowWindows(Index:=1).View.EraseDrawing
Case 10
SlideShowWindows(Index:=1).View.EraseDrawing
Case Else
SlideShowWindows(Index:=1).View.PointerType = ppSlideShowPointerEraser
End Select
End Sub
Sub 堵︹()
With SlideShowWindows(Index:=1).View
      .PointerColor.RGB = RGB(Red:=0, Green:=0, Blue:=0)
      .PointerType = ppSlideShowPointerPen
End With
End Sub
Sub フ︹()
With SlideShowWindows(Index:=1).View
      .PointerColor.RGB = RGB(Red:=255, Green:=255, Blue:=255)
      .PointerType = ppSlideShowPointerPen
End With
End Sub
Sub ︹()
With SlideShowWindows(Index:=1).View
      .PointerColor.RGB = RGB(Red:=255, Green:=0, Blue:=0)
      .PointerType = ppSlideShowPointerPen
End With
End Sub
Sub 厚︹()
With SlideShowWindows(Index:=1).View
      .PointerColor.RGB = RGB(Red:=0, Green:=255, Blue:=0)
      .PointerType = ppSlideShowPointerPen
End With
End Sub
Sub 屡︹()
With SlideShowWindows(Index:=1).View
      .PointerColor.RGB = RGB(Red:=0, Green:=0, Blue:=255)
      .PointerType = ppSlideShowPointerPen
End With
End Sub
Sub 獵屡︹()
With SlideShowWindows(Index:=1).View
      .PointerColor.RGB = RGB(Red:=0, Green:=255, Blue:=255)
      .PointerType = ppSlideShowPointerPen
End With
End Sub
Sub 档︹()
With SlideShowWindows(Index:=1).View
      .PointerColor.RGB = RGB(Red:=255, Green:=0, Blue:=255)
      .PointerType = ppSlideShowPointerPen
End With
End Sub
Sub 独︹()
With SlideShowWindows(Index:=1).View
      .PointerColor.RGB = RGB(Red:=255, Green:=255, Blue:=0)
      .PointerType = ppSlideShowPointerPen
End With
End Sub
Sub η︹()
With SlideShowWindows(Index:=1).View
      .PointerColor.RGB = RGB(Red:=160, Green:=160, Blue:=160)
      .PointerType = ppSlideShowPointerPen
End With
End Sub
Sub 挡()
SlideShowWindows(Index:=1).View.Exit
End Sub

698 B , 下载次数: 60)
dstsrdh 发表于 2008-12-22 22:51:28: 多谢楼上两位的热心解答，谢谢啦！:$
QUOTE:
原帖由 lemon_up 于 2008-12-20 19:40 发表
在网上搜一下，有个Microsoft Office Password Recovery的软件，可以取消密码。。。。
我之前已经试过，不能用Microsoft Office Password Recovery取消这个ppt的vba project 工程密码。
QUOTE:
原帖由 jack0421 于 2008-12-20 22:04 发表
VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
END
Attribute VB_Name = "TitleMaster"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attri ...
弱弱地问一句：怎么有乱码？能告诉破解这个ppt的vba project 工程密码的方法吗？先谢了！

[ 本帖最后由 dstsrdh 于 2008-12-22 22:53 编辑 ]