Como usar a instrução SaveSetting no VBA?

A instrução `SaveSetting` no VBA é usada para gravar configurações em entradas do Registro do Windows para aplicativos do Office. Ela permite que você salve informações específicas do usuário associadas ao seu aplicativo, como preferências de configuração.

Aqui está a sintaxe básica do `SaveSetting`:

SaveSetting appName, section, key, setting

`appName`: Uma string que especifica o nome do aplicativo ou projeto.
`section`: Uma string que especifica o nome da seção do aplicativo onde a configuração será salva.
`key`: Uma string que especifica o nome do item de configuração que você deseja definir.
`setting`: O valor que você deseja atribuir ao item de configuração, que deve ser uma string.

Exemplo de Uso

Vamos supor que você tem um aplicativo chamado “MeuApp” e deseja salvar a preferência do usuário para habilitar ou desabilitar um recurso chamado “RecursoX”. Aqui está como você poderia usar `SaveSetting`:

Sub SalvarConfiguracaoRecursoX()
    Dim appName As String
    Dim section As String
    Dim key As String
    Dim setting As String

    appName = "MeuApp"
    section = "Preferencias"
    key = "RecursoX"
    setting = "Habilitado"

    ' Salva a configuração no Registro do Windows
    SaveSetting appName, section, key, setting
End Sub

Leitura da Configuração Salva

Para ler uma configuração que você salvou com `SaveSetting`, use a função `GetSetting`:

Sub LerConfiguracaoRecursoX()
    Dim appName As String
    Dim section As String
    Dim key As String
    Dim valorSalvo As String

    appName = "MeuApp"
    section = "Preferencias"
    key = "RecursoX"

    ' Lê a configuração do Registro do Windows
    valorSalvo = GetSetting(appName, section, key, "Desabilitado") ' Valor padrão é "Desabilitado"

    MsgBox "A configuração do RecursoX é: " & valorSalvo
End Sub

Removendo Configurações

Para remover uma configuração ou uma seção inteira, utilize `DeleteSetting`:

Sub RemoverConfiguracaoRecursoX()
    Dim appName As String
    Dim section As String
    Dim key As String

    appName = "MeuApp"
    section = "Preferencias"
    key = "RecursoX"

    ' Remove a configuração do Registro do Windows
    DeleteSetting appName, section, key
End Sub

Nota Importante: A modificação direta do Registro do Windows pode afetar o funcionamento do sistema operacional ou de outros aplicativos se não for feita corretamente. Use `SaveSetting` e `DeleteSetting` com cuidado para evitar problemas.

facebooklinkedin