![PowerPoint 文档已锁定 - 可能报告错误的用户](https://linux22.com/image/584159/PowerPoint%20%E6%96%87%E6%A1%A3%E5%B7%B2%E9%94%81%E5%AE%9A%20-%20%E5%8F%AF%E8%83%BD%E6%8A%A5%E5%91%8A%E9%94%99%E8%AF%AF%E7%9A%84%E7%94%A8%E6%88%B7.png)
我最近接到一位用户的电话,说她的 PowerPoint(Office 2007)演示文稿已被锁定并由另一位用户编辑(她正在 Citrix 服务器远程工作),但奇怪的是,据称正在编辑文件的用户不在办公桌旁,PC 已关闭,甚至从未听说过该 PowerPoint 演示文稿,更不用说编辑了。这怎么可能?
PowerPoint 演示文稿放在共享驱动器上,人们离开办公桌时会锁定他们的电脑,密码并不常见且每 90 天必须更改一次。
这可能是什么原因造成的?
答案1
有关谁在使用文档的信息来自 Office 注册设置。我不能肯定地说这是你的问题,只是我看到 Office 应用程序在很多地方都包含无效信息。我敢打赌,其他人正在编辑文档,只是在 Office 中输入了错误的名字/首字母。
在我的网络上,我通过创建一个登录脚本来解决这个问题,该脚本在登录时重置 Office 用户名。这已针对 Office 2010 进行了测试,2007 的用户名/首字母可能位于注册表中的某个位置。不过,同样的想法应该适用。
Option Explicit
Dim WindowsDomain
WindowsDomain = "example.org"
Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
Dim WshNetwork
Set WshNetwork = CreateObject("WScript.Network")
Dim User
Set User = GetObject("WinNT://" & WindowsDomain & "/" & WshNetwork.UserName & ",user")
Dim SplitName
SplitName = Split(User.Fullname, " ", 3)
Dim Initials, NamePart
Initials = ""
For Each NamePart in SplitName
Initials = Initials & Left(NamePart,1)
Next
Initials = Left(Initials,3)
WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\Common\UserInfo\UserInitials", Initials, "REG_SZ"
WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\Common\UserInfo\UserName", User.Fullname, "REG_SZ"