هزار و یک شب اکسل - شب پنجاه و هشتم جلوگیری از تغییر نام شیت توسط کاربر

Collapse
X
 
  • زمان
  • نمایش
حذف همه
new posts
  • امين اسماعيلي
    مدير تالار ويژوال بيسيك

    • 2013/01/17
    • 1198
    • 84.00

    هزار و یک شب اکسل - شب پنجاه و هشتم جلوگیری از تغییر نام شیت توسط کاربر

    با درود
    همانطور که در کد نویسی ها دیده میشه خیلی از دوستان از نام شیت استفاده میکنند و حتی لیتک دادن و ...... خب اگر این نام تغییر کنه دیگه هیچی برای جلوگیری از این کار راحترین راه وارد کردن کد زیر در ایونت شیت مورد نظر هستش مثلا برای یه شیت که اسمش هست Excel Iran
    کد:
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
        If ActiveSheet.Name <> "Excel Iran" Then
            ActiveSheet.Name = "Excel Iran"
        End If
    End Sub

    خب راه ها متفاوته - اگر دوست داشتین راه کار بدین اگرم نه که هیچ - در ضمن در کد نویسی ها از
    کد:
    ActiveSheet.CodeName
    استفاده کنین تا به مشکلات اینچنینی بر نخورین یا

    از
    کد:
     Sheet1.Select
    به جای
    کد:
        Sheets("excel iran").Select
    در اینجا شیت اکسل ایران همان شیت 1 کد نویسی هست که به این نام تغییر کرده در واقع هر شیت دو تا نام داره که هر دو استفاده میشن در کد نویسی اما صحیح ترش نام کد نویسی اونا هستش



    شبتون خوش تا فردا شب بدرود راهکارم نذاشتین در اخر خودم میزارم بلاخره میگن شیرازیااااااا ولی خوب همش دروغه ما بی حال نیستیم کافی یه نگا به ساعت پست بندازین - اره خلم دیگه حرفی توش نیست خووووووووووووووووووووو
    Last edited by ~M*E*H*D*I~; 2014/06/05, 10:37.
    در پناه خداوندگار ایران زمین باشید و پیروز
  • Amir Ghasemiyan

    • 2013/09/20
    • 4598
    • 100.00

    #2
    بسيار ممنون بابت داستاني كه سر هم كردي
    يه داستان كوتاه چند ثانيه اي هم من بگم با اجازه اساتيد
    ميرين تو تب review گزينه protect workbook رو ميزنين. رمز خواستين ميدين اگر هم نخواستين مهم نيست. OK كنين. ديگه كسي نميتونه اسم شيت رو عوض كنه

    کامنت

    • Ali Parsaei
      مدير تالارتوابع اکسل

      • 2013/11/18
      • 1522
      • 71.67

      #3
      بسيار متشکرم امين جان،
      دوستان توجه کنند که با راهکار معمول که آقاي قاسميان بيان کردند نام تمام شيت ها قفل خواهد شد، ولي با راهکار جناب اسماعيلي مي توان فقط نام يک شيت را غير قابل تغيير نمود که بسيار کاربردي است.
      ضمنا" انصافا" تنها يک نفر است که در سايت براي شيرازي ها حرف در مي آرود، اون رو هم من مي دونم کيه کاکو!
      و او کسي نيست جز: الف-الف !!!!
      مخفف گفتم چون اينجا بگم کيه خجالت مي کشه، خودم در پيام خصوصي بهش مي گم ديگه از اين حرفا نزنه چون امين اسماعيلي ناراحت مي شود!
      خوش به حال همگي شهرستاني ها! چون به هر حال هر گل يه بويي دارد
      ولي اينجا تو تهران همه بوها با هم قاطي شده
      [SIGPIC][/SIGPIC]

      کامنت

      • امين اسماعيلي
        مدير تالار ويژوال بيسيك

        • 2013/01/17
        • 1198
        • 84.00

        #4
        نه والو ناراحتی نیست - فقط دوست دارم الکی لایک نزارین حداقل تست کنین ببین مشکلاتش چیه داستان - راهکار بدین - ولی بعضی مواقع اصلا توجه نمیشه این اذیتم میکنه همین - دوستون دارم شیرازی و غیره هم نمک داستاناست جسارتی به کسی نیست
        در پناه خداوندگار ایران زمین باشید و پیروز

        کامنت

        • Ali Parsaei
          مدير تالارتوابع اکسل

          • 2013/11/18
          • 1522
          • 71.67

          #5
          نوشته اصلی توسط امين اسماعيلي
          دوستون دارم شیرازی و غیره هم نمک داستاناست جسارتی به کسی نیست
          جسارتي هم باشه به خودتونه! ما تو مسائل خانوادگي دخالت نمي کنيم!
          ما هم دوستون داريم هم شما رو، هم حسام رو، و هم آقاي همساده رو
          [SIGPIC][/SIGPIC]

          کامنت

          چند لحظه..