Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Barra de menus em Userform sem o uso de API's - ATUALIZADO
Moderador: Rafael Monteiro
Re: Barra de menus em Userform sem o uso de API's
Não abre a planilha mesmo colocando usaurio e senha nao sai do lugar fico para sem resposta nem da erro de nada
Usuário : admin
Senha : Acesso#01
Usuário : admin
Senha : Acesso#01
Re: Barra de menus em Userform sem o uso de API's
jonasjtg,
Experimente o seguinte :
1) Quando a tela de login aparecer, selecione o campo Usuário e tecle F12;
2) Na tela seguinte, digite a mesma senha e a janela do excel será exibida;
3) Entre na tela do VBE (ALT+F11) e clique com o botão direito no frmLogin e selecione Exibir código;
4) Procure pela sub cmdOK_Click();
5) Agora clique em qualquer linha desta sub e tecle F9;
6) No painel a esquerda, de dois cliques em Esta pasta de trabalho;
7) Na sub Workbook_Open() tecle F5;
8) Digite o nome de usuário e a senha e quando você clicar ok vai entrar na tela em que você teclou F9;
9) Com a tecla F8 você vai debugar o código linha a linha, nesta parte atente para as linhas abaixo de sParametros, pois é aí que você encontrará o erro;
10) Com o mouse sobre Err=, irá aparecer o código de erro que foi gerado. Se o mesmo não estiver na lista, adicione um laço If...End if para este erro.
Caso não consiga, responda aqui mesmo que te ajudo ok?
Abs
Experimente o seguinte :
1) Quando a tela de login aparecer, selecione o campo Usuário e tecle F12;
2) Na tela seguinte, digite a mesma senha e a janela do excel será exibida;
3) Entre na tela do VBE (ALT+F11) e clique com o botão direito no frmLogin e selecione Exibir código;
4) Procure pela sub cmdOK_Click();
5) Agora clique em qualquer linha desta sub e tecle F9;
6) No painel a esquerda, de dois cliques em Esta pasta de trabalho;
7) Na sub Workbook_Open() tecle F5;
8) Digite o nome de usuário e a senha e quando você clicar ok vai entrar na tela em que você teclou F9;
9) Com a tecla F8 você vai debugar o código linha a linha, nesta parte atente para as linhas abaixo de sParametros, pois é aí que você encontrará o erro;
10) Com o mouse sobre Err=, irá aparecer o código de erro que foi gerado. Se o mesmo não estiver na lista, adicione um laço If...End if para este erro.
Caso não consiga, responda aqui mesmo que te ajudo ok?
Abs
Re: Barra de menus em Userform sem o uso de API's
Saulo,
Tentei executar aqui no Excel 2013 e tive alguns probleminhas. Segue algumas dicas para evitar erros em outras máquinas
O método mostrarPlanilhas() dá erro quando você abre o arquivo Menu_Form_Modelo.xls quando outro arquivo já está aberto. Quando usar referência a Sheets, por exemplo, tente sempre usar ThisWorkbook.Sheets para garantir que vai manipular as sheets do seu workbook
O frmLogin dá erro no carregaMnu(), bem na linha frmPrincipal.mnuBar.Buttons.Clear. O erro é do tipo "Tipos Incompatíveis". Como não conheço o controle, não sei o que pode estar acontecendo.
Fora isso, parabéns por compartilhar o trabalho!
Abraços
Tentei executar aqui no Excel 2013 e tive alguns probleminhas. Segue algumas dicas para evitar erros em outras máquinas
O método mostrarPlanilhas() dá erro quando você abre o arquivo Menu_Form_Modelo.xls quando outro arquivo já está aberto. Quando usar referência a Sheets, por exemplo, tente sempre usar ThisWorkbook.Sheets para garantir que vai manipular as sheets do seu workbook
O frmLogin dá erro no carregaMnu(), bem na linha frmPrincipal.mnuBar.Buttons.Clear. O erro é do tipo "Tipos Incompatíveis". Como não conheço o controle, não sei o que pode estar acontecendo.
Fora isso, parabéns por compartilhar o trabalho!
Abraços
Re: Barra de menus em Userform sem o uso de API's
webmaster (Tomas),
Obrigado pelo seu parecer sobre o modelo!!
Estou reescrevendo todo o código no intuito de otimiza-lo e deixa-lo mais organizado e pretendo sim aplicar não só suas sugestões, como muitas outras de outros usuário aqui do fórum e também as que fui "descobrindo" no desenrolar do mesmo.
Posso dizer que este modelo foi elaborado meio que "ás pressas", pios tenho lapsos de memória medonhos... Acabo tendo idéias do nada e se não aplicá-las rápido já viu..
Então hoje, considero este código "feito nas coxas" sabe?
Quanto ao uso no Office 2013, infelizmente não tenho ele para testá-lo agora. Por hora fico sem ter como amparar quem faz uso desta versão.
Mais uma vez, grato por dedicar seu tempo e de compartilhar seus conhecimentos.
Abs
Obrigado pelo seu parecer sobre o modelo!!
Estou reescrevendo todo o código no intuito de otimiza-lo e deixa-lo mais organizado e pretendo sim aplicar não só suas sugestões, como muitas outras de outros usuário aqui do fórum e também as que fui "descobrindo" no desenrolar do mesmo.
Posso dizer que este modelo foi elaborado meio que "ás pressas", pios tenho lapsos de memória medonhos... Acabo tendo idéias do nada e se não aplicá-las rápido já viu..
Então hoje, considero este código "feito nas coxas" sabe?
Quanto ao uso no Office 2013, infelizmente não tenho ele para testá-lo agora. Por hora fico sem ter como amparar quem faz uso desta versão.
Mais uma vez, grato por dedicar seu tempo e de compartilhar seus conhecimentos.
Abs
Re: Barra de menus em Userform sem o uso de API's
Saulo,
O que importa é a intenção. Só o fato que de querer compartilhar o que sabe torna a atitude mais do que nobre.
Vamos em frente!
O que importa é a intenção. Só o fato que de querer compartilhar o que sabe torna a atitude mais do que nobre.
Vamos em frente!