[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『マクロを削除したい』(まく)
既出の質問で恐縮ですが,前任者のファイルがマクロを使っていますが,削除しようとしたのですが,
ツールメニュー>マクロ>マクロで開いたところ,見当たりません。
そこで,VBAを開いてMicrosoft Excelオブジェクト以下の各Sheetを開くと,
このようなコードがありました。
"Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
End Sub"
そこで,これを削除するのですが,何度削除しても元に戻ります。
書込み不可になっているのでしょうか?
これを削除する方法が分からず途方にくれております。よろしくお願いします。
(まく)
モジュールを開放すればいいと思いまが・・・
もちろんモジュールは消していますが、それでも駄目なんです。
(まく)
↑『マクロを削除するには』(FFF)に同様の記事がありました。
[kazu][尋][HIDE]さんの記事をまとめて再掲します↓。(kazu)
[ツール(T)]メニュー→[マクロ(M)]→[VisualBasicEditor(V)]を選択します。
左側にプロジェクトエクスプローラがあるはずです。
もしなければ[表示(V)]メニューから[プロジェクトエクスプローラ(P)]を選択します。
VBAPRrojectの下にMicrosoft Excel Objectがあって、
その下にSheet1(Sheet1)やSheet2(Sheet2)があるはずです。
これを一つ一つダブルクリックして、開いてみます。
その中にprivate sub xxx()とかが残っていないか調べてみてください。
もしあったらすべてを選択して、削除します
VBAPRrojectの下に標準モジュールがあってModule1などがあったら、
右クリックして[Module1の開放]を選択します。
エクスポートするかどうか聞かれますので、[いいえ]を選択します。
重複したような質問にご丁寧にありがとうございます。
本当に何度もすみません。
>その中にprivate sub xxx()とかが残っていないか調べてみてください。
>もしあったらすべてを選択して、削除します
これを削除しましたが、何度削除してもまたWorksheetを開くと復活します。
ロックをかけられるのでしょうか?
自分のブックの構造は以下の通りです。
+atpusrc1.xls (ATPVBAEN.XLA)
+AUTOSAVE.XLS (AUTOSAVE.XLA)
+funcres (FUNCRES.XLS)<br>
+tmpltnum.xls (TMPLTNUM.XLA)
+VBAProject(Book1)
→Microsoft Excel Object
→Sheet1(Sheet1)
→Sheet2 (Sheet2)
......
→ThisWorkbook
調べたところ、過去にLarouxに感染したようで、その残骸が大量にスタイルに残っていました。
これは全て削除しました。Larouxのせいでしょうか?
過去にウィルスソフトが駆除しているので、Moduleは残っていませんが、
それでも「マクロを有効にしますか」と聞かれます。
もはや新たなブックにシートのデータを移し替えるしかないのでしょうか...?
相当に大きなファイルで同じものがコピーされて複数あるので、
できれば避けたいのですが...。
(まく)
もし新しいブックにコピーするなら、画面の左右にブックを旧と新と並べておいて、
[CTRL]キーを押したまま、旧のシートタグを新しい方のブックにドラッグして
マウスのボタンを先に離せばコピーすることはできます。
なお私のExcelのVBE側の構造は現在のところ下の通りです。
+atpvbaen.xls (ATPVBAEN.XLA)
+funcres (FUNCRES.XLS)
+VBAProject(Book1)
→Microsoft Excel Object
→Sheet1(Sheet1)
→Sheet2 (Sheet2)
......
→ThisWorkbook
従って、AUTOSAVEかtmplnumどちらかが怪しい、のかも?
このへんはビルトインなので、ビルトインをはずす必要がありますが...。
(kazu)
[よくある質問・マクロを消してもマクロの警告]を2003/12/03追加しました こちらも見てください。 https://www.excel.studio-kazu.jp/tips/0026/
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.