VBA设置文本文件以读/写，然后返回仅读取

Question

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

'Create log file
Dim FF
FF = FreeFile()
Open "G:WH DISPO(3) PROMOTIONS(18) L.O. Delivery TrackingReportsLogFile.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) L.O. Delivery TrackingReportsLogFile.txt", vbNormal
Open "G:WH DISPO(3) PROMOTIONS(18) L.O. Delivery TrackingReportsLogFile.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 TrackingReportsLogFile.txt", vbReadOnly

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