|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
本帖最后由 cj9687451 于 2019-1-12 02:17 编辑
遇到的问题是:附件内有两个文件,其中"使用日志.xlsx"是用来记录用户使用xlsm时的三个要素:用户名、打开时间、关闭时间。问题是:
1.两个文件都上传到公司云端给大家共享,其中使用日志是全员可以编辑,xlsm文件是只能查看。使用时,要求用户看不到使用日志的开关、记录和关闭,但实际遇到的情况是日志这个文件被服务器默认按照只读文件打开了,如何编辑代码,让文件属性变为可编辑?
2.当实行如下代码进行要素收集时,第三行语句和第五行语句运行特别慢,是说明原因?能否更改得快一些?
Sub getUN()
Set objDomain = CreateObject("ADSystemInfo")
Set objuser = GetObject("LDAP://" & objDomain.UserName)
nrow = Sheet2.Range("a65336").End(xlUp).Row
Sheet2.Cells(nrow + 1, 1) = objuser.DisplayName
Sheet2.Cells(nrow + 1, 2) = Format(Now, "yyyy-mm-dd hh:mm:ss")
End Sub
请路过的朋友多多帮忙指点~谢谢了
|
|