Sizde olan kodu

 Application.FollowHyperlink FileName

alttaki kodla değiştirin böylece salt okunur olarak açar dosyayı.
böyle yazınca yanlış mı anlaşılıyor bilmiyorum. Yani üsteki kodu silin alttaki kodu yazın.

 Application.FollowHyperlink FileName, , True

Hocam hafta içi deneyip sonucu yazacağım.

Hocam verdiğiniz kod doğru her yerde karşıma aynı kod çıkıyor ama bir türlü çalışmıyor. Bende dosyayı açarken değil kopyalarken dosyanın özniteliklerini değiştiren bir kod ürettim dosyayı kopyaladıktan sonra dosyayı salt okunur olarak kayıt ediyor.

Set objFile = FSO.GetFile(DestinationFileName)
objFile.Attributes = objFile.Attributes Or 1