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)