Detalhes de vba caixas de dialogos personalizadas do windows

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 voce 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