ppt vba怎样实现excel vba中Application.SendKeys "{TAB}"的功能?

shenjianrong163 · 发表于 2020-1-14 23:07

在excel vba中，可以实现Application.SendKeys "{TAB}"，可是这样的代码在ppt vba中无效。请问ppt vba中该怎样编写呢?谢谢！

大灰狼1976 · 发表于 2020-1-15 17:00

去掉Application.

shenjianrong163 · 发表于 2020-1-15 18:05

大灰狼1976 发表于 2020-1-15 17:00
去掉Application.

谢谢，去掉后可以执行了。只是还有一个问题：访问工程时“查看时锁定工程”没有勾上。

Sub AddVBProjectProtection()
On Error Resume Next
'Set Obj = Application.VBE.ActiveVBProject ' 检查是否勾选VBA工程访问权限
If Err.Number <> 0 Then
   MsgBox "请勾选信任对VBA工程对象模型的访问"
Exit Sub
End If
If Application.VBE.MainWindow.Visible Then
   Application.VBE.MainWindow.Visible = False
End If
Dim pw As Long
pw = "123"
Application.VBE.CommandBars(1).Controls("工具(T)").Controls("VBAProject 属性(&E)...").Execute
SendKeys "^{TAB}"  '切换到密码页
SendKeys "{107}" '勾选查看工程密码
SendKeys "{TAB}" '换到输入密码
SendKeys pw       '输入密码
SendKeys "{TAB}" '跳到下一个
SendKeys pw       '输入密码
SendKeys "{ENTER}" '确定
End Sub

shenjianrong163 · 发表于 2020-1-15 18:09

谢谢，去掉后可以运行了，只是 SendKeys "{107}" '勾选查看工程密码

这儿不起作用，没有勾上。
Sub AddVBProjectProtection()
On Error Resume Next
'Set Obj = Application.VBE.ActiveVBProject ' 检查是否勾选VBA工程访问权限
If Err.Number <> 0 Then
MsgBox "请勾选信任对VBA工程对象模型的访问"
Exit Sub
End If
If Application.VBE.MainWindow.Visible Then
Application.VBE.MainWindow.Visible = False
End If
Dim pw As Long
pw = "123"
Application.VBE.CommandBars(1).Controls("工具(T)").Controls("VBAProject 属性(&E)...").Execute

SendKeys "^{TAB}"  '切换到密码页
SendKeys "{107}" '勾选查看工程密码
SendKeys "{TAB}" '换到输入密码
SendKeys pw       '输入密码
SendKeys "{TAB}" '跳到下一个
SendKeys pw       '输入密码
SendKeys "{ENTER}" '确定
End Sub

lss001 · 发表于 2020-1-15 19:00

本帖最后由 lss001 于 2020-1-15 19:54 编辑

shenjianrong163 发表于 2020-1-15 18:09
谢谢，去掉后可以运行了，只是 SendKeys "{107}" '勾选查看工程密码这儿不起作用，没有勾上。
Sub Ad ...

Set ws = CreateObject("wscript.shell")
ws.SendKeys "%LV%TE{tab 9}{end}{tab}V{tab 2}"

shenjianrong163 · 发表于 2020-1-15 19:06

lss001 发表于 2020-1-15 19:00
Set ws = CreateObject("wscript.shell")
ws.SendKeys "{TAB}"

问题也一样，“查看时锁定工程”没有勾上。

shenjianrong163 · 发表于 2020-1-15 19:07

shenjianrong163 发表于 2020-1-15 19:06
问题也一样，“查看时锁定工程”没有勾上。

SendKeys "{107}" '勾选查看工程密码
在excel中能实现，在ppt中却不能。

shenjianrong163 · 发表于 2020-1-15 19:08

大灰狼1976 发表于 2020-1-15 17:00
去掉Application.

SendKeys "{107}" '勾选查看工程密码
在excel中能实现，在ppt中却不能。

lss001 · 发表于 2020-1-15 19:53

本帖最后由 lss001 于 2020-1-15 19:55 编辑

shenjianrong163 发表于 2020-1-15 19:08
SendKeys "{107}" '勾选查看工程密码
在excel中能实现，在ppt中却不能。

Sub hh()
Dim pw As Long
Set ws = CreateObject("wscript.shell")
pw = "123"
ws.SendKeys "%LV%TE{tab 9}{end}{tab}V{tab 2}"
ws.SendKeys pw
ws.SendKeys "{tab}"
ws.SendKeys pw
ws.SendKeys "{ENTER}"
End Sub

shenjianrong163 · 发表于 2020-1-15 22:20

lss001 发表于 2020-1-15 19:53
Sub hh()
Dim pw As Long
Set ws = CreateObject("wscript.shell")

谢谢！运行后有小点问题。

我更改了其中一点，可以运行了。只是运行完成后都要定位到工程模块，可以让它自动关闭工程模块吗?同时请解释下ws.SendKeys "%LV%TE{tab 9}{end}{tab}V"

下面这是我更改过的：
Sub hh()
Dim pw As Long
Set ws = CreateObject("wscript.shell")
pw = "123"
ws.SendKeys "%LV%TE{tab 9}{end}{tab}V"
ws.SendKeys "{tab}"
ws.SendKeys pw
ws.SendKeys "{tab}"
ws.SendKeys pw
ws.SendKeys "{ENTER}"
End Sub

		自动登录	找回密码
密码			免费注册

[求助] ppt vba怎样实现excel vba中Application.SendKeys "{TAB}"的功能?

最新热点 /1