Hej vill (om det går) öppna ett worddokument skrivskyddat med shell execute!

/peter

Jag vet inte men du kan kanske använda det här:

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

Public Function ChangeFileAttributes(strFile As String)
Dim fileattrs As Long
Dim retval As Long

fileattrs = FILE_ATTRIBUTE_READONLY
retval = SetFileAttributes(strFile, fileattrs)
End Function

Du menar att innan jag öppnar sätta filen skrivskyddad och efter återställa skrivskyddet. Låter bökigt, avvaktar få se om det är nån annan som har tips.

Måste ju gå att skicka med en växel till word som gör att filen öppnas skrivskyddad ?!?!?!?!

/peterh

Titta i hjälpen om där finns något om parametrar till Word.

/Frans