Home Excel - Downloads / Areas Restritas Excel VBA - Caixas de Dialogo

Excel VBA - Caixas de Dialogo

  • - Acesso Livre
  • Documentos

    Ordenar por : Nome | Data | Acessos [ Ascendente ]

    vba caixas de dialogos personalizadas do windows vba caixas de dialogos personalizadas do windows

    popular!
    Adicionado em: 17/02/2011
    Modificado em: 17/02/2011
    Tamanho: Vazio
    Downloads: 1292

    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


    PROMOÇÃO DIDÁTICOS SABEREXCEL



    Adquira já o Acesso Imediato
    à Area de Membros

    Compra Grantida --- Entrega Imediata

    Aprenda Excel VBA com Simplicidade de 
    códigos e Eficácia, Escrevendo Menos e
    Fazendo Mais.

    '-------------------------------------'
    Entrega Imediata:
    +  500 Video Aulas MS Excel VBA
    +  35.000 Planilhas Excel e VBA
    +  Coleção 25.000 Macros MS Excel VBA
    +  141 Planilhas Instruções Loops
    +  341 Planilhas WorksheetFunctions(VBA)
    +    04 Módulos Como Fazer Excel VBA
    +  Curso Completo MS Excel VBA
    +  Planilhas Inteligentes


    Pesquisa Google SaberExcel

    Publicidade Google

    <script type="text/javascript"><!--

    google_ad_client = "ca-pub-2317234650173689";

    /* retangulo 336 x 280 */

    google_ad_slot = "0315083363";

    google_ad_width = 336;

    google_ad_height = 280;

    //-->

    </script>

    <script type="text/javascript"

    src="http://pagead2.googlesyndication.com/pagead/show_ads.js">

    </script>

    Publicidade

    RSFirewallProtected


    Google Associados

    Depoimentos

    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