请问高手如何用vba锁住“用户信息”选项卡？

xiaotutuzz

请问高手如何用vba锁住“用户信息”选项卡？

wenz

你的意思是不让用户修改用户信息吗.我没找到,不过可以这样变通:

在Nromal.dot模板的ThisDocuments的代码中添加以下语句 Private Sub Document_Close()

Application.UserName = "你的"

Application.UserInitials = "你的"

Application.UserAddress = "你的"

End Sub 这样每当用户关闭该当时,文档的用户信息就成了你的了.

守柔

根据楼主的意思，只是对于对话框没有禁用的方法，只能变通一下至于二楼的方法，我未曾验证。

以下代码可以用于文档关闭或者模板关闭（自动宏）中，可根据楼主用途，区别对待。

Sub ReworkName() Dim MyDialog As Dialog, MyName As String Set MyDialog = Application.Dialogs(wdDialogToolsOptionsUserInfo) With MyDialog MyName = "I Love You_Word!" If .Name <> "I Love You_Word!" Then 'MsgBox .Name .Name = MyName End If .Execute End With End Sub ‘有一些注意一经修改或固定了该USERNAME，则OFFICE中的其它应用程序中的USERNAME均为此名字。

winak

先读取用户信息，退出时不论是否更改过，重新写入用户信息