ماکروهایی برای مخفی کردن عناصر فایل اکسل

ماکروهای زیر برای مخفی کردن و آشکار کردن Sheet1 توسط کدهای VBA استفاده می شوند.

Sub HideSheet()

ThisWorkbook.Sheets("sheet1").Visible = xlVeryHidden

End Sub

Sub UnHideSheet()

ThisWorkbook.Sheets("sheet1").Visible = True

End Sub

ماکروهای زیر به ترتیب برای مخفی و آشکار کردن پنجره مربوط به یک فایل اکسل باز استفاده می شوند. (فایل اکسل باز است ولی پنجره آن دیده نمی شود)

Sub HideWorkbook()

Windows("Book2.xlsx").Visible = False

End Sub

Sub UnHideWorkbook()

Windows("Book2.xlsx").Visible = True

End Sub

ماکروی زیر برای مخفی کردن تمام تصویر های موجود در Sheet1 استفاده می شود.

Sub HideImages()

Dim sh As Shape

For Each sh In Sheets(1).Shapes

If sh.Type = msoPicture Then

sh.Visible = False

End If

Next sh

End Sub

نویسنده : وحید فرزام

تاریخ انتشار : 1393-01-19 04:30:00

3489

#ماکرو

0 نظر

تازه ترین ها