آیا یاری کننده ای هست؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

Collapse
این تاپیک قفل است.
X
X
 
  • زمان
  • نمایش
حذف همه
new posts
  • saeed bagheri

    • 2016/11/21
    • 25

    [حل شده] آیا یاری کننده ای هست؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

    عدم حذف و تغییر نام شیت های مشخص

    سلام
    چطور می توان کاری کرد که نتوان بعضی از شیت ها(نه همشون) را نه حذف کرد و نه تغییر نام داد(در مورد عدم تغییر نام به نتیجه رسیدم اما درمورد جلوگیری از حذف شیت به نتیجه نرسیدم البته فایل ضمیمه باز نشد میشه درمورد عدم حذف یک یا چند شیت کدهارو بنویسین همراه با فایل ضمیمه ممنون میشم)
    با تشکر
  • rahi_feri

    • 2014/08/08
    • 524
    • 94.67

    #2
    سلام
    سوالات برنامه نویسی رو در قسمت مورد نظر طرح کنید...!
    ساده ترین کدش :
    کد:
    Private Sub Worksheet_Activate()
    ThisWorkbook.Protect "yourpassword"
    End Sub
    
    Private Sub Worksheet_Deactivate()
    ThisWorkbook.Unprotect "yourpassword"
    End Sub
    در موارد دیگه باید کنترل ها رو مخفی کرد مثل پنجره pop out برای شیت (ply) که البته فکر میکنم برای همه شیت ها رو مخفی میکنه !
    راه دیگه ای پیدا کردید لطفا اطلاع بدید...!
    با سپاس
    Last edited by rahi_feri; 2017/02/04, 18:50.
    [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]

    کامنت

    • saeed bagheri

      • 2016/11/21
      • 25

      #3
      سلام
      این کد برای جلوگیری ازحذف شیت در پروژه های ساده خوبه اما من میخام تو پروژه ای اشتفاده کنم که هر شیتی رو که خواستم دلیت نشه ، اما اگر اون شیت اکتیو بود (فایل اکسل یه شیت اکتیو داشت)برنامه بتونه یه شیت دیگه اضافه کنه(درصورتی که کنترل پاک کردن شیت غیر فعاله کنترل اضافه کردن شیت فعال باشه)فقط دکمه Delet شیت غیر فعال باشه یا کدی باشه که فقط مانع از پاک شیت بشه
      ممنون

      کامنت

      چند لحظه..