摘要:
Dim Obj As Object On Error Resume Next For Each Obj In CreateObject("Shell.Application").Windows If TypeName(Obj.document) = "HTMLDocument" Then 'Content End If Next 阅读全文
摘要:
'=================================================Sub DisableRightClick() ' 禁止右键菜单'================================================= Dim cd As CommandBar For Each cd In Application.CommandBars If cd.Type = msoBarTypePopup Then '判断菜单的类型 cd.Enabled = False End If N... 阅读全文