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
