yyy
2012/02/02, 18:26
سلام
من یک فایل اکسل دارم که می خواهم هنگام زدن دکمه ای آن فایل 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
از توجه تان پیشاپیش تشکر می کنم.
من یک فایل اکسل دارم که می خواهم هنگام زدن دکمه ای آن فایل 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
از توجه تان پیشاپیش تشکر می کنم.