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, 

LinkWithinBrazilVBAExcelSpecialist

Related Posts Plugin for WordPress, Blogger...