Lista de Desafios de Fixação (20 Capítulos)

Esta lista reúne, em formato resumido, o mesmo “🔥 Desafio de Fixação” que já está disponível ao final de cada capítulo — não é um exercício diferente. Serve como cola rápida de gabaritos para o professor conduzir a correção em sala, ou como atividade extra na terceira aula de cada capítulo para alunos que terminam a tarefa principal precocemente. Para o passo a passo completo de cada desafio, consulte a seção “🔥 Desafio de Fixação” dentro do respectivo capítulo.

📅 Módulo 1: Fundamentos

Capítulo 01 - Inventário Adicional

  • Desafio: Adicione 2 novos itens ao seu estoque, aplicando as mesmas formatações dos itens anteriores: LOG-006 (Papel A4) e LOG-007 (Grampeador).
  • Gabarito: Entrada manual — LOG-006 | Papel A4 | Escritório | 50 | 22,00; LOG-007 | Grampeador | Escritório | 12 | 35,00.

Capítulo 02 - O Imposto Logístico

  • Desafio: Crie a coluna “Frete com Imposto (10%)”, multiplicando o Custo do Frete Total (Coluna D) por 1,1.
  • Gabarito: =D5*1,1.

Capítulo 03 - Filtro de Segurança

  • Desafio: Crie a coluna “Risco de Atraso”: retorna VERDADEIRO se a distância (Coluna B) for maior que 400.
  • Gabarito: =B2>400.

Capítulo 04 - Extração de Ano

  • Desafio: No código SP-2026-X, extraia apenas o ano (“2026”) usando EXT.TEXTO.
  • Gabarito: =EXT.TEXTO(A2; 4; 4).

⚙️ Módulo 2: Condicionais e Resumos

Capítulo 05 - Três Estados (SE Aninhado)

  • Desafio: Classifique o valor do pedido em três faixas: se for > 5000, “Recusado”; se for < 1000, “Baixo Risco”; caso contrário, “Normal”.
  • Gabarito: =SE(C2>5000; "Recusado"; SE(C2<1000; "Baixo Risco"; "Normal")).

Capítulo 06 - Alerta de Urgência (Porta OU)

  • Desafio: Marque como “URGENTE” se o prazo for maior que 7 dias OU a taxa de defeito for maior que 2%. Caso contrário, “Normal”.
  • Gabarito: =SE(OU(B2>7; C2>2%); "URGENTE"; "Normal").

Capítulo 07 - Agregação com Operadores Numéricos

  • Desafio: Some o faturamento apenas dos fretes da região Sudeste cujo valor unitário seja estritamente maior que R$ 2.000,00.
  • Gabarito: =SOMASES(C2:C8; B2:B8; "Sudeste"; C2:C8; ">2000").

Capítulo 08 - Blindagem com ÉERROS

  • Desafio: Obtenha o mesmo resultado do SEERRO da Prática 2, mas combinando SE com a função de checagem ÉERROS.
  • Gabarito: =SE(ÉERROS((C2-B2)/B2); "Rota Nova"; (C2-B2)/B2).

🔍 Módulo 3: Buscas e Tempo

Capítulo 09 - Blindando o PROCV com SE.NÃO.DISP

  • Desafio: Se o código digitado não existir na base, exiba “Código Inválido” em vez do erro #N/D.
  • Gabarito: =SE.NÃO.DISP(PROCV(F2; $A$2:$D$6; 2; 0); "Código Inválido").

Capítulo 10 - Localizador do Veículo com Maior Custo

  • Desafio: Adicione uma coluna Custo_Frete (E2:E5) à tabela e encontre o nome do motorista do veículo com o maior custo, combinando MÁXIMO, CORRESP e ÍNDICE.
  • Gabarito: =ÍNDICE(A2:A5; CORRESP(MÁXIMO(E2:E5); E2:E5; 0)).

Capítulo 11 - Busca com Curingas (*)

  • Desafio: Use o modo de correspondência por curinga (modo_correspondência = 2) no PROCX para localizar uma carga digitando apenas parte do código.
  • Gabarito: =PROCX("*" & F2 & "*"; A2:A5; B2:D5; "Não Encontrado"; 2).

Capítulo 12 - Extração com DIA.DA.SEMANA

  • Desafio: Impeça embarques que caiam no domingo usando DIA.DA.SEMANA.
  • Gabarito: =SE(DIA.DA.SEMANA(B2; 2) = 7; "Proibido Embarcar no Domingo"; "Embarque Autorizado").

📊 Módulo 4: Visual e BI

Capítulo 13 - Barra de Dados com Preenchimento Gradiente

  • Desafio: Aplique uma Barra de Dados Azul com Preenchimento Gradiente na coluna de faturamento.
  • Observação: atividade só de interface (Formatação Condicional > Barras de Dados) — não exige fórmula.

Capítulo 14 - Balão de Dica de Entrada (Tooltip)

  • Desafio: Configure uma Mensagem de Entrada na célula da placa: título “Formato Padrão Mercosul”, mensagem “Digite a placa sem traços ou espaços (Exemplo: ABC1D23)”.
  • Observação: atividade só de interface (Validação de Dados > aba Mensagem de Entrada) — não exige fórmula.

Capítulo 15 - Agrupamento Automático de Datas em Meses

  • Desafio: Arraste Data_Emissão para as Linhas da Tabela Dinâmica e agrupe automaticamente por Meses e Trimestres.
  • Observação: atividade só de interface (botão direito na data > Agrupar…) — não exige fórmula.

Capítulo 16 - Estilização Dark Mode do Dashboard

  • Desafio: Pinte o fundo da aba Dashboard de cinza escuro, aplique o tema escuro aos gráficos e a cor Azul Escuro/Grafite ao Slicer.
  • Observação: atividade só de interface — não exige fórmula.

💻 Módulo 5: Programação VBA

Capítulo 17 - Botão de Impressão e PDF

  • Desafio: Grave a macro ExportarPDF, exportando a tabela A1:D4 para PDF, e atribua-a a um botão verde “📄 GERAR PDF”.
  • Gabarito:
    1
2
3
4
5
6

    Sub ExportarPDF()
    Range("A1:D4").ExportAsFixedFormat Type:=xlTypePDF, _
        Filename:=ThisWorkbook.Path & "\Relatorio_Cargas.pdf", _
        Quality:=xlQualityStandard
    MsgBox "Relatório exportado em PDF com sucesso!", vbInformation
End Sub

Capítulo 18 - Classificação com Select Case

  • Desafio: Crie ClassificarVeiculo(), lendo o peso da carga (B3) e classificando o veículo recomendado (B4) com Select Case.
  • Gabarito:
     1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19

    Sub ClassificarVeiculo()
    Dim peso As Double
    Dim veiculoRecomendado As String
    peso = Range("B3").Value
    Select Case peso
        Case 1 To 1500
            veiculoRecomendado = "Veículo Urbano de Carga (VUC)"
        Case 1501 To 6000
            veiculoRecomendado = "Caminhão Toco"
        Case 6001 To 14000
            veiculoRecomendado = "Caminhão Truck"
        Case Is > 14000
            veiculoRecomendado = "Carreta / Articulado"
        Case Else
            veiculoRecomendado = "Peso Inválido"
    End Select
    Range("B4").Value = veiculoRecomendado
    MsgBox "Veículo alocado: " & veiculoRecomendado, vbInformation
End Sub

Capítulo 19 - Loop For Each com Múltiplas Abas

  • Desafio: Crie ProtegerTodasAsAbas(), percorrendo todas as abas da pasta de trabalho com For Each e aplicando uma senha de proteção a cada uma.
  • Gabarito:
    1
2
3
4
5
6
7

    Sub ProtegerTodasAsAbas()
    Dim aba As Worksheet
    For Each aba In ThisWorkbook.Worksheets
        aba.Protect Password:="fastlog2026"
    Next aba
    MsgBox "Todas as abas foram blindadas com sucesso!", vbInformation
End Sub

Capítulo 20 - Blindagem e Proteção com Senha

  • Desafio: Crie ProtegerBase() e DesprotegerBase() para travar/destravar a aba Banco_Dados com senha, referenciando a aba explicitamente (nunca ActiveSheet), seguindo a arquitetura em camadas ensinada no capítulo.
  • Gabarito:
     1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17

    Sub ProtegerBase()
    Worksheets("Banco_Dados").Protect Password:="fastlog2026", _
        UserInterfaceOnly:=True
    MsgBox "Banco de Dados protegido!", vbInformation
End Sub

Sub DesprotegerBase()
    Dim senhaDigitada As String
    senhaDigitada = InputBox("Digite a senha de administrador:", "Autenticação")

    If senhaDigitada = "fastlog2026" Then
        Worksheets("Banco_Dados").Unprotect Password:="fastlog2026"
        MsgBox "Banco de Dados liberado para manutenção.", vbInformation
    Else
        MsgBox "Senha incorreta! Acesso negado.", vbCritical
    End If
End Sub

📥 Download das Planilhas Base

Você pode fazer o download das planilhas com os dados brutos já digitados para iniciar suas atividades práticas: