خطا

[reza_gh_tak]

با سلام من این محصول مدیریت دسترسی (https://forum.exceliran.com/showthread.php/15134-%D8%A2%D9%85%D9%88%D8%B2%D8%B4-%D9%88%DB%8C%D8%AF%D8%A6%D9%88%DB%8C%DB%8C-%D8%AA%D8%B9%DB%8C%DB%8C%D9%86-%D8%B3%D8%B7%D8%AD-%D8%AF%D8%B3%D8%AA%D8%B1%D8%B3%DB%8C-%D8%AF%D8%B1-%D8%A7%DA%A9%D8%B3%D9%84-%D8%A8%D8%A7-%D8%A7%D9%85%DA%A9%D8%A7%D9%86-%D8%AB%D8%A8%D8%AA-%D8%AA%D8%BA%DB%8C%DB%8C%D8%B1%D8%A7%D8%AA-%D9%88-%D8%A8%D8%A7%D8%B2%DA%AF%D8%B1%D8%AF%D8%A7%D9%86%D B%8C-%D8%A2%D9%86%D9%87%D8%A7?p=70245&viewfull=1#post70245) رو از سایت تهیه کردم الان می خوام این دستور رو اضافه کنم خطا میده:

Private Sub Workbook_Open()
Application.WindowState = xlMaximized
Set myRange = ActiveSheet
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
Application.DisplayFormulaBar = False
Application.DisplayStatusBar = Not Application.DisplayStatusBar
ActiveWindow.DisplayWorkbookTabs = False
ActiveWindow.DisplayHorizontalScrollBar = False
ActiveWindow.DisplayVerticalScrollBar = False

Dim wbBook As Workbook
Dim wsSheet As Worksheet


Set wbBook = ThisWorkbook


For Each wsSheet In wbBook.Worksheets
If Not wsSheet.Name = "Blank" Then wsSheet.Activate
With ActiveWindow
.DisplayHeadings = False
.DisplayGridlines = False
Application.DisplayFormulaBar = False
End With
Next wsSheet
Sheet1.Select
End Sub