Dosyanın özelliklerini değiştirmeye yarayan VBA kodudur.
Option Explicit Private Sub DosyaninOzellikleriniDegistir() SetAttr "D:\OrnekBelge.txt", _ vbNormal + vbReadOnly + vbHidden + vbSystem + vbArchive End Sub