حذف پیغام در 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]

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

[plc_pcb]

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

با سلام

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

Application.DisplayAlerts = False

مثلا

Sub setsharing()

Application.DisplayAlerts = False 

[yyy]

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

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