VBA设置文本文件读/写，然后回到只读？

我正在使用以下vba代码写入到文本文件。

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

我想将文本文件从只读切换到读/写访问，然后在代码完成后再回到只读。

理想情况下，我想尝试和防止用户也可以手动更改此文件的读/写权限，通过设置密码来保护日志文件。

但我不确定这是否可能。

请有人可以告诉我如何得到这个代码来做我所需要的？ 提前致谢

Answer 1

我想你正在寻找Excel中的SetAttr函数。 下面的代码应该做的伎俩：

 Dim FF FF = FreeFile() SetAttr "G:\WH DISPO\(3) PROMOTIONS\(18) LO Delivery Tracking\Reports\LogFile.txt", vbNormal Open "G:\WH DISPO\(3) PROMOTIONS\(18) LO 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) LO Delivery Tracking\Reports\LogFile.txt", vbReadOnly 

有关更多信息，您可能需要阅读以下MSDN： https : //msdn.microsoft.com/en-us/library/a5wx7516(v= vs.90) .aspx