مرحوم محمد محمدی

🖤 پیام تسلیت

با نهایت تأسف و تأثر، باخبر شدیم جناب آقای محمد محمدی با نام کاربری smartman ، از مدیران ارزشمند انجمن اکسل ایران، دار فانی را وداع گفته‌اند.

ایشان سال‌ها با دانش، تجربه، اخلاق نیکو و روحیه کمک به دیگران، سهم بزرگی در رشد و پویایی انجمن داشتند و خاطره حضور ارزشمندشان همواره در ذهن اعضای انجمن باقی خواهد ماند.

مدیریت و اعضای انجمن ExcelIran این ضایعه را به خانواده محترم ایشان، دوستان و تمامی اعضای انجمن تسلیت عرض نموده و از خداوند متعال برای آن مرحوم، رحمت و مغفرت الهی و برای بازماندگان صبر و شکیبایی مسئلت دارند.


انا لله و انا الیه راجعون

نمایش شیت 1 برای یک کاربر و تعریف شیت 2 برای کاربر دیگر

Collapse
X
 
  • زمان
  • نمایش
حذف همه
new posts
  • Hamed_vb
    • 2014/07/14
    • 2

    پرسش نمایش شیت 1 برای یک کاربر و تعریف شیت 2 برای کاربر دیگر

    سلام دوستان
    من زیاد توی مطرح کردن سوال حرفه ندارم شاید منظورمو اشتباه به عرضتون برسونم اما بصورت مبتدی می پرسم

    من میخواهم یک کاربر شیت 1 رو ببینه و کاربر دیگر هر دو شیت رو در واقع دسترسی یکی برای همه شیت ها باشه و دسترسی کاربر دیگر فقط برای شیت 1 باشه
    بدون vba نویسی و مشکل در Updata اطلاعات ( در صورت لینک گذاری )
  • rahi_feri

    • 2014/08/08
    • 524
    • 94.67

    #2
    سلام
    یک فایل رو بین دو یا چند نفر فکر نمیکنم به این صورت بشه به اشتراک گذاشت! میشه User های متفاوت یا کامپیوتر های مختلف که به یک فایل دسترسی دارند و به اون صورت محدودیت و سطح دسترسی برای اون ها ایجاد کرد....!
    https://support.microsoft.com/en-us/kb/289270

    راه دیگه استفاده از کد نویسی و ایجاد رمز برای سطح دسترسی افراد میباشد (ایجاد لاگین)!

    یه ترفندی هم میشه استفاده کرد که نیاز به تذکر و آموزش داره!
    به این صورت که workbook در حالت Protect باشه و تنها یک شیت برای کاربری که یک شیت رو می تونه ذسترسی داشته باشه آشکار باشه (Unhide) و رمز غیرفعال کردن workbook رو کاربری که به هر دو دسترسی داره بدونه و پس از انجام کار هم شیت مورد نظر رو hide و workbook رو در حالت protect قرار بده!!!
    [B][SIZE=1]بخش امضاء :
    [/SIZE][/B][LEFT]
    [CODE]
    Sub Macro()
    ActiveCell = "IY" & Right(Application.Name, 5)
    With ActiveCell.Characters(Start:=2, Length:=1).Font
    .Name = "Webdings"
    .Color = 255
    End With
    End Sub
    [/CODE]
    [/LEFT]

    کامنت

    چند لحظه..