[Resolvido]Executar arquivos somente leitura.

Boa noite pessoal.
Se existe tal função aqui no fórum não consegui encontrar.
Existe alguma maneira de executar arquivos em modo READ ONLY?
Estou pensando em usar ShellExecute mas, até onde pude entender nessa API não existe tal opção.
Tentei inúmeras dicas (Gambiarras) postadas na internet mas, não consegui executar. Sei que alguns tipos de arquivo não dão suporte à esse recurso (Somente leitura), então o ideal seria que o windows abrisse uma cópia do arquivo na pasta %Temp%.

Estou preocupado com a integridade do arquivo, já que o mesmo será executado pelo programa padrão relacionado à extensão do arquivo, pode ser um editor.

Alguém pode me ajudar com essa questão?
Obrigado.

Bom dia, Luís
Em vez de abrir o ficheiro, copie-o e abra a cópia.

num modulo
.............

Declare Function SetFileAttributes Lib "kernel32.dll" Alias "SetFileAttributesA" (ByVal lpFileName As String, ByVal dwFileAttributes As Long) As Long

Const FILE_ATTRIBUTE_ARCHIVE = &H20
Const FILE_ATTRIBUTE_HIDDEN = &H2
Const FILE_ATTRIBUTE_NORMAL = &H80
Const FILE_ATTRIBUTE_READONLY = &H1
Const FILE_ATTRIBUTE_SYSTEM = &H4


Public Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" ( _
ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long



...........................................


Private Sub teuBotão_Click()
Dim strficheiro As String

strficheiro = "teste.doc"
ShellExecute Me.hwnd, vbNullString, strficheiro, vbNullString, "C:\", FILE_ATTRIBUTE_READONLY

End Sub

Em primeiro lugar agradeço aos colegas que dispuseram do seu tempo e participaram do tópico.

Ricardo não entendo o porque, mas não consegui conforme proposto. Para ser sincero já havia tentado isso antes de colocar o tópico. Talvez seja o fato do meu Sistema Operacinal ser 64bits.

Consigo alterar os atributos com o comando do VBA SetAttr pathname, attributes.

Constante | Valor | Descrição
vbNormal | 0 | Normal (padrão).
vbReadOnly | 1 | Somente leitura.
vbHidden | 2 | Oculto.
vbSystem | 4 | Arquivo do sistema. Não disponível no Macintosh.
vbArchive | 32 | O arquivo foi alterado após o último backup.
vbAlias | 64 | O nome do arquivo especificado é um alias. Disponível somente no Macintosh.

Resolve, mas não sei se é a melhor maneira. Caso o arquivo esteja aberto ele da erro. Acredito que irei "setar" no momento que fizer a cópia do mesmo para o diretório destino.
Deixarei o tópico aberto mais um pouco para ver se resolvemos.

A propósito, conforme proposto por você, não retorna erro algum mas, o arquivo se abre em estado normal.
Estou anexando o arquivo em versão 2007, alguém poderia fazer a gentileza de testar num SO 32bits?
Obrigado.

como lhe passei acima abre em modo de leitura sim.

repara que deixa alterar o conteúdo do documento, mas se salvar ele diz que é somente de leitura.

testado no 32bits

repara também que o directório já consta na instrução em C:\



Dim Caminho As String

Caminho = Me.txtDiretorio

ShellExecute Me.hwnd, vbNullString, Caminho, vbNullString, "C:\", FILE_ATTRIBUTE_READONLY

End Sub

Obrigado Ricardo.
É como disse. Não entendo o porque de não funcionar em minha máquina.
Você usou o exemplo que anexei? Houve necessidade de alteração?

Alguém poderia testar no SO 64bits também?
Obrigado.

usei o teu exemplo e nada foi alterado.

Luís
Já resolveu? Precisa de alguém que tenha SO 64bits?

Não tendo havido evolução, o assunto passa a resolvido.