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

[yyy]

[align=right]سلام
من یک فایل اکسل دارم که می خواهم هنگام زدن دکمه ای آن فایل 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
[/align]

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

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.