Views

Histats

Vitrine

VBA Excel - Gravando a Planilha somente como Leitura - How to Make a File ReadOnly



Podemos gravar uma planilha no MS Excel apenas como leitura, se desejarmos.

O código abaixo faz referência ao FileSystemObject, e através dele podemos com a técnica late binding deixar até mesmo um conjunto de planilhas somente como leitura. É um bom código e podemos ampliá-lo por estendermos a sua aplicabilidade. Caso o faça, deixe mais abaixo a sua contribuição.


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

É importante salientar que este código pode ser usado em outros Produtos da suíte MS Office.

Tags: Office, Exce, VBA, read only, file, 

✔ VBA Brazil®

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