WebbrowserでExcelのキーを抑止するには (ID:142112)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 WinXP-SP3+VB6+Excel2003の環境です。 現在form上にWebbrowserコントロールを使用してExcelを表示しています。 その際「Ctrl+P」や右クリックを抑止させるため、 「WBCustomizer」を使用してみましたが抑止できず印刷ダイアログが表示されて困っています。（htmlを表示する際には制御できています） VBAでExel側で抑止できることはわかっているのですが、 セキュリティの関係上使用できません。 なんとか制御できないものでしょうか。 参考にしたサイト、過去ログ http://support.microsoft.com/kb/183235/en-us http://madia.world.coocan.jp/vb/vb_bbs/200506/200506_05060099.html 以下ソースです。 Private WBC As WBCustomizer Private Sub Command1_Click() Dim sFileName As String 'sFileName = "http://www.google.co.jp/" '←htmlは制御できる sFileName = "C:\sample.xls" If Len(sFileName) Then Set oDocument = Nothing WebBrowser1.Visible = True WebBrowser1.Navigate sFileName End If End Sub Private Sub Form_Load() Set WBC = New WBCustomizer WBC.EnableContextMenus = False '右クリックの抑止 'WBC.EnableAllAccelerators = False WBC.EnableAccelerator vbKeyP, vbKeyControl, False 'Ctrl + P を無効化 Set WBC.WebBrowser = WebBrowser1 End Sub Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, _ URL As Variant) On Error Resume Next Set oDocument = Nothing Set oDocument = pDisp.Document End Sub