Este fórum está sendo desativado

Depois de 9 anos, este fórum será desativado. Mas calma.... estamos migrando para uma comunidade no DISCORD. Junte-se a nós.

ENTRAR PARA DISCORD

Tópicos relacionados a códigos VBA, gravação de macros, etc.
  • Avatar do usuário
#27616
Galera, boa tarde!
Estou com seguinte questão; a quem puder contribuir...já sou enormemente grato!:

Tenho o seguinte código abaixo que estou utilizando para ocultar todo “toolbar” do Excel, isto é, toda a tela do Excel, exibindo meu formulário no “modo tela cheia”... até aqui tudo ok!

Porém, gostaria de configurar a “label45” (Levar-me ao Excel) com evento click (pode ser duplo click também) para que sempre que eu click nela, o usuário seja remetido para o excel, fechando automaticamente o formulário, possibilitando um acesso normal ao Excel e consequentemente ao vba....pois caso contrário sem essa configuração não tenho mais como acessar minha planilha e meu menu de acesso VBA.
Referente a esta implementação (click/duplo click sobre o label45), se alguém souber como fazer que ao clickar no "label45" (Levar-me ao Excel) ele me pedisse uma senha ou algo parecido para em seguida mostrar o Excel (para que o acesso seja só do administrador munido desta senha) - Galera o negocio da senha também é legal...mas se alguém souber apenas como reexibir a tela do Excel da forma descrita acima já é ótimo...muito obrigado!

Em anexo segue o Projeto!
Código: Selecionar todos
    ‘Esta pasta de trabalho:
Private Sub workbook_open()
call ocultar_tudo
Application.Visible = false
UserForm1.Show
End Sub
Código: Selecionar todos
  ‘No Código do formulário:
Private Sub UserForm_Terminate()
Application.Visible = true
ActiveWorkbook.Save
Application.quit
End sub
Código: Selecionar todos
‘No MODULO:
Sub ocultar_tudo()
Application.ExecuteExcel4Macro "Show, toolbar(""ribbon"",false)"
Application.DisplayFormulaBar = False
Application.DisplayStatusBar = False
Application.Caption = ""

With ActiveWindow
.DisplayHeadings = False
.DisplayWorkbookTabs = False
.DisplayGridlines = False
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayZeros = False
End With
End Sub
Você não está autorizado a ver ou baixar esse anexo.
Editado pela última vez por AMORIM123 em 22 Out 2017 às 21:40, em um total de 1 vez.
#27633
Veja se é isso o que quer.
Você não está autorizado a ver ou baixar esse anexo.
#27654
Meu caro baddallas...obrigado por tentar ajudar!

Mas editei a mensagem inicial, pois não era exatamente só exibir a tela do Excel; preciso que ao clicar na "label45" (Levar-me ao Excel) o formulário seja encerado possibilitando uma edição normal do Excel e consequentemente do VBA...pois da forma que você fez..é exibido o Excel mas não consigo realmente acessar o Excel, pois apenas foi exibido a tela do Excel...se tiver como fazer essa implementação, te agradeço muito meu caro!
#27655
Teste agora, por favor.
Você não está autorizado a ver ou baixar esse anexo.
long long title how many chars? lets see 123 ok more? yes 60

We have created lots of YouTube videos just so you can achieve [...]

Another post test yes yes yes or no, maybe ni? :-/

The best flat phpBB theme around. Period. Fine craftmanship and [...]

Do you need a super MOD? Well here it is. chew on this

All you need is right here. Content tag, SEO, listing, Pizza and spaghetti [...]

Lasagna on me this time ok? I got plenty of cash

this should be fantastic. but what about links,images, bbcodes etc etc? [...]

Estamos migrando para uma comunidade no Discord