PPT课件也可加密

　　If TextBox1.Value = "123456" Then
　　With SlideShowWindows(1).View
　　.GotoSlide 3
　　End With
　　Else
　　MsgBox ("密码错误，请重新输入")
　　TextBox1.Text = ""
　　End If

　　提示：第一行代码中的“123456”就是密码，倒数第三行中的汉字对应着密码输入出错时的提示信息，朋友们可以任意改变它们。
　　这时播放幻灯片，要转到第三页时会提示输入密码，如果不输入或者输入错误，就会弹出一个消息框(图3)，点击“确定”后，文本框会清空以待再次输入密码。