Views

Important:

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

...

17 de julho de 2013

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, 

Nenhum comentário:

Postar um comentário

eBooks VBA na AMAZOM.com.br

Vitrine