戻る  □一般操作のサロン  □ 使用方法  □ 新着記事  □ 新規に質問する!  □ トピック一覧  □ 検索  □ 過去ログ
[ 最新記事及び返信フォームをトピックトップへ ]
このトピック参照回数 :
VBAをマクロで削除したい

    [195120] VBAをマクロで削除したい-

    ■親トピック/記事引用/メール受信=OFF■

    □投稿者/ ちわわ -(2022/08/25(15:51))
    □U R L/

      Aワークブックには保護がかかっていて、パスワードがわかないので、Aワークブックを何もできません。

      よって、Bワークブックより、VBAを実行します。

      処理内容はAワークブックの「Aシート」をコピーして、Bワークブックに貼り付けます。
      ここまではできます。

      Windows("A.xlsm").Activate
      Sheets("A").Copy After:=Workbooks("B.xlsm").Sheets(3)

      次にBワークブックに張り付けたコピーしたAシートにVBAが組み込まれているのですが、そのVBAで削除したいです。
      それを↑のVBAに追加したいです。

      よろしくご指導ねがいます。

      win10 office1016




    [195122] Re[1]: VBAをマクロで削除したい-

    記事引用/メール受信=OFF■

    □投稿者/ ねむねむ -(2022/08/25(16:05))
    □U R L/

      BブックにAブックのシートを持ってくるのは何のためだろうか?

      もしシート上のデータがあればいいだけならばBブックに新規シートを追加、
      AブックのAシート上のデータをコピーしてBブックの新規シート上に貼り付け、
      ではどうだろうか?




    [195150] Re[2]: VBAをマクロで削除したい-

    記事引用/メール受信=OFF■

    □投稿者/ ちわわ -(2022/08/29(15:25))
    □U R L/

      ねむねむ様

      まだ、確認できておりません。

      質問しておいてすみません。

      他の方がうまくいかなくて。

      確認後再度投稿いたします。




    [195159] Re[3]: VBAをマクロで削除したい-

    記事引用/メール受信=OFF■

    □投稿者/ ちわわ -(2022/08/30(09:52))
    □U R L/

      ねむねむ様
      Aブックのコピーしたいシート全体をコピーして、Bブックのシートの張り付けてみましたが、写真とか書式とか設定されている為に崩れてしまいます。
      コピー先のBブックのシートに書式のみをコピーして、試してみましたが、
      写真の枚数が毎回違う為、書式が崩れてしまいます。

      できれば、Bワークブックに張り付けたシートのVBAを削除できるVBAがいいかとおもいますが、できないようであれば、何か他の方法でよい方法はないでしょうか?

      ご指導お願い致します。




    [195160] Re[4]: VBAをマクロで削除したい-

    記事引用/メール受信=OFF■

    □投稿者/ ちわわ -(2022/08/30(10:03))
    □U R L/
      すみません、追記です。
      コピーしたシートには下記のVBAが記載されてます。
      マクロを削除ならできそうですが、マクロ名としてありませんので、それもできないです。
      
      Private Sub Worksheet_SelectionChange(ByVal Target As Range)
          Dim f As UserForm
          
          For Each f In UserForms
              If TypeOf f Is UserForm_MODIFIED_FORM Then
                          
              ElseIf Not TypeOf f Is UserForm_TOPMENU Then
                  UserForm_TOPMENU.Show vbModeless
              End If
          Next
      End Sub
      
      Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
          If Target.Column = 9 Then
              Call on_sheet_double_click(Target)
          End If
          
          
             If Target.Column = 2 Then
              Dim filepath As String
              
              filepath = Application.GetOpenFilename()
              Call processing_setpicture_single(Target, filepath)
              
          End If
           
      End Sub
      
      宜しくお願い致します。


      この記事にはVBAのコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他




    [195161] Re[4]: VBAをマクロで削除したい-

    記事引用/メール受信=OFF■

    □投稿者/ マナ -(2022/08/30(10:09))
    □U R L/

      Bブックを xlsx形式 で保存だと問題ありますか





    [195163] Re[5]: VBAをマクロで削除したい-

    記事引用/メール受信=OFF■

    □投稿者/ ちわわ -(2022/08/30(11:06))
    □U R L/

      マナ様
      ありがとうございます。

      Bブックで複数のマクロ組んであるので、マクロ無効にはできません。

      何かいい方法ないですかね。

      宜しくお願い致します。




    [195164] Re[6]: VBAをマクロで削除したい-

    記事引用/メール受信=OFF■

    □投稿者/ マナ -(2022/08/30(11:32))
    □U R L/

      >Aブックのコピーしたいシート全体をコピーして、
      >Bブックのシートの張り付けてみましたが、
      >写真とか書式とか設定されている為に崩れてしまいます。

      手作業でもそうなりますか?




    [195167] Re[7]: VBAをマクロで削除したい-

    記事引用/メール受信=OFF■

    □投稿者/ ちわわ -(2022/08/30(14:13))
    □U R L/

      マナ様

      手作業でも写真の位置関係が崩れます。

      ちょっとコピーではなく移動で試しています。
      こちらでうまくいけばいいのですが。





    [195169] Re[8]: VBAをマクロで削除したい-

    記事引用/メール受信=OFF■

    □投稿者/ マナ -(2022/08/30(15:21))
    □U R L/

      では、

      1)新規ブックにシートコピー
      2)xlsxで保存
      3)Bブックにシート移動
      4)2)の xlsx を削除






    [195209] Re[9]: VBAをマクロで削除したい-

    解決!!ありがとうございました! / 記事引用/メール受信=OFF■

    □投稿者/ ちわわ -(2022/09/05(10:50))
    □U R L/

      マナ様

      ありがとうございました。

      ちょっとうまくいかないので、もう少し考えてみてから、投稿します。



このトピック内容の全ページ数 / [0]

このトピックに書きこむ
Name/
E-Mail/

└>このツリーのレス記事をメールで受信しますか? YES/ NO/
Title/
URL/
Comment/ 通常モード->  図表モード-> (←の場合適当に改行を入れて下さい)
タグが使用できます。例 ⇒ <font color="blue">文字</font>
解決!!ありがとうございました! 解決       保留中です・・・ 保留        迷宮入りorほかあたって見ます・・ 迷宮入       すいませ〜ん。誰か〜! Help! ←※回答者専用
解決したらチェック       保留(コードテスト中など・・)         解決不可orレスが全く付かなくてほかのサイトに行くときなど・・
削除キー/
(半角8文字以内) 


- Child Forum -
Edit:ゆう-G