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

←解決時は質問者本人がここをチェックしてください。

戻る