Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


58997 / 76732 ←次へ | 前へ→

【22449】Re:シート保存時のvbaコード削除
回答  Jaka  - 05/2/21(月) 11:10 -

引用なし
パスワード
   こんにちは。

>(コードは消されているが、ファイルを開くときに、どういう訳かマクロを有効にするか否かのメッセージが出てきてしまう)
この現象、私も前から気になってて色々試した結果、下みたいに面倒な事をすると何とかでなくなりました。
シートの別名保存ではなく、ブックの複製ですけど....。
シート1だったと思いますが、ボタン等も消してます。

Sub 別名保存後マクロ削除()
  Dim Shp As Shape
  pic = ThisWorkbook.Path & "\"
  myFileName = "new.xls"
  ThisWorkbook.SaveCopyAs Filename:=pic & myFileName
  
  'Workbooks.Open Filename:=pic & myFileName
  Workbooks.Open pic & myFileName
  With Workbooks(myFileName).VBProject
    For Each VBC In .VBComponents
      Select Case VBC.Type
      Case 100
        With VBC.CodeModule
          .deletelines 1, .Countoflines
        End With
      Case Else
          .VBComponents.Remove VBC
      End Select
    Next
  End With
  
  With Workbooks(myFileName).Worksheets("Sheet1")
     'アクティブXコントロール全部
     For i = 1 To .OLEObjects.Count
      .OLEObjects.Item(i).Delete
     Next
     'フォームボタン
     '.Shapes("Button 1").Delete
     '.Shapes("Button 2").Delete
     'マクロ登録されているファームボタン等削除。
     For Each Shp In .Shapes
       If Shp.OnAction <> "" Then
        Shp.Delete
       End If
     Next
  End With
  Workbooks(myFileName).Save
  Workbooks(myFileName).Close
  
  DoEvents
  Workbooks.Open (pic & myFileName)
  Workbooks(myFileName).Save
  Workbooks(myFileName).Close '(True)
  
  'ThisWorkbook.Close (False)
End Sub

0 hits

【22221】シート保存時のvbaコード削除 miyake 05/2/12(土) 11:00 質問
【22223】Re:シート保存時のvbaコード削除 かみちゃん 05/2/12(土) 11:19 回答
【22224】Re:シート保存時のvbaコード削除 IROC 05/2/12(土) 11:43 回答
【22438】Re:シート保存時のvbaコード削除 miyake 05/2/20(日) 22:29 質問
【22441】Re:シート保存時のvbaコード削除 ichinose 05/2/21(月) 7:45 発言
【22449】Re:シート保存時のvbaコード削除 Jaka 05/2/21(月) 11:10 回答
【22469】Re:シート保存時のvbaコード削除 Jaka 05/2/22(火) 9:13 発言

58997 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free