|
▼ハチ さん:
こんばんわ
>.Save と 各プロパティの設定に問題がありそう。
なるほど、Workbook_BeforeSaveイベントからプロシージャを呼び出して、
そこでのApplicationオブジェクト関係をみていましたが、
確かに言われてみるとそうですね^^
ということは、
******************************************************************************************
'標準モジュール
Sub Test()
ThisWorkbook.Save
End Sub
'ThisWorkBookモジュール
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
With Application
.CommandBars("Formatting").Visible = Not .CommandBars("Formatting").Visible
.DisplayFormulaBar = Not .DisplayFormulaBar
End With
Worksheets(1).Visible = Not Worksheets(1).Visible
End Sub
******************************************************************************************
これだけで確認できました。
>なんとなくなんですが
>「子オブジェクトがあるとダメっぽい」のかなぁと。
>でも、.DisplayFormulaBar もダメですし・・・
>わかりません><
逆に私はApplication直下で、オブジェクトを持たないメソッド・プロパティ
の一部がダメなのかも?と睨んでいましたがそれもやはり違うようです(^^;
.Saveを使う時はこういう理由でこれが駄目、と言えないのがもどかしいですね^^
|
|