OKWAVEのAI「あい」が美容・健康の悩みに最適な回答をご提案!
-PR-
解決
済み

ツールバーの全非表示とブックの別名保存の仕方

  • すぐに回答を!
  • 質問No.215230
  • 閲覧数66
  • ありがとう数0
  • 気になる数0
  • 回答数1
  • コメント数0

お礼率 12% (4/33)

自分で作成したPG以外の動きを封じるため、
ツールバーの全非表示をしたいのですが、どのように
したらよいのでしょうか?
また、バックアップのため、ブックの別名保存の仕方
を知りたいのですが、ご存知の方、よろしくお願い
いたします。
通報する
  • 回答数1
  • 気になる
    質問をブックマークします。
    マイページでまとめて確認できます。

質問者が選んだベストアンサー

  • 回答No.1
レベル13

ベストアンサー率 68% (791/1163)

>ツールバーの全非表示をしたいのですが、どのようにしたらよいのでしょうか?
切り替えるサンプルマクロです。終わる時に再度実行して元に戻します。
数式バーやステータスバーについても必要なら、これはマクロ記録ですぐわかるでしょう。

Sub CommandBars切り替え()
  Dim myCBar As CommandBar
  '使用可能・不可の切り替え
  For Each myCBar In CommandBars
    myCBar.Enabled = Not myCBar.Enabled
  Next
End Sub


>バックアップのため、ブックの別名保存の仕方を知りたいのですが
開いているBookの別名保存のサンプルマクロです。
バックアップファイルのファイル名の決め方は、ご自分で決めてください。
今は先頭に『bak_』をつけています。2回目、3回目と実行しても同じバックアップファイル名になります。
バックアップに履歴を反映する場合は、バックアップファイル名の付け方を明確に決めて、過去のバックアップと重複しないようにする必要があります。当然、コードは長くなってしまいます。

Sub BackUpSave()
  Dim myPath As String 'パス
  Dim bakFileName As String 'バックアップファイル名

  bakFileName = "bak_" & ActiveWorkbook.Name 'バックアップファイル名の決め方は例です
  myPath = ActiveWorkbook.Path
    If Right(myPath, 1) <> "\" Then '『\』があるか調べているだけ
      myPath = myPath & "\"
    End If

  '現ブックを別名でバックアップファイルとして保存する
  ActiveWorkbook.SaveCopyAs myPath & bakFileName
End Sub
-PR-
-PR-
このQ&Aで解決しましたか?
関連するQ&A
-PR-
-PR-
このやり方知ってる!同じこと困ったことある。経験を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

その他の関連するQ&A、テーマをキーワードで探す

キーワードでQ&A、テーマを検索する
-PR-
-PR-
-PR-

特集


いま みんなが気になるQ&A

関連するQ&A

-PR-

ピックアップ

-PR-
ページ先頭へ