VBAをテキストファイルに設定して読み書きした後、読み込み専用に戻しますか？

Question

次のvbaコードを使用してテキストファイルに書き込みます。

'Create log file 
Dim FF 
FF = FreeFile() 
Open "G:\WH DISPO\(3) PROMOTIONS\(18) L.O. Delivery Tracking\Reports\LogFile.txt" For Append As #FF 
Print #FF, Now() & " - " & Application.UserName & " accessed the Delivery Tracker." 
Close #FF 

テキストファイルを読み取り専用から読み取り/書き込みアクセスに切り替えてから、コードが完了したら読み込み専用に戻したいと考えています。

理想的には、ログファイルを保護するためのパスワードを設定することで、ユーザーがこのファイルの読み取り/書き込み権限を手動で変更できないようにしたいと考えています。

しかし、これが可能かどうかはわかりません。

私が必要とすることをこのコードで行う方法を教えてもらえますか？事前に感謝

Answer 1

ExcelでSetAttr関数を探していると思います。あなたはMSDNで次を読みたいかもしれません詳細については

Dim FF 
FF = FreeFile() 
SetAttr "G:\WH DISPO\(3) PROMOTIONS\(18) L.O. Delivery Tracking\Reports\LogFile.txt", vbNormal 
Open "G:\WH DISPO\(3) PROMOTIONS\(18) L.O. Delivery Tracking\Reports\LogFile.txt" For Append As #FF 
Print #FF, Now() & " - " & Application.UserName & " accessed the Delivery Tracker." 
Close #FF 
SetAttr "G:\WH DISPO\(3) PROMOTIONS\(18) L.O. Delivery Tracking\Reports\LogFile.txt", vbReadOnly 

： https://msdn.microsoft.com/en-us/library/a5wx7516(v=vs.90).aspx