حذف پیغام در sharing و Notsharing

[yyy]

سلام
من یک فایل اکسل دارم که می خواهم هنگام زدن دکمه ای آن فایل share شود بدون اینکه پیغام های که "وجود فایل همنام و آیا رونویسی کند یا خیر" اطلاع می دهد ظاهر نشود. من با کد زیر کار می کنم ودر2003 کار می کنم:

[align=left]
Sub setsharing()
If Not ActiveWorkbook.MultiUserEditing Then
ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.FullName, accessMode:=xlShared
End If
End Sub

Sub notsharing()
If ActiveWorkbook.MultiUserEditing Then
ActiveWorkbook.ExclusiveAccess
End If
End Sub
Sub setsharing()
If Not ActiveWorkbook.MultiUserEditing Then
ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.FullName, accessMode:=xlShared
End If
End Sub

Sub notsharing()
If ActiveWorkbook.MultiUserEditing Then
ActiveWorkbook.ExclusiveAccess
End If
End Sub

از توجه تان پیشاپیش تشکر می کنم.

[plc_pcb]

با سلام

کد زیر رو بالای برنامت زیر sub وارد کن

Application.DisplayAlerts = False

مثلا


Sub setsharing()

Application.DisplayAlerts = False

[yyy]

سلام
خیلی ممنون.
این ایده را می خواستم در صفحات جمع آوری آمار ماهیانه شرکت استفاده کنم که برای هرقسمت صفحه ای که در سر هر ردیف موضوع های کاری و در سر هرستون نام ماهها نوشته می شود و بعداز اینکه ماه به پایان می رسید می خواستم دیگر در آن ستون ماه تمام شده نتوان آمار وارد کرد .تاکنون دستی می رفتم شیت های مختلف را که در فایلهای جدا بود راباز می کردم و دستی قفل می کردم
ولی حالا می توانم هنگام بالا آمدن هرشیت از مرکز (لینک مرکزی )ماههای قفل شده را خوانده وسپس قفل مربوط به اشتراک گذاری را باز آنگاه ستون مربوطه قفل و دوباره به اشتراک گذاشته وآماده کار بشود.خلاصه که لطف کردید
بازهم تشکر می کنم.