Important:

Quaisquer soluções e/ou desenvolvimento de aplicações pessoais, ou da empresa, que não constem neste Blog podem ser tratados como consultoria freelance.

Views

Vitrine

+Views

Widgets Mundo Blogger

VBA Excel - Como salvar uma planilha como somente leitura - How to Make a File ReadOnly using Excel VBA

Inline image 1
Ao gerar relatórios em planilhas eletrônicas é muito útil fazê-lo tornando-as somente leitura. Como? Segue:

Function MakeFileReadOnly (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
    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

Esta funcionalidade não está restrita ao MS Excel, pode ser usada com outros arquivos.

Tags: VBA, Excel, readonly, file




Related Posts Plugin for WordPress, Blogger...
diHITT - Notícias