OptionExplicit
PrivateConstNetConnect=&H31
PrivateSubCommand1_Click()'停用本地連接
DimblnRelustAsBoolean
'把本地連接換成妳要控制的本地連接的名字
blnRelust=ExcNetLinkMenu("本地連接","停用(&B)")
'xp
IfblnRelustThen
Debug.Print"停用成功"
Else
blnRelust=ExcNetLinkMenu("本地連接","禁用(&B)")
EndIf
IfblnRelustThen
Debug.Print"停用成功"
Else
Debug.Print"停用失敗"
EndIf
EndSub
PrivateSubcommand2_Click()'啟用本地連接
'把本地連接換成妳要控制的本地連接的名字
DimblnRelustAsBoolean
blnRelust=ExcNetLinkMenu("本地連接","啟用(&A)")
IfblnRelustThen
Debug.Print"啟用成功"
Else
Debug.Print"啟用失敗"
EndIf
EndSub
轉自