Sizde olan kodu

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.

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