Home Excel - Dicas Microsoft Excel VBA Excel VBA - Caixa de Dialogo Excel planilha vba caixas de dialogos do windows

Excel planilha vba caixas de dialogos do windows

E-mail Imprimir PDF

Saberexcel - site das macros

Essas macros do Aplicativo Microsoft Excel VBA(Visual Basic Application), abrem caixa de diálogo personalizadas do Windows, tais como.
Caixa de diálogo lista jogos
   ♦ Caixa de diálogo lista de fontes
      ♦ Caixa de diálogo abrir com
         ♦ Caixa configurações de tema
            ♦ Caixar configurações de videos
               ♦ Caixa configuração proteção de tela
                  ♦ Caixa configuracao de ícones na área de trabalho
                     ♦ Caixa configurações de aparência
                        ♦ Caixa painel de controle
                           ♦ Caixa supervisor de conteúdo
                               ♦ Caixa recursos do windows
                                  ♦ Caixa definir acessos a programas padrões do Computador
                                     ♦ Caixa instalar programa a partir da rede
                                         ♦ Caixa desistalar e alterar programas

Baixe o exemplo de planilha no final da página
(Cuidado!!! - Sem os conhecimentos específicos você não deverá alterar nada nas caixas de diálogo do windows que forem abertas, feche-as sem alterar nada)



'Caixa de diálogo lista jogos
Sub caixas_dialogo_lista_jogos()
Dim Caixa As Double
Caixa = Shell("RUNDLL32.EXE shell32.dll,Control_RunDLL joy.cpl")
End Sub

'Caixa de diálogo lista de fontes
Sub caixas_dialogo_lista_fontes()
Dim Caixa As Double
Caixa = Shell("RUNDLL32.EXE SHELL32.DLL,SHHelpShortcuts_RunDLL FontsFolder")
End Sub

'caixa de diálogo abrir com
Sub caixas_dialogo_abrir_com()
Dim Caixa As Double
Caixa = Shell("RUNDLL32.EXE SHELL32.DLL,OpenAs_RunDLL FileName")
End Sub

'Caixa configurações de tema
Sub caixas_dialogo_configuracao_tema()
Dim Caixa As Double
Caixa = Shell("RUNDLL32.EXE shell32.dll,Control_RunDLL desk.cpl,,-1")
End Sub

'Caixar configurações de videos
Sub caixas_dialogo_configuracao_videos()
    Dim Caixa As Double
    Caixa = Shell("RUNDLL32.EXE shell32.dll,Control_RunDLL desk.cpl,,3")
End Sub

'Caixa configuração proteção de tela
Sub caixas_dialogo_configuracao_tela()
    Dim Caixa As Double
    Caixa = Shell("RUNDLL32.EXE shell32.dll,Control_RunDLL desk.cpl,,1")
End Sub

'Caixa configuracao de ícones na área de trabalho
Sub caixas_dialogo_configuracao_area_trabalho()
    Dim Caixa As Double
    Caixa = Shell("RUNDLL32.EXE shell32.dll,Control_RunDLL desk.cpl,,0")
End Sub

'Caixa configurações de aparência
Sub caixas_dialogo_configuracao_aparencia()
    Dim Caixa As Double
    Caixa = Shell("RUNDLL32.EXE shell32.dll,Control_RunDLL desk.cpl,,2")
End Sub
 
'Caixa Painel de Controle
Sub caixas_dialogo_painel_controle()
    Dim Caixa As Double
    Caixa = Shell("RUNDLL32.EXE shell32.dll,Control_RunDLL")
End Sub

'Caixa supervisor de conteúdo
Sub caixas_dialogo_supervisor_conteudo()
    Dim Caixa As Double
    Caixa = Shell("RUNDLL32.EXE msrating.dll,RatingSetupUI")
End Sub

'Caixa recursos do windows
Sub caixas_dialogo_recurso_windows()
    Dim Caixa As Double
    Caixa = Shell("RUNDLL32.EXE shell32.dll,Control_RunDLL appwiz.cpl,,2")
End Sub

'Caixa definir acessos a programas padrões do Computador
Sub caixas_dialogo_definir_acessos_programas_padrao_cpu()
    Dim Caixa As Double
    Caixa = Shell("RUNDLL32.EXE Shell32.dll,Control_RunDLL appwiz.cpl,,3")
End Sub

'Caixa instalar programa a partir da rede
Sub caixas_dialogo_instalar_programa_a_partir_da_rede()
    Dim Caixa As Double
    Caixa = Shell("RUNDLL32.EXE shell32.dll,Control_RunDLL appwiz.cpl,,1")
End Sub

'Caixa desistalar e alterar programas
Sub caixas_dialogo_desinstalar_alterar_programas()
    Dim Caixa As Double
    Caixa = Shell("RUNDLL32.EXE shell32.dll,Control_RunDLL appwiz.cpl,,0")
End Sub

 
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), praticando, com os produtos didáticos Saberexcel



  Baixe o exemplo de planilha contendo os macros de caixa de dialogos personalizadas do windows.
Excel planilha vba caixas de dialogos personalizadas do windows (27.06 KB)

Última atualização em Qua, 10 de Agosto de 2011 08:15  

Adicionar comentário

"Jamais considere seus estudos como uma obrigação, mas como uma oportunidade invejável para aprender a conhecer a influência libertadora da beleza do reino do espírito, para seu próprio prazer pessoal e para proveito da comunidade." Albert Einstein


Código de segurança
Atualizar

Pesquisa Google SaberExcel

Publicidade Google

Publicidade

Rastreamento Correios

Digite o número do SEDEX conforme o exemplo:
Correios do Brasil

Assinatura SaberExcel

Google Associados

Depoimentos

Visitantes SaberExcel

Excel VBA Estudos®
mod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_counter
mod_vvisit_counterHoje3964
mod_vvisit_counterOntem4432
mod_vvisit_counterEsta Semana30487
mod_vvisit_counterSemana passada46212
mod_vvisit_counterEsse mês17693
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10440522
Aprenda MS Excel VBA

Adicione Saberexcel Favoritos

 
 

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel,


   Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA