Loc

Descrição:

A função Loc em VBA é utilizada para obter o número de série do arquivo atual. Esse número de série é único para cada instalação do Microsoft Excel e pode ser útil em situações onde é necessário identificar de forma única a instalação do aplicativo.

Exemplos:

Sub Exemplo1()
    Dim numeroSerie As Long
    numeroSerie = Loc
    MsgBox "O número de série do arquivo atual é: " & numeroSerie
End Sub
    

Neste exemplo, a função Loc é utilizada para obter o número de série do arquivo atual e exibi-lo em um MsgBox.

Sub Exemplo2()
    Dim numeroSerie As Long
    numeroSerie = Loc
    Range("A1").Value = "Número de Série: " & numeroSerie
End Sub
    

Neste exemplo, a função Loc é utilizada para obter o número de série e escrevê-lo na célula A1 da planilha.

Sub Exemplo3()
    Dim numeroSerie As Long
    numeroSerie = Loc
    ThisWorkbook.Sheets(1).Cells(1, 1).Value = numeroSerie
End Sub
    

Neste exemplo, a função Loc é utilizada para obter o número de série e gravá-lo na célula A1 da primeira planilha do livro.

Sub Exemplo4()
    Dim numeroSerie As Long
    numeroSerie = Loc
    Debug.Print "Número de Série: " & numeroSerie
End Sub
    

Neste exemplo, a função Loc é utilizada para obter o número de série e exibi-lo no console de depuração.

Sub Exemplo5()
    Dim numeroSerie As Long
    numeroSerie = Loc
    If numeroSerie = 12345 Then
        MsgBox "Número de Série Válido"
    Else
        MsgBox "Número de Série Inválido"
    End If
End Sub
    

Neste exemplo, a função Loc é utilizada para obter o número de série e compará-lo a um valor específico.