' === Pratica Obrigatoria 1 (ATIVO) ===
Option Explicit

Private Sub Workbook_Open()
    Dim ws As Worksheet
    Dim lngQtd As Long
    
    Set ws = ThisWorkbook.Worksheets(1)
    lngQtd = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row - 1
    If lngQtd < 0 Then lngQtd = 0
    
    MsgBox "FastLog TMS Inicializado com Sucesso!" & vbCrLf & _
           "Veículos ativos no pátio: " & lngQtd, vbInformation, "Monitor de Pátio"
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Dim ws As Worksheet
    Dim i As Long
    
    Set ws = ThisWorkbook.Worksheets(1)
    For i = 2 To ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
        If ws.Cells(i, 1).Value <> "" And Trim(ws.Cells(i, 2).Value) = "" Then
            MsgBox "Não é permitido salvar com a coluna de Placas em branco!", vbCritical, "Erro de Validação"
            Cancel = True
            Exit Sub
        End If
    Next i
End Sub

' === Pratica Obrigatoria 2 (COMENTADO PARA EVITAR CONFLITO) ===
'Option Explicit
'
'Private Sub Worksheet_Change(ByVal Target As Range)
'    Dim celula As Range
'    
'    If Target.Cells.CountLarge > 100 Then Exit Sub
'    
'    If Not Intersect(Target, Me.Range("B2:B1000")) Is Nothing Then
'        Application.EnableEvents = False
'        
'        For Each celula In Intersect(Target, Me.Range("B2:B1000"))
'            If Trim(celula.Value) <> "" Then
'                celula.Value = UCase(Trim(Replace(celula.Value, "-", "")))
'                celula.Offset(0, 1).Value = Now
'                celula.Offset(0, 1).NumberFormat = "dd/mm/yyyy hh:mm:ss"
'                celula.Offset(0, 2).Value = "EM PÁTIO / AGUARDANDO DOCA"
'                celula.Offset(0, 2).Font.Bold = True
'                
'                If celula.Offset(0, -1).Value = "" Then
'                    celula.Offset(0, -1).Value = celula.Row - 1
'                End If
'            Else
'                celula.Offset(0, 1).ClearContents
'                celula.Offset(0, 2).ClearContents
'            End If
'        Next celula
'        
'        Me.Columns("A:D").AutoFit
'        Application.EnableEvents = True
'    End If
'End Sub