Salvar PPT em MHTML sem perder Macros

[CIDA CURTOLO]

Olá, estou elaborando uma apresentação no Power Point e preciso salva-la em mhtml (pagina única), pois será rodado via intranet em computadores com XP que não têm o MS Office instalado. Nessa apresentação tenho algumas macros(que cheguei lá com pesquisas e tutoriais), porém quando faço essa conversão perco as macros, e o IE mostra a mensagem:

 

"O internet explorer restringiu a execução de scripts ou controles activex".

 

E mesmo eu permitindo conteúdo bloqueado, não executa.

Ou poderia ser uma linguagem  que o BrOffice aceite, assim poderia fazer todo o trabalho no BrOffice.org Impress.

Grata.

Segue codigo usado no PPT.

Private Sub CommandButton1_Click()If TextBox1.Text = "" And TextBox2.Text = "" ThenMsgBox " Digite Usuario e Senha ", vbInformation, "Erro"ElseIf TextBox1.Text = "TC123456" And TextBox2.Text = "12345678" ThenActivePresentation.SlideShowWindow _.View.GotoSlide (2)TextBox1.Text = ""TextBox2.Text = ""End IfEnd Sub

[TianK]

Olá,

 

Não estou muito familiarizado com a API (VBA) do PowerPoint, por isso não entendi o que seu código faz. Você poderia dar mais detalhes?

 

Outra coisa, BrOffice é mega desatualizado. O indicado é usar o seu sucessor LibreOffice ou até mesmo o OpenOffice da Apache.

 

[]s.

TianK.

[CIDA CURTOLO]

Olá, TianK.

 

 

Antes de mais nada, quero agradecer o interesse em me responder!

 

Vamos lá, esse cod é para uma tela inicial de login com nome de usuario e senha pre definidos, estou tentando

fazer um simulado sobre um procedimento especifico de um certo programa que usamos na empresa.

E somente após ele inserir as informações corretas 

 

(TextBox1.Text = "TC123456" And TextBox2.Text = "12345678" Then)
 

e após clicar no botão "enter" é que daria sequencia ao proximo slide,

 

(ActivePresentation.SlideShowWindow _
.View.GotoSlide (2))

 

observando que feito isso

as informações das duas caixas de texto são apagadas.

 

TextBox1.Text = ""
TextBox2.Text = ""
 

 

Tenha duas caixas de texto, e um botão de comando.

 

 

Esse material será utilizado na empresa a qual seu instrutora de treinamento, e as maquinas dos treinandos somente tem o BrOffice.org 3.2.1 instalado e é inviavel qualquer tipo de alteração.

 

Sendo que também não posso instalar qualquer outro tipo de programa, (por isso preciso do ppt ou impress).

E só posso efetuar todo o trabalho na propria empresa por se tratar de segurança da informação conforme normas de conduta.

 

Torno a agradecer imensamente.

 

Cida.

 

 

 

[CIDA CURTOLO]

Olá,

 

Não estou muito familiarizado com a API (VBA) do PowerPoint, por isso não entendi o que seu código faz. Você poderia dar mais detalhes?

 

Outra coisa, BrOffice é mega desatualizado. O indicado é usar o seu sucessor LibreOffice ou até mesmo o OpenOffice da Apache.

 

[]s.

TianK.

Olá, TianK.

 

 

Antes de mais nada, quero agradecer o interesse em me responder!

 

Vamos lá, esse cod é para uma tela inicial de login com nome de usuario e senha pre definidos, estou tentando

fazer um simulado sobre um procedimento especifico de um certo programa que usamos na empresa.

E somente após ele inserir as informações corretas

 

(TextBox1.Text = "TC123456" And TextBox2.Text = "12345678" Then)

e após clicar no botão "enter" é que daria sequencia ao proximo slide,

 

(ActivePresentation.SlideShowWindow _

.View.GotoSlide (2))

 

observando que feito isso

as informações das duas caixas de texto são apagadas.

 

TextBox1.Text = ""

TextBox2.Text = ""

 

Tenha duas caixas de texto, e um botão de comando.

 

 

Esse material será utilizado na empresa a qual seu instrutora de treinamento, e as maquinas dos treinandos somente tem o BrOffice.org 3.2.1 instalado e é inviavel qualquer tipo de alteração.

 

Sendo que também não posso instalar qualquer outro tipo de programa, (por isso preciso do ppt ou impress).

E só posso efetuar todo o trabalho na propria empresa por se tratar de segurança da informação conforme normas de conduta.

 

Torno a agradecer imensamente.

 

Cida.

[Basole]

@CIDA CURTOLO, os componentes como por exemplo TextBox, CommandButton, etc nao sao compatíveis com o html.

E como a sua macro ela controla o acesso a execução da apresentação(ppt), acho que uma solucao seria voce converter seus arquivos *.ppt para *.html em seguida criar no notepad um formulario ou uma pagina de acesso para sua pagina principal da apresentacao (ppt) em html. 

 

Veja um exemplo de codigo em html de acesso com senha e login:

 

* Abra o Notepad e cole o codigo abaixo em seguida, salve como *.html 

(Se o login for inserido corretamente, a pagina da apresentação será aberta, caso contrario nao.)

 

Em anexo segue um exemplo de PPT convertido para Html.  

Para testa-lo abra o arquivo "acess2.html" (que é identica ao cod. abaixo).  

O login é "usuario" e a senha deixe em branco.

<html> <head><title>User VIP</title><script language="JavaScript">function senha(ans,cel){if((ans=='usuario')|(ans=='123')){if(confirm('Olá '+ans+' deseja realmente entrar?')){msg=open(cel+'iframe_view.html')}else{alert('Então muito obrigado por visitar o meu site\ne Volte sempre')}}else{alert('Senha ou Login errado')}}</script> </head> <body><center>  <b>  <font face="monotype corsiva" size=6 color=#00FF00>Usuários VIP</font></b><font face="monotype corsiva" size=5  color=#00FF00><form onsubmit="senha(ans.value,cel.value)">  <p><b>Login </b></font><font face="monotype corsiva" size=5 color=#ff0000><font face="monotype corsiva" size=5  color=#00FF00><span style="font-weight: 700; background-color: #000000"><input type=text name=ans value=""  size="20"></span><b><br> Senha</b><span style="font-weight: 700; background-color: #000000"><input type=password name=cel value=""  size="20"></span></font><b><br>        </b><span style="font-weight: 700; background-color: #000000">        <input type=submit name=entrar value=Entrar></span><b> </b></p></form></font> </center> </body> </html>

Health and Good habits - cultural fair.pptx_html1.zip