نمایش نتایج: از شماره 1 تا 3 , از مجموع 3

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

  1. #1

    آخرین بازدید
    2014/08/25
    تاریخ عضویت
    January 2012
    نوشته ها
    3
    امتیاز
    0
    سپاس
    0
    سپاس شده
    0 در 0 پست
    تعیین سطح نشده است

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

    [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]
    از توجه تان پیشاپیش تشکر می کنم.
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

  2.  

  3. #2


    آخرین بازدید
    2014/02/12
    تاریخ عضویت
    October 2011
    نوشته ها
    56
    امتیاز
    18
    سپاس
    0
    سپاس شده
    11 در 7 پست
    تعیین سطح نشده است

    plc_pcb به Yahoo ارسال پیام

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

    با سلام

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

    Application.DisplayAlerts = False

    مثلا
    کد PHP:
    Sub setsharing()

    Application.DisplayAlerts False 

  4. #3

    آخرین بازدید
    2014/08/25
    تاریخ عضویت
    January 2012
    نوشته ها
    3
    امتیاز
    0
    سپاس
    0
    سپاس شده
    0 در 0 پست
    تعیین سطح نشده است

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

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


اطلاعات موضوع

کاربرانی که در حال مشاهده این موضوع هستند

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

موضوعات مشابه

  1. پیغام در تاریخ خاص
    توسط shahinb در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 5
    آخرين نوشته: 2014/02/25, 00:41
  2. این پیغام چرا میاد؟
    توسط kebriya در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 1
    آخرين نوشته: 2012/09/21, 10:25
  3. نمایش پیغام در ويژوال بيسيك
    توسط amirgolshan در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 2
    آخرين نوشته: 2012/09/19, 12:34
  4. پیغام خطا در باز شدن فایل اکسل
    توسط mehdi_hidden در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 1
    آخرين نوشته: 2012/07/30, 18:43

بازدید کنندگان با جستجو های زیر این صفحه را پیدا کرده اند

انجمن اكسل ايران , اكسل , اكسس , سوال و جواب اكسل , سوال اكسس , انجمن اكسل ايران , توابع اكسل, آموزش اكسل, آموزش اكسس, VBA, ويژوال بيسيك

علاقه مندی ها (Bookmarks)

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  
  • BB code ها فعال هستند
  • شکلک ها فعال هستند
  • کد [IMG] فعال است
  • کد [VIDEO] فعال است
  • کد HTML غیر فعال است
با ما در تماس باشيد