پرسش خطا

[reza_gh_tak]

با سلام من این محصول مدیریت دسترسی رو از سایت تهیه کردم الان می خوام این دستور رو اضافه کنم خطا میده:

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