Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

59003 / 76738

←次へ　｜　前へ→


	【22449】Re:シート保存時のvbaコード削除

Jaka - 05/2/21(月) 11:10 -


	引用なし

	パスワード

こんにちは。

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

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")
　　　　 'アクティブＸコントロール全部
　　　　 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