在打开Word时怎么自动运行指定的宏（内详）

在宏界面里，左上窗口找到本文档名字里面的ThisDocument，双击它，粘贴如下代码：
Private Sub Document_Open()
Dim a
a = InputBox("输入密码")
If a = "123456" Then
Else
MsgBox ("密码错误")
Application.Quit 0
End If
End Sub

存盘退出，就可以了。

步骤如下：
1、设sheet1中有个名为"pw()"的宏，记住不是在模块1或其它位置，需要Excel启动时自动运行
Sub pw()
Dim a As String
a = InputBox("输入密码")
If a <> "123456" Then
MsgBox ("密码错误")
Application.Quit
End If
End Sub
2、双击Thisworkbook，下拉“通用”处，选择workbook，选择Open事件，会自动出现代码
Private Sub Workbook_Open()
End Sub
3.在代码中间添加如下代码：
Private Sub Workbook_Open()
Call Sheet1.pw
End Sub
4.关闭保存，再打开Excel表格式，就会自动运行sheet1中的"pw()"的宏。

定义宏时用Sub Autoexe()
1）在你的VBA项目加入一个名为AutoOpen的宏，并在该宏中调用你想运行的宏。例如：
sub AutoOpen()
msgbox "auto open!"
end sub

2）利用Document对象的Open事件：在你的VBA项目的ThisDocument对象程序窗口中插入：

Private Sub Document_Open()
msgboxc "document open！"
End Sub