کد vba جهت جلوگیری از،دلیت کردن یک شیت

**mokaram** · 2015/09/10, 09:49

کد زیر را تو ایونت SheetBeforeDelete فایل وارد کنید

کد PHP:


Private Sub Workbook_SheetBeforeDelete(ByVal Sh As Object)
Dim MyName As String


MyName = ThisWorkbook.ActiveSheet.Name


ThisWorkbook.ActiveSheet.Name = Left(MyName, 30) + "#"


ThisWorkbook.ActiveSheet.Copy _
After:=Sheets(ThisWorkbook.ActiveSheet.Index)


ThisWorkbook.ActiveSheet.Name = MyName
End Sub

**Prince_6000** · 2015/09/12, 17:49

مرسی ممنون از شما

**Prince_6000** · 2015/09/12, 18:59

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

**mokaram** · 2015/09/13, 08:19

نوشته اصلی توسط Prince_6000

مرسی ممنون از شما

نوشته اصلی توسط Prince_6000

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

دوست عزیز اگه با کد نویسی تو vba آشنایی نداری بهتره یه دوری تو انجمن بزنید به مقدماتی را یاد بگبرید . در ضمن برای گرفتن جوابتون بهتره تو یه تاپیک سوالتون را بپرسید و از مطرح کردن سوالتون در چند تاپیک جدا خودداری کنید . ممنون از اینکه رعایت می کنید

بعد از رفتن به محیط کدنویسی ( با زدن alt + f11 ) از سمت چپ روی گزینه This workbook دابل کلیک کرده از صفحه جدید باز شده بر روی general کلیک کرده و workbook را برگزینید حال از سمت راست گزینه SheetBeforeDelete را انتخاب کنید و کدهای ارائه شده در پست بالا را به آنجا منتقل کنید . در نهایت باید چیزی مثل پست بالا شود