Views

Histats

Vitrine

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




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, 

Inline image 2

LinkWithinBrazilVBAExcelSpecialist

Related Posts Plugin for WordPress, Blogger...