エクセルの学校：全文検索：Hyper Estraier：マクロ

Results of 1 - 1 of about 27302 for マクロ (0.013 sec.)

[[20190603200548]]: #score: 2167; @digest: 803acdeb3eac0a09761fe0e87eaa584b; @id: 79760; @mdate: 2019-06-03T12:12:48Z; @size: 3293; @type: text/plain; #keywords: oreference (30483), 20090302144413 (15497), vbdelete (15497), nobj (14536), references (11484), xlexcel8 (11346), deletelines (9663), vbproject (8727), しbo (8452), countoflines (8131), codemodule (6303), 度te (5112), vbcomponents (4758), 終手 (3889), 通知 (2983), fileformat (2765), 除( (2627), 全行 (2460), obj (1921), 可否 (1891), 配布 (1796), 行) (1655), ロ初 (1241), public (1170), マク (1146), ロな (1041), workbook (1038), クロ (1030), 月) (793), 2019 (722), 手段 (681), 保存 (660); 『マクロを削除したはずのブックからマクロを実行するかどうか聞かれる』（もんきち）
とあるマクロを含んだブックからシートをコピーしマクロを含まないファイル（ FileFormat:=xlExcel8 ）を作成していますコピーするシートにはマクロが記載されておりコピーした時に下記コードでシート内のマクロを削除しています Public Sub VBDelete(ByVal wb As Workbook) Dim i As Long Dim Obj As Object For Each Obj In wb.VBProject.VBComponents With Obj.CodeModule ' コードを削除(全行) i = .CountOfLines If i <> 0 Then .DeleteLines 1, i End With Next Obj End Sub 保存されたファイルには確かにマクロは含まれていないのですが、Excel2013環境で「Microsoft Excel のセキュリティに関する通知」でマクロを有効にするかどうかの可否を聞いてきますシートにはじめからマクロが書かれていない場合はこのような通知は出ませんこれと同様にこのメッセージが出ないファイルを作成したいのですがどうすればいいでしょうか? なおシートにはシート個別のコピーやシートの名前などのプロパティやファンクションが書き込まれているためこちらを消したくはないですよろしくおねがいします＜使用 Excel:Excel2013、使用 OS:Windows10 ＞ ---- もうご覧になっているとは思いますが、参考まで。 [[20090302144413]] 『マクロ』（マクロ初心者）（カリーニン） 2019/06/03(月) 20:27 ---- なぜ、FileFormat:=xlExcel8 にするのでしょうか? （マナ） 2019/06/03(月) 20:38 ---- ＞＞もうご覧になっているとは思いますが、参考まで。＞＞[[20090302144413]] 『マクロ』（マクロ初心者）コピーしたシートには図形や故意に名前を付けたオブジェクトは存在しません加えて以下の方法でそれらを除外しています Public Sub DeleteNames(ByVal wb As Workbook) '名前領域の削除 On Error Resume Next Dim nObj As Name For Each nObj In wb.Names ' nObj.Visible = True nObj.Delete Next nObj Err.Clear End Sub Public Sub VBDelete(ByVal wb As Workbook) Dim i As Long Dim Obj As Object For Each Obj In wb.VBProject.VBComponents With Obj.CodeModule ' コードを削除(全行) i = .CountOfLines If i <> 0 Then .DeleteLines 1, i End With Next Obj End Sub Public Sub ReferenceDelete(ByVal wb As Workbook) On Error Resume Next Dim oReference As Object For Each oReference In wb.VBProject.References wb.VBProject.References.Remove oReference Next oReference End Sub ＞＞なぜ、FileFormat:=xlExcel8 にするのでしょうか? 仕事の絡みでこのフォーマットでないとだめらしいです・・・・（もんきち） 2019/06/03(月) 20:53 ---- こんばんは! 私も先日同じ様なことをやってましたが、配布したいんですよね? 一度、マクロなしbookにしてからその形式に保存し直したらいいんじゃないんですか? （SoulMan） 2019/06/03(月) 20:59 ---- ＞＞一度、マクロなしbookにしてから＞＞その形式に保存し直したらいいんじゃないんですか? 一度tempにxlsxで保存してからあらためてxlExcel8で保存するということですよねそれは最終手段で考えてはいるんですが、色などのレイアウトが変わるのかもすこし気になります... （もんきち） 2019/06/03(月) 21:07 ---- マクロbookからマクロなしbookは、変わらない? ならば、同じだと思いますが、私の場合は、マクロなしbookで用が足りました因みにpdfも付けて配布しています色々ニーズがあるみたいなので（SoulMan） 2019/06/03(月) 21:12 ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201906/20190603200548.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ