سلام
چطور می توان کاری کرد که نتوان بعضی از شیت ها(نه همشون) را نه حذف کرد و نه تغییر نام داد
با تشکر
چطور می توان کاری کرد که نتوان بعضی از شیت ها(نه همشون) را نه حذف کرد و نه تغییر نام داد
با تشکر
-
-
RE: عدم حذف و تغییر نام شیت های مشخص
با سلام
فایل زیر رو نگاه کنین
برای جلوگیری از حذف sheet3 نوشته شده است
می تونید نام هر شیت که میخواهید رو به جاش بنویسید و در صورت اقدام به جذف اون شیت، پیغامی نمایش داده شد و از حذف آن جلوگیری شد.
تذکر: این کد برای جلوگیری از حذف یک شیت مناسب است و برای اینکه بتوان چندین شیت را اینچنین محافظت کرد، باید تغییرات جزئی در فایل داده شوددر یادگیری سیر نشوید :idea:
برای ارتباط بیشتر به [URL="https://excelpedia.net/"]سایت[/URL] [URL="https://excelpedia.net"][B][COLOR=#008000]ExcelPedia [/COLOR][/B][/URL]سربزنید.
برگزاری [URL="https://excelpedia.net/excel-ninja/"]دوره های آموزش[/URL] [URL="https://excelpedia.net/what-is-excel/"][B]اکسل [/B][/URL]در تهران
[URL="https://excelpedia.net/category/excel-functions/"][B]آموزش توابع اکسل[/B][/URL] -
RE: عدم حذف و تغییر نام شیت های مشخص
با سلام خدمت آقا سامان
اما من تونستم شيت 3 رو هم پاك و هم تغيير نام دهم ![B][COLOR=#FF0000]زكات دانش، كوشش در عمل به آن و آموزش به كسانى است كه شايسته آن هستند. [/COLOR][COLOR=#0000CD]امام علي (ع)[/COLOR][/B]کامنت
-
RE: عدم حذف و تغییر نام شیت های مشخص
با تشکر فراوان
ولی sheet3 حذف میشود
میشه چک کنید
مرسیکامنت
-
RE: عدم حذف و تغییر نام شیت های مشخص
با درود
کد زیر رو در صفحه هر شیت که خواستی کپی کن .
من اینو تو شیت 1 نوشتم و نام شیتم میخواستم amin باشه . شما میتونی تغییرش بدی
نکته کد ها اینه که من رنج A1 رو برای نام شیتم اختصاص دادم.
کد زیر جلوگیری میکنه از تغییر نام شیت.
Private Sub Worksheet_Deactivate()
Application.CommandBars.FindControl(ID:=847).Enabl ed = True
If Me.Name <> "amin" Then
Me.Activate
MsgBox " you don't let change this sheet name", vbCritical, "Change sheet name is illigal"
Me.Name = "amin"
Else
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.CommandBars.FindControl(ID:=847).Enabl ed = True
Range("A1").Value = Me.Name
If Range("A1").Value <> "amin" Then
MsgBox " you don't let change this sheet name", vbCritical, "Change sheet name is illigal"
Me.Name = "amin"
Range("A1").Value = "amin"
Else
End If
End Sub
در پناه خداوندگار ایران زمین باشید و پیروزکامنت
-
RE: عدم حذف و تغییر نام شیت های مشخص
متشکرمکامنت
کامنت