如何在PowerPoint放映模式下校验用户文本输入实现密码验证?
PowerPoint放映态密码输入校验跳转实现方案
注:以下所有逻辑仅在幻灯片放映模式下生效,编辑模式下不会触发任何校验规则,完全匹配需求场景
实现步骤
- 调出开发工具选项卡
点击「文件-选项-自定义功能区」,在右侧主选项卡列表里勾选「开发工具」,点击确定后顶部菜单栏就会显示开发工具入口。
- 调出开发工具选项卡
- 插入密码输入框
切到需要设置密码校验的幻灯片,在开发工具选项卡选择「文本框(ActiveX控件)」,在页面上拖动画出合适大小的输入区域。右键点击这个文本框选择「属性」,找到PasswordChar项,填入*,这样用户放映时输入的所有内容都会显示为星号,符合密码输入的交互习惯。
- 插入密码输入框
- 插入校验触发按钮
同样在开发工具选项卡选择「命令按钮(ActiveX控件)」,拖到输入框旁的合适位置,右键点击按钮选「属性」,把Caption字段改成「提交」或者「验证进入」这类你需要的按钮文案。
- 插入校验触发按钮
- 写入校验逻辑
双击刚才插入的提交按钮,会自动弹出VBA编辑窗口,在自动生成的按钮点击事件框架里填入如下代码,注意把代码里的你的预设密码替换成你实际需要设置的密码内容:
- 写入校验逻辑
Private Sub CommandButton1_Click() ' 校验输入内容和预设密码是否匹配 If TextBox1.Text = "你的预设密码" Then ' 校验通过,跳转下一张幻灯片 SlideShowWindows(1).View.Next Else ' 校验不通过,弹提示并清空输入框 MsgBox "密码错误,请重新输入" TextBox1.Text = "" End If End Sub
填完直接关闭VBA编辑窗口就行,代码会自动绑定到按钮上。
- 锁死默认翻页通道,避免绕过校验
选中这张密码页幻灯片,切到顶部「切换」选项卡,取消勾选「单击鼠标时」「设置自动换片时间」两个选项;再打开「幻灯片放映」选项卡,点击「设置幻灯片放映」,选择放映类型为「在展台浏览(全屏幕)」,确认保存。这一步做完,用户就没法通过点击空白处、按空格/方向键这类常规操作直接翻页,必须通过密码校验才能进入下一页。
- 锁死默认翻页通道,避免绕过校验
注意事项
- 保存文件时必须选择
*.pptm(启用宏的PowerPoint演示文稿)格式,否则VBA校验代码会丢失,功能无法正常运行。 - 首次打开该文件时,需要点击顶部安全提示栏的「启用内容」,宏代码才能正常加载生效。
内容的提问来源于stack exchange,提问作者Amber
相关产品推荐
相关产品推荐

