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

[hajihadi]

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

[s.cheraghi]

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

با سلام
فایل زیر رو نگاه کنین
برای جلوگیری از حذف sheet3 نوشته شده است
می تونید نام هر شیت که میخواهید رو به جاش بنویسید و در صورت اقدام به جذف اون شیت، پیغامی نمایش داده شد و از حذف آن جلوگیری شد.
تذکر: این کد برای جلوگیری از حذف یک شیت مناسب است و برای اینکه بتوان چندین شیت را اینچنین محافظت کرد، باید تغییرات جزئی در فایل داده شود

[hamidreza313]

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

با سلام خدمت آقا سامان
اما من تونستم شيت 3 رو هم پاك و هم تغيير نام دهم !

[hajihadi]

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

[hajihadi]

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

متشکرم