EXCEL VBAで作った ユーザーフォームを複数の人で利用したい。

質問

いつもお世話になっています。
皆さんに色々教えていただいて何とか形になってきました。
あと一息です。
EXCELのVBAでユーザーフォームを作成しシートよりTEXTBOXにデータを表示TEXTBOXの値でシートを更新するというところまではできたのですが、それを複数ユーザーで共用したいのですが”読み取り専用とかのメッセージが出るのはツール→ブックの共用→複数のユーザーによる同時編集と、ブックの結合を許可するにチェックを入れ、詳細で自動保存するにしたのですが最初に作ったユーザーは出来るのですが。
二番目移行のユーザーからは更新しても"この場所に○○○.XLSという名前のファイルがすでにあります。置き換えますか？"となってしまい
更新がうまくいきません。
ユーザーフォームをとじる時は下記のようにしてあります。
Private Sub CommandButton1_Click()
Dim wbook As Workbook
For Each wbook In Workbooks
wbook.Save
Next wbook
Application.Quit
End Sub
質問の仕方が下手でスミマセン、宜しくお願いいたします。

回答No.1

hige_082 · ベストアンサー

メッセージが表示されなければ良いの？

Private Sub CommandButton1_Click()
Dim wbook As Workbook
Application.DisplayAlerts = False
For Each wbook In Workbooks
wbook.Save
Next wbook
Application.DisplayAlerts = True
Application.Quit
End Sub

試す環境が無いので、試していませんが・・・

お礼

すみません。補足の部分は私がセキュリティをユーザーに与えていなかった為に出来なかったみたいです。
メッセージ表示に関してはＯＫでした。
有難うございました。

補足

お返事遅くなり申し訳ございません。
メッセージが表示されなくなりました。
ですが最初に処理していたユーザーでシート内容を書き直して更新すると出来るのですが。他のユーザーからの更新が反映されてないんです。
コマンドボタンを押すと該当セルにtextbox3の内容をセットして更新すると言うことを下記のようにやっています。

Private Sub CommandButton2_Click()
Dim i As Long
Dim x As Long
Set ADRY = Worksheets("sheet1").Range("A2:A2500")
i = Application.WorksheetFunction.Match(Val(TextBox1.Value & TextBox2.Value), ADRY, 0)

x = i + 1

Range("D" & CStr(x)).Value = TextBox3.Value

End Sub