ママのスキンケアのお悩みにおすすめアイテム

自作のツールバーを消したいのですが、うまくいかないので教えてください。

マクロで自作ツールバーが表示されるようにしました。
マクロが書かれているエクセルファイルは、
C:\Program Files\Microsoft Office\OFFICE11\XLSTART
に置きました。
それで、エクセルを起動すると、マイツールバーも立ち上がるようにしました。

自作ツールバーの作動がおかしくなったため、XLSTARTからエクセルファイルを削除しました。
しかし、自作ツールバーは、表示されてしまいます。

ユーザー設定のツールバーから削除しても、しばらくすると現れたりします。
どこかに、情報が残っていて、現れてくると思われます。

どうすれば、完全に抹消できるか教えてください。お願いいたします。

このQ&Aに関連する最新のQ&A

A 回答 (2件)

序文:


マクロでツールバー(ツールボタン)をaddしたときに,TemporaryをTrueにして登録しておけば,エクセルを終了した際に自動で削除される設定にしておくことができました。
が,そういう具合には作っていなかったということですと,ツールバーはExcel.xlbファイルに格納され,エクセルアプリケーションの設定として残り続ける格好になります。


状況分析:
通常は手動でツールバーを削除すれば,ツールバーの情報はxlbファイルから除去され,それで終わりです。
#言わずもがなですが一応念のため,「表示しない」ではなく「削除」しなければいけません。
#言わずもがなと思いますが,ユーザー設定ダイアログのツールバータブで行います。

ご説明でも一度は手動でツールバーを削除し,その時は確かにツールバーはもう無くなっているとの事なので,「エクセルアプリケーションの設定」としては消去は成功しています。



問題点の整理:
消したはずのツールバーが「不明の理由で復元する」のをどうにかしたいというご相談ですが,考えられそうなシナリオとしては
1)不明の状況でxlbファイルを復元している
2)不明の状況でカスタムツールバーを「添付」したエクセルブックがある
などを挙げることが出来ます。

1.Administratorでパソコンにログインし,ウィンドウズのファイルの検索で
全てのファイルとフォルダ,隠しファイルとフォルダ,システムファイルとシステムフォルダを全て対象として
*.xlb
を検索,全て破棄します。
パソコンにログインしている(エクセルを使ったことがある)ユーザーの数だけxlbファイルは存在するので,漏れなく見つけて漏れなく削除します


2.「このブックを使うと」ツールバーが復元するブックを,発見します
ツールバーが添付されたブックを開くと,通常は自動でツールバーがxlbファイルに移行し,以後は当該のブックとは無関係にツールバーが復元します。
一度ブックからエクセルに移ったツールバーは,いつもの手順でエクセルアプリケーションからツールバーを削除して除去する必要があります。ツールバーが添付されたブックには,ツールバーの種が残り続けます。

どのブックを使うとツールバーが復元するか,状況をよく思い出したり注意深く確認します。
またアナタがツールバーを登録するのに使ったマクロをよく読み返してみることで,何かヒントがつかめるかも??しれません。
    • good
    • 0
この回答へのお礼

回答ありがとうございます。
今回はOSを再インストールして対応してしまいました。
また、同じ不具合があった時は、試してみます。

お礼日時:2012/03/12 17:25

excel11.xlbを削除してください。


Windows 7なら次の場所にあります。
C:\Documents and Settings\[user name]\AppData\Roaming\Microsoft\Excel
    • good
    • 0
この回答へのお礼

回答ありがとうございます。
今回はOSを再インストールして対応してしまいました。
また、同じ不具合があった時は、試してみます。

お礼日時:2012/03/12 17:23

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

QExcelから自作アドインを完全に削除したい

 初めてアドイン(xlaファイル)を作ったのですが、いったん組み込んでしまうと、アドインから削除できなくて困っています。
 「ツール」→「アドイン」で、チェックボックスを外すと機能は使えなくなるのですが、アドインの一覧から消すことができないのです。
 消し方をご教授ください。よろしくお願いします。

Aベストアンサー

あまり自信がないのですが、

アドインのxlaファイルそのものを削除
 ↓
再度「ツール」→「アドイン」でそのアドインを選択する
 ↓
アドインファイルがない場合は、「削除しますか?」のメッセージが出る・・・

となるのではないかと思います。
一度、xlaファイルを削除(またはフォルダを移動する)してみると、一覧から消せるかもしれません。

間違っていたらすみません。

Qエクセルのアドインタブはどのように表示?

エクセルのアドインタブはどのように表示させるのでしょうか?

Aベストアンサー

excelのアドインタブ表示方法
excel画面の「クイックアクセスツールバー」の一番右の▼をクリックし、「その他のコマンド」をクリック→画面左側の「リボンのユーザー設定」をクリック→画面右側の「メインタブ」内の「開発」にチェックを入れて「OK」を押すと、新たに「開発」タブが一番右側に出来ます。
新たにできた「開発」タブ内の「アドイン」グループ内の「アドイン」をクリックして使用されるアドインにチェックを入れます(分析ツールだったら、「分析ツール」にチェックを入れる)
あとは「データ」タブの一番右側「分析」グループ内の「データ分析」から使用したい分析ツールを選んでください。

※手順はexcel2010・2013共に同じです。

Q<Excel>アドインから削除してもメニューから消えない

複数条件の並べ替えをしたく、「超!並べ替え」というフリーソフトをダウンロードしました。普段は通常の並べ替えで十分なのでアドインをOFFにし、再起動したのですがメニューではまだ「超!並べ替え」のままです。それからファイル自体もアドインのメニューからも削除したのですが元に戻りません。ファイルも消してしまったので並べ替えも出来ない状態です。どうすれば元に戻りますか?教えてください。宜しくお願いします。

Aベストアンサー

スタート > 検索 (> ファイルやフォルダ)

で検索するファイル名のところに

*.xlb

↑これをコピーして貼り付けて検索して、見つかったファイルを削除してください。(拡張子がxlbならOKです。名前はExcelのバージョンによって違います)

メニューバー、ツールバーの情報がリセットされます。

http://member.nifty.ne.jp/bear/extec/extec34.htm

参考URL:http://member.nifty.ne.jp/bear/extec/extec34.htm

QExcel2013で不要なアドインタブを削除する

エクセル2013に散布図にデータラベルをつけるアドイン「XY Chart Labels」を追加したのですが、
その途中で変な操作をしたせいか、「新しいタブ」という不要なタブができてしまいました。
(添付図参照方)
あっても別に困らないのですが、目障りなので削除したいのですが、
やり方がわかりません。
どなたかご存じの方は、お教え願います。

※よくわからないのですが、本来は「アドイン」というタブが出来て、
  その中に「XY Chart Labels」が入っているのが普通なのではないでしょうか。
  そのようにする方法をご存じなら、そのやり方を教えて下さい。

Aベストアンサー

基本的にエクセル2010以降のバージョンでは、リボンを自由に設定できるようになりました。
「ファイル」「オプション」のリボンのユーザー設定から不必要なタブや項目を「削除」または非表示にしてみてください。

QEXCEL VBAで計算値を四捨五入、切り上げ、切捨てする方法

ネットで探してみたのですが、計算結果を四捨五入して特定のセルを
返すにはどうしたらいいのでしょうか?

Sub hokangosa()

Dim ZPS As Double
Dim ZPOS As Double
Dim DMN As Double
MsgBox (" >>> 補間誤差自動計算 <<< ")
MsgBox (" >>> 初期値入力します <<< ")
ZPS = InputBox(">>> ステップを入力してください<<<")
ZPOS = Sheet1.Cells(22, 4).Value
DMN = ZPOS / ZPS
Sheet1.Cells(23, 6).Value = DMN
End Sub

ここでDMNの値を四捨五入したいです。

またこれとは別に切上げ、切捨ても教えていただけるとありがたいです。

Aベストアンサー

DMN = Application.WorksheetFunction.Round(ZPOS / ZPS, 0)
で、四捨五入
DMN = Application.RoundDown(ZPOS / ZPS, 0)
で切り捨て
DMN = Application.RoundUp(ZPOS / ZPS, 0)
で切り上げです。

引数で、対象桁を変更できます。

Qエクセル VBA ユーザーフォームを閉じる

ユーザーフォームを開く時は
UserForm1.Showですが
閉じる時は?
UserForm1.Close
だとコンパイルエラーになります。
End
にするしかないですか?

Aベストアンサー

Unload Me とか Unload UserForm1 でユーザーフォームを閉じることができます。

QEXCEL VBA で現在開いているブックのファイル名を取得する方法

EXCEL2003 VBAで業務を簡素化するために、現在開いているブックのファイル名を取得する方法が分かりません。
作業手順をマクロを使って処理していますが、オリジナルのワークブックをファイル名を変えて保存し、以後、このワークブックを読み込んで使用しています。
このときのVBAは、オリジナルのファイル名を使っているため、ファイル名を変更するとエラーになり、以後の業務に使用できません。
常にファイル名を取得出来るVBAをどなたか、教えて下さい。

Aベストアンサー

>現在開いているブックのファイル名
 ちょっと曖昧な表現かなぁという気もいたしますが、VBAが書いてあるブックのブック名は
ThisWorkbook.Name
で、現在 "アクティブにして" 操作対象になっているブックの名前は
ActiveWorkbook.Name
ですね。

 しかし、
>VBAは、オリジナルのファイル名を使っているため、ファイル名を変更するとエラーになり
というような文脈からすると、
ThisWorkbook.Name
の方ですかね。

QエクセルVBAでテキストボックスの値の取得と変更について

エクセルのVBAを使ってシート上のテキストボックスのテキストを取得・変更するマクロを作成したいと思っていますがうまく行きませんので、お知恵を拝借したいとおもいます。

環境:WindowsXPでオフィス2002
状況:
エクセルブックa.xlsのシートに「コントロールツールボックス」のテキストボックスを配置(オブジェクト名はTEXTBOX_C)
エクセルブックb.xlsにコードを書き、a.xlsのTEXTBOX_CのプロパティのValueかTextを取りだしたい

試した事:
コントロールを配置したシートに次のマクロ
TEXTBOX_C.Text = "これはコントロールのテキストボックス"
を書くとテキストボックスに文字を入れ込めますが、別のエクセルブックからだと上手く行きません。

また、オートシェイプのテキストボックスの場合は簡単に出きるのですが、コントロールツールボックスではどうしても上手く行きませんので、対象法などご存知の方いらっしゃいましたら教えてください

Aベストアンサー

エクセルを新規に開きました。
そのSheet1に(コントロールツールボックスの)TextBoxを貼りつけました。
そのBook1から、ファイル-開くで別ブックを開きました。
別ブックのMojule1側に下記を書いて
Sub test02()
MsgBox Workbooks("book1").Worksheets("sheet1").textbox1.Text
End Sub
を実行すると、Book1のTextBoxに入れた文字列が表示
されました。
がそんな質問ではないのですか。

QDoEvents関数って何?

こんにちは。

VBAやプログラミングに詳しい皆様に
教えていただきたい質問があります。

cells(1,1)からcells(5000,1)までの値を消去するときに
処理の進行状況を表示するためにuserform上にプログレスバーを表示したいと思います。

そこで下記のようなコードを入力しました。

userform1.show
for i =1 to 5000
cells(i,1)=""
userform1.progressbar1.value=i/5000*100
next i
unload userform1

しかしこれだとuserformの背景が真っ白になってしまい
ラベルの文字も消えてしまいます。
そこで「EXCEL VBA パーフェクトマスター」という本を見たら

for i =1 to 5000
cells(i,1)=""
userform1.progressbar1.value=i/5000*100
DoEvents
next i
unload userform1
と入力すれば解決することがわかりました。

しかし「DoEvents」についてあまり詳しく書いていなかったのでDoEvents関数をヘルプで見ると、
「発生したイベントがオペレーティング システムによって処理されるように、プログラムで占有していた制御をオペレーティング システムに渡すフロー制御関数です。」

と書いてあるのですが正直、書いてあることがよくわかりません。

どなたかDoEvents関数について、
もう少しわかりやすく教えていただけませんか。
それから、最初に書いたコードで実行すると
ユーザーフォームの背景が真っ白になってしまう原因も
教えていただけませんか?

よろしくお願いいたします。

こんにちは。

VBAやプログラミングに詳しい皆様に
教えていただきたい質問があります。

cells(1,1)からcells(5000,1)までの値を消去するときに
処理の進行状況を表示するためにuserform上にプログレスバーを表示したいと思います。

そこで下記のようなコードを入力しました。

userform1.show
for i =1 to 5000
cells(i,1)=""
userform1.progressbar1.value=i/5000*100
next i
unload userform1

しかしこれだとuserformの背景が真っ白になってしまい
ラベルの文字も消えてしまいます。
そ...続きを読む

Aベストアンサー

簡単に言うと、
OS に制御を渡すってことです。(ヘルプそのまんま)
時間が掛かるループ処理などの場合、ループが終わるまで制御は独占されてしまいます。
ですのでループ中は OS や Excel そのものにも再描画をさせる暇さえ与えません。
途中に DoEvents を入れると制御が OS に渡るので、OS は溜まっていた処理をそこで行うことができます。
結果、フォームの再描画などが行われることになります。

注意点ですが、
Private Sub CommandButton1_Click()
  Dim i As Long

  For i = 1 To 50000
    DoEvents
    Cells(i,1) = ""
  Next i
End Sub

Private Sub CommandButton2_Click()
  MsgBox "hoge"
End Sub

っていうフォームのコードがあった場合、
DoEvents を入れることによって、ループ中にユーザーがCommandButton2 を押すことによって CommandButton2 のクリック イベントも動いちゃいます。
CommandButton1 のクリック イベントではループの前に
CommandButton1.Enabled = False
CommandButton2.Enabled = False
を書いてフォーム上の CommandButton を無効にしておき、ループが終わったら
CommandButton1.Enabled = True
CommandButton2.Enabled = True
と書いて CommandButton を有効に戻してください。

これを工夫すれば、CommandButton2 で CommandButton1 のループを途中キャンセルする処理もすることができます。

Private Canceled As Boolean

Private Sub CommandButton1_Click()

  CommandButton2.Enabled = False

  Dim i As Long
  For i = 1 To 50000
    DoEvents

    If Canceled = True Then
      MsgBox "キャンセルしました"
      Exit Sub
    End If

    Cells(i, 1).Value = ""
  Next i
End Sub

Private CommandButton2_Click()
  Canceled = True
End Sub



コードの行頭にあるスペースは見易さのために全角スペースで作成していますので、これをこのままコピペするとエラーになるかもしれません。
コピペするなら行頭の全角スペースを半角スペースに直してください。

簡単に言うと、
OS に制御を渡すってことです。(ヘルプそのまんま)
時間が掛かるループ処理などの場合、ループが終わるまで制御は独占されてしまいます。
ですのでループ中は OS や Excel そのものにも再描画をさせる暇さえ与えません。
途中に DoEvents を入れると制御が OS に渡るので、OS は溜まっていた処理をそこで行うことができます。
結果、フォームの再描画などが行われることになります。

注意点ですが、
Private Sub CommandButton1_Click()
  Dim i As Long

  For i = 1 To 50000
...続きを読む

Qエクセル マクロで指定フォルダを開く

エクセルにて
指定フォルダを開く、マクロがあれば教えて頂けないでしょうか。
よろしくお願いいたします。

Aベストアンサー

こんにちは。

こういうものですか?
開くフォルダを変えたいときは targ に与えるパスを変更します。

Sub OpenFolders()
Dim targ As String
targ = "C:\"
Shell "C:\Windows\Explorer.exe " & targ, vbNormalFocus
End Sub


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング