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, 


✔ VBA Brazil®

✔ VBA Brazil®
brazilsalesforceeffectiveness@gmail.com
Related Posts Plugin for WordPress, Blogger...
diHITT - Notícias