خطا

[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 

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