| 投稿日 | ： 2006/02/26(Sun) 20:51 |
| 投稿者 | ： 花ちゃん |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re: Excelのメニューとツールバーについて |
下記でどうでしょう。Excel の詳しい操作は、ここの Excel ＆ Word 関係をご覧下さい。
VB6.0 Excel2000 で動作確認
Private Sub Command1_Click()
'★プロジェクト→参照設定でMicrosoft Excel *.* ObjectLibraryに
' チェックを入れておいて下さい。
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets(1)
xlApp.Visible = True
Dim objMenu As Object
For Each objMenu In xlApp.CommandBars("Worksheet Menu Bar").Controls
objMenu.Enabled = False
Next objMenu
Dim objTool As Object
For Each objTool In xlApp.CommandBars("Standard").Controls
objTool.Enabled = False
Next objTool
' xlApp.Quit 別途、終了は手動で行って下さい。
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing
End Sub
使用できないようにしたいなら下記だけでもいいのでは。
Dim objTool As Object
For Each objTool In xlApp.CommandBars
objTool.Enabled = False
Next objTool