エクセルで保存させないようにするには

解決

bookoff2 2005-12-22 13:04:29 No: 93362

はじめまして、bookoff2です。

VB5からCreateObject関数を使ってEXCELを起動し、
マクロでセルにデータを書き込んで最大表示して
見せるＰＧを作っているのですが、このとき、EXCEL
にある保存ボタンとメニューにある保存機能を無効
にしたいのですが、どうすればいいのかわかりません。

EXCELをビューワとして使いたいのです。

どうか、お願いします。

ＶＢ梅 2005-12-22 14:16:22 No: 93363

エクセルメニュバーのファイル(F)を非表示にするのはいかがですか？
[ファイル(F)]を非表示
CommandBars(1).Controls.Item(1).Visible = False
標準バーを非表示
CommandBars(3).Visible = False

メニューバーは非表示にすることはできませんでした・・・

bookoff2 2005-12-22 14:35:52 No: 93364

ＶＢ梅さん、こんにちはです。

＞エクセルメニュバーのファイル(F)を非表示にするのはいかがですか？

すみません、書き忘れた事がありました。
印刷は可能にしたいのです。

VB梅 2005-12-22 14:54:03 No: 93365

保存アイコンを消すんじゃ？
CommandBars(3).Controls.Item(3).Visible = False

一番良いのはエクセルのエベントをVBで操作できればいいのですが・・・・すいません、わかりません
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = True
End Sub

VB梅 2005-12-22 15:38:51 No: 93366

バーを変更しないでできました。

http://www.visualbasicforum.com/showthread.php?p=1011037
を参考にしてください。

クラスモジュールにWorkbook_BeforeSaveを作成して利用します。

他のエクセルイベントも同じように利用できるのですね
逆に勉強になりました。

特攻隊長まるるう 2005-12-22 15:58:31 No: 93367

[Excel VBA]で確認してます。適時、読み替えて下さい。
>メニューバーは非表示にすることはできませんでした・・・
Enabled なら変更できると思います。
    CommandBars("Worksheet Menu Bar").Enabled = False
>印刷は可能にしたいのです。
MenuItem ごとに Enabled(Visible)は指定できます。
Dim a As CommandBarPopup
Dim b As Object
For Each a In CommandBars("Worksheet Menu Bar").Controls
    For Each b In a.Controls
        Debug.Print b.Caption
        If b.Caption = "上書き保存(&S)" Then
            b.Enabled = False
        End If
    Next
Next

CommandBarPopup と CommandBarComboBox と CommandBarPopup
が設定できるのでその辺をよく調べて下さい。

特攻隊長まるるう 2005-12-22 16:01:33 No: 93368

なんで２回言うねん。
>CommandBarPopup と CommandBarComboBox と CommandBarPopup
CommandBarButton と CommandBarComboBox と CommandBarPopup

bookoff2 2005-12-22 16:04:09 No: 93369

VB梅さん、こんにちは。

＞http://www.visualbasicforum.com/showthread.php?p=1011037
＞を参考にしてください。

こんなやり方があったとは
まだまだ未熟です。

どうも、ありがとうございました。

bookoff2 2005-12-22 18:41:26 No: 93370

特攻隊長まるるうさん、こんにちは。

＞CommandBarPopup と CommandBarComboBox と CommandBarPopup
＞が設定できるのでその辺をよく調べて下さい。

助かりました、これもＰＧに取り込ませていただきます。

どうも、ありがとうございました。