SureOriginally Posted by mojo69
Code:Private Declare Function SetFileAttributes Lib "kernel32" Alias "SetFileAttributesA" _ (ByVal lpFileName As String, ByVal dwFileAttributes As Long) As Long 'add this after your document has been created and saved SetFileAttributes App.Path & "\" & strFileName, vbReadOnly 'others you can set are: vbReadOnly vbHidden vbSystem vbArchive




Reply With Quote