delete کردن یک یا چند شیت بدون پرسش

**yamahdi13601982** · 2016/08/30

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

اخطار: این یک موضوع قدیمی است
به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

سیستم تبلیغات اکسل ایران

**amir_ts** · 2016/08/30

با سلام
کد زیر تمام شیت ها به غیر از شیت master رو حذف میکند.

کد:


Sub DeleteAllSheet()
Dim ws As Worksheet
Application.DisplayAlerts = False
For Each ws In Worksheets
If ws.Name <> "master" Then
ws.Delete
End If
Next ws
Application.DisplayAlerts = True
End Sub