صفحه 1 از 4 123 ... آخرینآخرین
نمایش نتایج: از شماره 1 تا 10 , از مجموع 32

موضوع: قفل کردن فایل اکسل

  1. #1


    آخرین بازدید
    2016/03/26
    تاریخ عضویت
    December 2014
    نوشته ها
    18
    امتیاز
    10
    سپاس
    9
    سپاس شده
    0 در 0 پست
    تعیین سطح نشده است

    قفل کردن فایل اکسل

    با عرض سلام. بنده دو تا مشکل دارم و به شدت نیاز به راهنمایی دارم. میخوام توی یک سلول تابعی بنویسم که مقداری رو بدست بیاره و توی سلول دیگه ای که هیچ تابعی نباید داخلش نوشته بشه ارجاع بده. مثلا در سلول a1 مقداری رو محاسبه کنه و در b1 که هیچ تابعی نداره نتیجه رو بیاره. دوم اینکه میخوام علاوه بر اینکه کاربرگها قفل داشته باشن(برای این قسمت مشکلی ندارم)، کل فایل اکسل هم برای باز شدن نیاز به قفل شدن داشته باشه
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

  2.  

  3. #2


    آخرین بازدید
    2024/01/21
    تاریخ عضویت
    November 2013
    محل سکونت
    تهران
    نوشته ها
    1,519
    امتیاز
    6121
    سپاس
    2,884
    سپاس شده
    4,889 در 1,381 پست
    سطح اکسل
    71.67 %

    سلام،
    تابع در a1 نوشته مي شود و نتيجه در آن به دست مي آيد، اگر مي خواهيد در b1 نتيجه درج گردد، بايد در آن بنويسيد: A1= اگر اين را هم نخواهيد بنويسيد و b1 خالي خالي باشد و فقط مقدار نتيجه در آن درج گردد چنين چيزي امکان ندارد مگر با کد نويسي بوسيله vba که البته دنگ و فنگ مخصوص به خود را دارد.
    براي رمز گذاري روي فايل بايد يک save as از آن بگيريد و در همان پنجره save as گزينه tools را پيدا کرده و مثلث کنارش را کليک کرده و گزينه general option را انتخاب کنيد.
    ضمنا" لطفا" براي سوالات خود نام مناسب انتخاب کنيد به نحوي که با خواندن تيتر سوال تا اندازه اي بتوان کليت آن را فهميد و در ضمن سوالاتتان را در تالارهاي مناسب ايجاد کنيد. (قسمت "مشکلات کاربري" مخصوص مشکلات در مورد کار در سايت و انجمن است)


  4. #3


    آخرین بازدید
    2016/03/26
    تاریخ عضویت
    December 2014
    نوشته ها
    18
    امتیاز
    10
    سپاس
    9
    سپاس شده
    0 در 0 پست
    تعیین سطح نشده است

    نقل قول نوشته اصلی توسط علي پارسا نمایش پست ها
    سلام،
    تابع در a1 نوشته مي شود و نتيجه در آن به دست مي آيد، اگر مي خواهيد در b1 نتيجه درج گردد، بايد در آن بنويسيد: A1= اگر اين را هم نخواهيد بنويسيد و b1 خالي خالي باشد و فقط مقدار نتيجه در آن درج گردد چنين چيزي امکان ندارد مگر با کد نويسي بوسيله vba که البته دنگ و فنگ مخصوص به خود را دارد.
    براي رمز گذاري روي فايل بايد يک save as از آن بگيريد و در همان پنجره save as گزينه tools را پيدا کرده و مثلث کنارش را کليک کرده و گزينه general option را انتخاب کنيد.
    ضمنا" لطفا" براي سوالات خود نام مناسب انتخاب کنيد به نحوي که با خواندن تيتر سوال تا اندازه اي بتوان کليت آن را فهميد و در ضمن سوالاتتان را در تالارهاي مناسب ايجاد کنيد. (قسمت "مشکلات کاربري" مخصوص مشکلات در مورد کار در سايت و انجمن است)
    با تشکر از شما. آیا مطمئن هستید که هیچ تابعی برای این کار وجود نداره؟ آیا نمیشه با تابعی آدرس یک سلول را داد تا نتیجه در آن سلول درج بشه؟؟ این موضوع ماه هاست من رو درگیر خودش کرده. آیا تابع offset در این زمینه به ما کمک نمیکنه؟

  5. #4


    آخرین بازدید
    2024/01/21
    تاریخ عضویت
    November 2013
    محل سکونت
    تهران
    نوشته ها
    1,519
    امتیاز
    6121
    سپاس
    2,884
    سپاس شده
    4,889 در 1,381 پست
    سطح اکسل
    71.67 %

    به هيچ عنوان چنين تابعي وجود ندارد 100٪ مطمئن باشيد.


  6. #5


    آخرین بازدید
    2016/03/26
    تاریخ عضویت
    December 2014
    نوشته ها
    18
    امتیاز
    10
    سپاس
    9
    سپاس شده
    0 در 0 پست
    تعیین سطح نشده است

    در بعضی فایل ها دیدم که قسمتی برای کلیک کردن وجود داره که باعث میشه اطلاعات انتقال پیدا کنه. میتونید بگید از چه توابعی استفاده شده و چطوریه؟ یک نمونه براتون میذارم نگاه کنید

  7. #6


    آخرین بازدید
    2023/08/17
    تاریخ عضویت
    March 2015
    محل سکونت
    آمل
    نوشته ها
    3,343
    امتیاز
    11575
    سپاس
    1,885
    سپاس شده
    8,165 در 3,011 پست
    تعیین سطح نشده است

    در فایل پیوست در صورت تغییر در سلولهای ستونA مقدار آن در ستون B درج میگردد

    کدهای ذیل را در قسمت کدنویسی شیت مورد نظر وارد کنید

    کد PHP:
    Sub Worksheet_Change(ByVal Target As Range)

        If 
    Not Intersect(TargetMe.Range("A:A")) Is Nothing Then
        
        Target
    .Offset(01).Value Target.Value
        
        End 
    If
        
        
    End Sub 
    فايل هاي پيوست شده فايل هاي پيوست شده
    • نوع فایل: xls Book2.xls اطلاعات (39.5 کیلو بایت, 38 نمایش)


  8. #7


    آخرین بازدید
    2016/03/26
    تاریخ عضویت
    December 2014
    نوشته ها
    18
    امتیاز
    10
    سپاس
    9
    سپاس شده
    0 در 0 پست
    تعیین سطح نشده است

    نقل قول نوشته اصلی توسط iranweld نمایش پست ها
    در فایل پیوست در صورت تغییر در سلولهای ستونA مقدار آن در ستون B درج میگردد

    کدهای ذیل را در قسمت کدنویسی شیت مورد نظر وارد کنید

    کد PHP:
    Sub Worksheet_Change(ByVal Target As Range)

        If 
    Not Intersect(TargetMe.Range("A:A")) Is Nothing Then
        
        Target
    .Offset(01).Value Target.Value
        
        End 
    If
        
        
    End Sub 
    ممنون ازتون. من از کدنویسی هیچی نمیدونم. میشه توضیح بدی چجوری اینکارو انجام بدم؟ فقط developer رو آوردم. حالا چیکار کنم؟ چجوری فقط روی یک شیت اجراش کنم؟

  9. #8


    آخرین بازدید
    2016/03/26
    تاریخ عضویت
    December 2014
    نوشته ها
    18
    امتیاز
    10
    سپاس
    9
    سپاس شده
    0 در 0 پست
    تعیین سطح نشده است

    نقل قول نوشته اصلی توسط iranweld نمایش پست ها
    در فایل پیوست در صورت تغییر در سلولهای ستونA مقدار آن در ستون B درج میگردد

    کدهای ذیل را در قسمت کدنویسی شیت مورد نظر وارد کنید

    کد PHP:
    Sub Worksheet_Change(ByVal Target As Range)

        If 
    Not Intersect(TargetMe.Range("A:A")) Is Nothing Then
        
        Target
    .Offset(01).Value Target.Value
        
        End 
    If
        
        
    End Sub 
    ممنون ازتون. من از کدنویسی هیچی نمیدونم. میشه توضیح بدی چجوری اینکارو انجام بدم؟ فقط developer رو آوردم. حالا چیکار کنم؟ چجوری فقط روی یک شیت اجراش کنم؟

  10. #9


    آخرین بازدید
    2016/03/26
    تاریخ عضویت
    December 2014
    نوشته ها
    18
    امتیاز
    10
    سپاس
    9
    سپاس شده
    0 در 0 پست
    تعیین سطح نشده است

    من از این کد تونستم استفاده کنم. اما متاسفانه اصلا پویا نیست. یعنی اگر a1 با هر تابعی (مثلا index) مقدارش رو از یک سلول دیگه بگیره دیگه این کد کار نمیکنه. باید چیکار کرد؟

  11. #10


    آخرین بازدید
    2018/05/03
    تاریخ عضویت
    October 2014
    محل سکونت
    جنوب
    نوشته ها
    351
    امتیاز
    3436
    سپاس
    2,033
    سپاس شده
    1,229 در 331 پست
    تعیین سطح نشده است

    نقل قول نوشته اصلی توسط مجید ایرج نمایش پست ها
    من از این کد تونستم استفاده کنم. اما متاسفانه اصلا پویا نیست. یعنی اگر a1 با هر تابعی (مثلا index) مقدارش رو از یک سلول دیگه بگیره دیگه این کد کار نمیکنه. باید چیکار کرد؟
    با درود و تشکر از جناب iranweld
    دوست عزیز کد رو بصورت زیر تغییر دهید: (در صورتیکه سلولهای مورد نظرتون غیر A1 و B1 باشند در کد زیر متناظر آنها را جایگزین کنید)
    کد PHP:
    Sub Worksheet_Change(ByVal Target As Range)
        
    Application.EnableEvents False
        Range
    ("B1") = Range("A1")
        
    Application.EnableEvents True
    End Sub 

    البته با توجه به خواسته ای که بیان کرده اید به راحتی با نوشتن فرمول زیر در سلول B1 به هدفتون برسید، اما اگر به هر دلیلی نمیخواین درون سلول B1 فرمول و یا تابعی وجود داشته باشد از کد فوق استفاده کنید.
    کد PHP:
    =A1 
    ویرایش توسط abootorab : 2015/12/05 در ساعت 01:42



صفحه 1 از 4 123 ... آخرینآخرین

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

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

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

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

چجوری برای فایل اکسل قفل میذارن

کلمات کلیدی این موضوع

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

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

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