' === Exemplo Guiado (ATIVO) ===
? ActiveWorkbook.Worksheets.Count

' === Pratica Obrigatoria 1 (COMENTADO PARA EVITAR CONFLITO) ===
'Option Explicit
'
'Sub GerarEstruturaFiliaisCompleta()
'    Dim arrFiliais(1 To 3) As String
'    Dim arrCores(1 To 3) As Long
'    Dim i As Long
'    Dim wsNova As Worksheet
'    Dim strNomeAba As String
'    
'    arrFiliais(1) = "Expedicao_SP"
'    arrCores(1) = RGB(41, 128, 185)
'    
'    arrFiliais(2) = "Expedicao_RJ"
'    arrCores(2) = RGB(230, 126, 34)
'    
'    arrFiliais(3) = "Expedicao_MG"
'    arrCores(3) = RGB(142, 68, 173)
'    
'    ' Otimização de Performance
'    Application.ScreenUpdating = False
'    
'    For i = 1 To 3
'        strNomeAba = arrFiliais(i)
'        
'        Set wsNova = Nothing
'        On Error Resume Next
'        Set wsNova = ThisWorkbook.Worksheets(strNomeAba)
'        On Error GoTo 0
'        
'        If wsNova Is Nothing Then
'            Set wsNova = ThisWorkbook.Worksheets.Add(After:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count))
'            wsNova.Name = strNomeAba
'        Else
'            wsNova.Unprotect "FastLog2026"
'            wsNova.Cells.Clear
'        End If
'        
'        wsNova.Tab.Color = arrCores(i)
'        
'        With wsNova.Range("A1:D1")
'            .Merge
'            .Value = "CONTROLE OPERACIONAL - " & UCase(strNomeAba)
'            .Font.Bold = True
'            .Font.Size = 13
'            .Font.Color = RGB(255, 255, 255)
'            .Interior.Color = arrCores(i)
'            .HorizontalAlignment = xlCenter
'        End With
'        
'        wsNova.Range("A2").Value = "ID Carga"
'        wsNova.Range("B2").Value = "Cidade Destino"
'        wsNova.Range("C2").Value = "Peso (Kg)"
'        wsNova.Range("D2").Value = "Frete Líquido"
'        
'        With wsNova.Range("A2:D2")
'            .Font.Bold = True
'            .Interior.Color = RGB(240, 240, 240)
'            .Borders.Weight = xlThin
'        End With
'        
'        wsNova.Columns("A:D").AutoFit
'        
'        ' Aplicação da Proteção Corporativa (Desafio de Fixação)
'        wsNova.Protect Password:="FastLog2026", Contents:=True
'    Next i
'    
'    Application.ScreenUpdating = True
'    MsgBox "Estrutura das filiais gerada e protegida com sucesso!", vbInformation, "Governança FastLog"
'End Sub