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