پرفروش ترين
برترين
آخرين محصولات فروشگاه
فایل الکترونیکی آموزش اکسل پیشرفته ۲۰۱۰
آموزش ایجاد فایل چندکاربره با سطح دسترسی مشخص
نمایش نتایج: از شماره 1 تا 5 , از مجموع 5

موضوع: چطور ميشه فقط و فقط يك شيت را طوري قفل كرد كه نشه حذفش كرد !؟

  1. #1


    آخرین بازدید
    2023/04/24
    تاریخ عضویت
    April 2014
    محل سکونت
    كرج
    نوشته ها
    893
    امتیاز
    4535
    سپاس
    2,336
    سپاس شده
    2,919 در 802 پست
    سطح اکسل
    64.00 %

    Up چطور ميشه فقط و فقط يك شيت را طوري قفل كرد كه نشه حذفش كرد !؟

    با سلام

    چطور ميتونم يك شيت مشخص ، با يك نام مشخص رو طوري با vb قفل كنم كه قابل حذف شدن نباشه ولي بقيه شيتها رو بشه حذف كرد . مثلا من 3 تا شيت دارم sheet1 و sheet2 و sheet3 من ميخوام فقط sheet1 طوري قفل بشه كه نشه حذفش كرد ولي بقيه شيتها رو بشه حذف كرد .
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

  2.  

  3. #2


    آخرین بازدید
    2022/06/26
    تاریخ عضویت
    January 2013
    محل سکونت
    شیراز
    نوشته ها
    1,199
    امتیاز
    3248
    سپاس
    1,570
    سپاس شده
    3,182 در 795 پست
    سطح اکسل
    84.00 %

    یا درود
    هر چند راه ها ی مختلفی واسه delete کردن شیت وجود داره اما خوب بیا این راه رو امتحان کن ببین در این حد به ارت میاد

    1- اول کد زیر رو باید برای ایونت کتیو شدن شیت 1 بنویسیم

    کد:
    Private Sub Worksheet_Activate()
    Application.CommandBars("Ply").Enabled = False
    End Sub
    2 - برعکس همین کد رو برای دی اکتیو شدن شیت مورد نظ مینویسیم
    کد:
    Private Sub Worksheet_Deactivate()
    Application.CommandBars("Ply").Enabled = True
    End Sub
    حالا راست کلیک رو این شیت غیر فعال شد.
    بعدش باید کاری کنی که شیت از منو بار هم غیر فعال بشه که میتونی واسه اون شیت یه پسورد بزاری و قفلش کنی و در هنگام قفل کردن یه سری محدودیت هایی رو که داره مل تغییر اطلاعات رو برداری. اینطوری delete از منو بار هم برداشته میشه. اگرم فرم داری نمونه کد خودکار وارد شدن پسورد و دوباره قفل شدن تو سایت هست میتونی استفاده کنی. تست کن ببین اینایی که گفتم به کارت میان
    در ضمن پسورد شیت 1 = 1214 هستش. برای محکم کاری میتونی واسه کد های vba هم پسورد بزاری . ولی در کل بگم همیشه یه راه درو هست. چون ما که از مایکرو سافت که ویندوز رو میده بیرون به 12 ساعت نکشیده کرکش میکنن که قویتر نیسیم . ولی بازم این میتونه در اون حد که شما میخواین کار گشا باشه
    فايل هاي پيوست شده فايل هاي پيوست شده
    در پناه خداوندگار ایران زمین باشید و پیروز


  4. #3


    آخرین بازدید
    2023/04/24
    تاریخ عضویت
    April 2014
    محل سکونت
    كرج
    نوشته ها
    893
    امتیاز
    4535
    سپاس
    2,336
    سپاس شده
    2,919 در 802 پست
    سطح اکسل
    64.00 %

    نقل قول نوشته اصلی توسط امين اسماعيلي نمایش پست ها
    یا درود
    هر چند راه ها ی مختلفی واسه delete کردن شیت وجود داره اما خوب بیا این راه رو امتحان کن ببین در این حد به ارت میاد

    1- اول کد زیر رو باید برای ایونت کتیو شدن شیت 1 بنویسیم

    کد:
    Private Sub Worksheet_Activate()
    Application.CommandBars("Ply").Enabled = False
    End Sub
    2 - برعکس همین کد رو برای دی اکتیو شدن شیت مورد نظ مینویسیم
    کد:
    Private Sub Worksheet_Deactivate()
    Application.CommandBars("Ply").Enabled = True
    End Sub
    حالا راست کلیک رو این شیت غیر فعال شد.
    بعدش باید کاری کنی که شیت از منو بار هم غیر فعال بشه که میتونی واسه اون شیت یه پسورد بزاری و قفلش کنی و در هنگام قفل کردن یه سری محدودیت هایی رو که داره مل تغییر اطلاعات رو برداری. اینطوری delete از منو بار هم برداشته میشه. اگرم فرم داری نمونه کد خودکار وارد شدن پسورد و دوباره قفل شدن تو سایت هست میتونی استفاده کنی. تست کن ببین اینایی که گفتم به کارت میان
    در ضمن پسورد شیت 1 = 1214 هستش. برای محکم کاری میتونی واسه کد های vba هم پسورد بزاری . ولی در کل بگم همیشه یه راه درو هست. چون ما که از مایکرو سافت که ویندوز رو میده بیرون به 12 ساعت نکشیده کرکش میکنن که قویتر نیسیم . ولی بازم این میتونه در اون حد که شما میخواین کار گشا باشه
    تشكر از جوابت ، از هيچي بهتره .
    فقط چرا تو اكسل 2007 كار نميكنه ولي تو اكسل 2003 كار ميكنه !!!!!!!!!
    تو اكسل 2003 هم وقتي sheet ها رو با دكمه ctrl بصورت گروهي انتخاب ميكني دوباره ميشه شيتهارو حذف كرد .

    اگر كدهاي ديگه اي به نظرتون رسيد ممنون ميشم همينجا برام بزاريد .

  5. سپاس ها (1)


  6. #4


    آخرین بازدید
    2022/12/05
    تاریخ عضویت
    October 2011
    محل سکونت
    مشهد
    نوشته ها
    4,399
    امتیاز
    12759
    سپاس
    4,642
    سپاس شده
    12,135 در 3,224 پست
    سطح اکسل
    70.00 %

    با استفاده از کد زیر میتونی شیت خاصی رو پروتکت کنی
    کد PHP:

    Public PvSh As String
     
    Public Pwd As String
     
     
     
    Private Sub Workbook_SheetActivate(ByVal Sh As  Object)
     If 
    Pwd "" Then
     
    If Sh.Name "Sheet2" Then
     Num 
    ActiveWindow.Index
     Windows
    (Num).Visible False
     
    If Application.InputBox("Enter Password""Password") <> "123" Then
     MsgBox 
    "Incorrect Password"vbCritical"Error"
     
    Application.EnableEvents False
     Sheets
    (PvSh).Select
     Application
    .EnableEvents True
     
    Else
     
    Pwd "123"
     
    End If
     
    Windows(Num).Visible True
     End 
    If
     
    End If
     
    End Sub
     
     
     
    Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
     
    PvSh Sh.Name
     
     End Sub 




  7. #5


    آخرین بازدید
    2022/06/26
    تاریخ عضویت
    January 2013
    محل سکونت
    شیراز
    نوشته ها
    1,199
    امتیاز
    3248
    سپاس
    1,570
    سپاس شده
    3,182 در 795 پست
    سطح اکسل
    84.00 %

    با درود
    من کدو تو 2010 تست کردم ج داد . در ضمن شیت 1 رو قفل کردین.
    یه راه دیگه هم اینه که شما شیت مذکور رو veryhide کنین با کد نویسی و اطلاعاتشو با یوزر فرم وارد کنین.
    در پناه خداوندگار ایران زمین باشید و پیروز



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

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

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

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

  1. استفاده از سلولهاي يك شيت در شيت ديگر
    توسط homai در انجمن توابع اکسل - Excel Functions
    پاسخ ها: 11
    آخرين نوشته: 2019/04/09, 22:37
  2. پيدا كردن تكراري هاي يك ستون و هايلايت كردن انها و كپي در شيت جداگانه و همچنين كپي گز
    توسط امين اسماعيلي در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 4
    آخرين نوشته: 2015/05/07, 13:18
  3. Refresh كردن يك Pivot Table درون يك شيت كه Hidden شده است
    توسط arsalan135 در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 4
    آخرين نوشته: 2014/03/03, 17:51
  4. كپي داده هاي چند سل از چند شيت در يك شيت خاص
    توسط rezahagh در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 3
    آخرين نوشته: 2013/05/19, 00:27
  5. جستجو در يك شيت ونمايش در شيت ديگر
    توسط homai در انجمن توابع اکسل - Excel Functions
    پاسخ ها: 6
    آخرين نوشته: 2011/02/13, 14:42

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

ذفش.با

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

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

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

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