✔ VBA Dashboards Specialist®: VBA Excel - Gravando a Planilha somente como Leitura

17 de julho de 2013

DESENVOLVO APLICAÇÕES VBA

Perguntas, Questões e Esclarecimentos

O que é o fenômeno chamado BIG DATA?

Acesse uma ENORME lista de Dashboards e Infográficos

Aprenda a detectar gráficos que precisam mudar

Dados ou Informações?

Dashboards - 8 Importantes características desejáveis

Dashboards e Infocharts - Diversas Visualizações de Dados

Diversos exemplos de Gráficos

Excel - DashMap - Mapa do Brasil

Key Performance Indicators - 7 Características desejáveis

MIS - Usufruindo a excelência na análise das suas Informações

O Melhor do Business Intelligence

Os 10 mandamentos do gerenciamento de projetos

Receba 3 Calendários Customizáveis de 2013 em Excel

Usando Gauges em Dashboards no MS Access

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