VBA Excel - Deixe as planilhas somente como Leitura - How to Make a File ReadOnly using Excel VBA

| Blog Office VBA | Blog Excel | Blog Access | Blog Infochart | 

Você tem direito as informações da sua empresa

MIS - Usufruindo a excelência na análise das suas Informações

Dados ou Informações?

Dashboards - 8 Importantes características desejáveis

Key Performance Indicators - 7 Características desejáveis

Tópicos relacionados:

Compreendendo o Early Binding e o Late 

Os 10 mandamentos do gerenciamento de projetos

KPI - Key Performance Indicator

Se você ainda não se deparou com a necessidade de salvar uma planilha do MS Excel como um arquivo somente para leitura (às vezes com uma proteção por senha), talvez ainda não tenha compreendido como isso pode ser importante. Faremos isso usando o FileSystemObject.

O código a seguir usa ligação tardia (late binding) e mostra como definir o arquivo somente como leitura.

Function SaveFileReadOnly (ByVal sFile As String)

Dim strSaveFilename As String

Dim oFSO As Object      'Scripting.FileSystemObject

Dim oFile As Object     'Scripting.File

    ' Create Objects

    ' Uses Late Binding

    Set oFSO = CreateObject("Scripting.FileSystemObject")

    Set oFile = oFSO.GetFile(FilePath:=sFile)

    ' Set file to be read-only

    Let oFile.Attributes = 1

 

    ' Releasing Objects

    If Not oFSO Is Nothing Then Set oFSO = Nothing

    If Not oFile Is Nothing Then Set oFile = Nothing

End Function

Tags: VBA, Excel, FileSystemObject, readonly, file, make,