エラー表示になってしまいます。

こちらで、とても親切に教えていただきマクロ組んでいただいたのですがコピーして貼り付けてもエラー表示70の表記になってしまって困っています。

作ってもらったものなので、こちらにUPしていいものか分かりません…
エラー70になる主な原因等がありましたら教えて頂きたいです。

よろしくお願いいたします。

質問者からの補足コメント

• コメントいただきありがとうございます。
  
  ネット検索も本も調べて「これかな？」と思うものは試してみたんですがダメでした。
  
  そうなんです！おっしゃる通り根本的に浅い知識しかないのにやろうとしたのが原因です。
  せっかくお時間割いて作っていただいたのに出来ないのも申し訳ないし、でも出来ないし理解できてない頭をフル回転させて3日目で根をあげて質問しちゃいました。
  
  成長のためにもう少し勉強してみます！！
  厳しい物言い！なんてとんでもないです。
  
  1行1行を理解する！ですね。まだまだ努力が足りないので頑張ってみます！
  ヒントを与えていだけて感謝してます。ありがとうございます！！

  No.1の回答に寄せられた補足コメントです。 補足日時：2023/11/11 10:21

• コメントありがとうございます！
  色々調べてはみて…
  
  共有エクセルではないんです。
  そして読み取り専用になってないかも確認しました！
  
  セキュリティーも確認してみたんですがダメでした泣

  No.2の回答に寄せられた補足コメントです。 補足日時：2023/11/11 16:09

• コメントありがとうございます！！
  
  tatsumaru77さんが作ってくださったものをアップするのが失礼にあたらないかと思ってしまってURLを貼るのを躊躇ってしまいました…
  そして教えてgooを使うのも初めてで「あと〇回の補足を投稿できます」に締め切らないとお礼も出来なくなる？と思って焦って締め切ってしまいました。
  
  色々と詳しく優しく教えてくださって本当にありがとうございます！！
  
  ここからは続きになるんですが、自分でやった時は直しが必要な所は黄色になってたんですが今回は黄色にはなってないんです！！

  No.4の回答に寄せられた補足コメントです。 補足日時：2023/11/11 16:17

• Module1の新規登録ボタンの「UserForm1.Show」の部分が黄色くなりました。
  
  Sub ボタン1_Click()
  UserForm1.Show
  End Sub
  
  その他は同じで70エラー表示になってしまいます。

  No.6の回答に寄せられた補足コメントです。 補足日時：2023/11/11 20:41

• ありがとうございます！
  やっぱり70エラーで出来なくて、もう少し粘ってしっかり見てみます！！
  私の設定の何かが違うんですよね…頑張って探してみます！

  No.10の回答に寄せられた補足コメントです。 補足日時：2023/11/12 17:58

• tatsumaru77さま。
  私のエクセルに問題があったようで無事にできました！！
  ありがとうございます。
  今から色々試してみます！！

  No.12の回答に寄せられた補足コメントです。 補足日時：2023/11/13 10:39

• 体調を崩してしまって、返信が遅くなり申し訳ありません。
  これでバッチリ使えそうです！！
  ありがとうございました★

  No.13の回答に寄せられた補足コメントです。 補足日時：2023/11/19 14:34

No.13 回答者： tatsumaru77 回答日時： 2023/11/16 13:26

前回回答者です。

>私のエクセルに問題があったようで無事にできました！！
>今から色々試してみます！！

試した結果、問題点、改善点等あれば、補足してください。

No.12 回答者： tatsumaru77 回答日時： 2023/11/13 08:39

No.10の回答の補足コメントに

>ありがとうございます！
>やっぱり70エラーで出来なくて、もう少し粘ってしっかり見てみます！！
>私の設定の何かが違うんですよね

となっていますが、
これは、私がアップロードしたsample.xlsmを実行した結果でしょうか。
もしそうであれば、sample.xlsmはこちらでは動作していますので、
あなたのexelの環境に問題があると思われます。

その場合は、新規のブックを作成し、空のフォームを作成し、そのフォームが起動できるかの確認から始めて、OKであれば、少しずつ部品（オブジェクト）を起動確認しながら追加して行くしかないように思えます。

No.11 回答者： tatsumaru77 回答日時： 2023/11/12 18:36

フォームのコードを全て削除して起動した場合は、どうなりますか。

１．起動できない（エラー７０）場合、フォーム自体に問題がある。
２．起動できる場合、Private Sub UserForm_Initialize()　内に問題がある。

と考えられます。
１の場合、フォームの各オブジェクを少しずつ、削除して、起動し、
どのオブジェクトでエラーが起こるかを調査する。

２の場合、UserForm_Initializeの最初の１行目にブレイクポイントを設定して起動し、以降１ステップずつ実行して、どこでエラーが起こるかを調査する。

上記の方針で探ってみてはいかがでしょうか。

No.10 回答者： tatsumaru77 回答日時： 2023/11/12 12:38

>No6,7のURLが時間切れになっていました。

下記が正しいです。訂正します。
No7,8のURLが時間切れになっていました。

No.9 回答者： tatsumaru77 回答日時： 2023/11/12 12:35

たびたびすみません。

No6,7のURLが時間切れになっていました。
こちらを使用してください。
https://firestorage.jp/download/4fde3d8cc7b5c5c5 …

No.8 回答者： tatsumaru77 回答日時： 2023/11/12 10:39

No7です。

URLが間違っていました。
こちらを使ってください。
https://firestorage.jp/download/edd9bb830ef18d7b …

No.7 回答者： tatsumaru77 回答日時： 2023/11/12 10:34

>Module1の新規登録ボタンの「UserForm1.Show」の部分が黄色くなりました。

前回回答者です。
原因不明ですが、そのファイルがあなたのPC内にあるということなので、
他の人が、そのファイルを開いていることは考えられません。
ファイル自体に何か問題があるように思われます。

ここからは、ファイルのやりとりになりますので、
もし、危険だとあなたが判断された場合は、以下のことは、無視されて構いません。あなたの判断で行ってください。

こちらのファイル（sample.xlsm）を下記にアップしました。
https://firestorage.jp/download/39572b279eecbab5 …

パスワード　goo
有効期間　7日間
になっています。
これをダウンロードして、あなたのファイルと何が異なるか比較していただけませんでしょうか。そうすれば、原因がわかるかもしれません。

それでも、原因が不明な場合は、そのエラーが発生しているファイルを
同じようにアップしていただければ、こちらで調査します。
その際は、個人情報（会社情報）は、全てなくしてください。
シートは、接点記録シートのみとし、１行目の見出し行のみとしてください。（データがなければ会社情報はもれないはずです）

また、アップの際は、そのファイルの個人情報を全て、削除してください。
（エクスプローラで当該ファイルを選択し、右クリックすると、プロパティが表示されるので、それを選択します。「詳細」クリックするとファイル情報が表示されるので、個人情報を消してください）
その状態で、マクロを起動しエラーが再発することを、確認してください。
そのあとで、ファイルをアップロードしてください。

No.6 回答者： tatsumaru77 回答日時： 2023/11/11 17:48

前回の回答者です。

ちょっと、気になる点を修正しました。
https://ideone.com/ePOZiE
こちらで、試していただけませんでしょうか。

No.5 回答者： tatsumaru77 回答日時： 2023/11/11 14:09

そのファイル（ブック）は、共有フォルダ内に格納されていませんでしょうか。

そうであれば、誰かが、そのブックを開いています。
他のだれもが、そのブックを開いていないときのみ、あなたが更新可能です。
一旦、そのブックをあなたのPC内にコピーし、そのコピーしたブックを
操作して場合、どうなりますでしょうか。

No.4 回答者： tatsumaru77 回答日時： 2023/11/11 11:55

質問は、下記でしょうか。

https://oshiete.goo.ne.jp/qa/13643059.html
そうであれば、その回答者です。
今回の質問をする際は、前の質問のURLを明記したほうが良いです。
そうしないと、回答者には、具体性がないので、抽象的な回答しかできません。

前回の質問が締め切られた為、回答できませんでした。
再度、質問が発生する可能性がある場合は、質問を締め切らずにしておいた方が安全です。

エラーが発生した時、デバッグ状態になり、黄色の線が表示されると思いますが、その行を提示していただけませんでしょうか。

原因は、ほかの方の言っていることのどれかに該当するかと思います。