Olá meu problema é o seguinte, Criei uma apresentação, PPSM, só que para ela abrir é preciso que o usuário forneça o padrão de senha correto, até ai tudo bem ja fiz.... meu problema é que preciso que essa tela onde se fornece o formulário apareça antes da apresentação..quando o usuário fornecer o correto este formulário chama a apresentação que preciso.
Alguém pode me ajudar.... meu código está assim
Private Sub txt3_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
If txt1 = "1" And txt2 = "3" And txt3 = "2" Then
MsgBox (" Acesso realizado com sucesso")
Dim appPP As Object
Dim Pres As Object
Dim Caminho As String
Caminho = "D:\xxxx\apresentação1.ppsm"
Set appPP = CreateObject("PowerPoint.Application")
Set Pres = appPP.Presentations.Open(Caminho)
Pres.SlideShowSettings.Run
Pres.SlideShowSettings.Run
FrmAcesso.Enabled = False
Else
MsgBox (" O padrão não confere")
txt1.SetFocus
txt1 = ""
txt2 = ""
txt3 = ""
End If
End Sub
Private Sub UserForm_Initialize()
Me.Caption = "Forneça o Padrão Correto!"
Me.BackColor = RGB(10, 25, 100)
End Sub
Alguém pode me ajudar.... meu código está assim
Private Sub txt3_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
If txt1 = "1" And txt2 = "3" And txt3 = "2" Then
MsgBox (" Acesso realizado com sucesso")
Dim appPP As Object
Dim Pres As Object
Dim Caminho As String
Caminho = "D:\xxxx\apresentação1.ppsm"
Set appPP = CreateObject("PowerPoint.Application")
Set Pres = appPP.Presentations.Open(Caminho)
Pres.SlideShowSettings.Run
Pres.SlideShowSettings.Run
FrmAcesso.Enabled = False
Else
MsgBox (" O padrão não confere")
txt1.SetFocus
txt1 = ""
txt2 = ""
txt3 = ""
End If
End Sub
Private Sub UserForm_Initialize()
Me.Caption = "Forneça o Padrão Correto!"
Me.BackColor = RGB(10, 25, 100)
End Sub