ужас блин! :( personal.xlb

[Tirendus]

Постоянно когда открываю какой-либо документ эксель, вместе с ним открывается этот personal.xlb, когда пытаюсь запустить хоть какой-то макрос, все они выполняются именно на этой страничке, а не там, где надо... ппц просто, помогите пожалуйста, подскажите как сделать так, что б он не открывался с каждым документом!

[Stilet]

Ну глянь какой макрос стоит в шаблоне для Экзеля... Скорее всего там что-то прописано.

[Tirendus]

был только один макрос, после которого такое стало случаться, сохранил его в текстовик и удалил модуль, не помогло

при том никаких макросов с событием открытия книги у меня нет

[The_Prist]

Посмотрите в редакторе VBA-Tools-References, нет ли ссылки на эту книгу. Если есть - снимите галочку.

[Tirendus]

Галочки там только напротив

Visual basic for applications
microsoft excel 12.0 object library
ole automation
microsoft office 12.0 object library


перезагрузка тоже не помогла=\


всё началось после того, как я раз 10 загружал этот макрос с разными настройками, которые по сути мало чем отличались

Sub macros1()
Application.ScreenUpdating = False
Dim i As Integer
Dim j As Integer
  Dim c As Range, h As Long
    Dim r As Range
    Set r = ActiveSheet.UsedRange
    Dim s As String
    s = ThisWorkbook.Name

    Dim sh2 As Worksheet: Set sh2 = Workbooks.Add(xlWBATWorksheet).Worksheets(1)

    Dim MaxRow As Long: MaxRow = Cells.SpecialCells(xlCellTypeLastCell).Row
    On Error Resume Next
    
    Do
        With r
            Set c = .Find("games", After:=.Cells(.Cells.Count), LookAt:=xlPart)
            If c Is Nothing Then
                GoTo line1
                End If
            If c.Row = .Row + .Rows.Count - 1 Then
                GoTo line1
            End If
            c.Offset(1, 0).EntireRow.Insert
            If Err.Number <> 0 Then
                MsgBox "cannot do"
                GoTo line1
            End If
            h = c.Row - .Row + 2
            Set r = .Offset(h, 0).Resize(.Rows.Count - h, .Columns.Count)
        End With
    Loop
     
line1:
   For i = MaxRow To 1 Step -1
    
    If Cells(i, 5).Value <> "" And Cells(i, 4).Value = "" Then
        Cells(i, 5).Select: Selection.Cut: Cells(i, 4).Select: ActiveSheet.Paste
    End If
    
    If IsNumeric(Right(Cells(i, 4), 4)) And Right(Cells(i, 4), 5) <> "-" And Cells(i, 7) = "" Then
        Cells(i, 7) = Right(Cells(i, 4), 4)
        Cells(i, 4) = Mid(Cells(i, 4), 1, Len(Cells(i, 4)) - 4)
    End If
    
    If IsNumeric(Right(Cells(i, 4), 3)) And Right(Cells(i, 4), 4) <> "-" And Cells(i, 7) = "" Then
        Cells(i, 7) = Right(Cells(i, 4), 3)
        Cells(i, 4) = Mid(Cells(i, 4), 1, Len(Cells(i, 4)) - 3)
    End If
    
    If IsNumeric(Right(Cells(i, 4), 2)) And Right(Cells(i, 4), 3) <> "-" And Cells(i, 7) = "" Then
        Cells(i, 7) = Right(Cells(i, 4), 2)
        Cells(i, 4) = Mid(Cells(i, 4), 1, Len(Cells(i, 4)) - 2)
    End If
    
    If IsNumeric(Right(Cells(i, 4), 1)) And Right(Cells(i, 4), 2) <> "-" And Cells(i, 7) = "" Then
        Cells(i, 7) = Right(Cells(i, 4), 1)
        Cells(i, 4) = Mid(Cells(i, 4), 1, Len(Cells(i, 4)) - 1)
    End If
    
    If Len(Cells(i, 7)) = 4 And Cells(i, 8).Value = "" Then
        Cells(i, 8) = Mid(Cells(i, 7), 1, Len(Cells(i, 7)) - 2)
        Cells(i, 7) = Mid(Cells(i, 7), 1, Len(Cells(i, 7)) - 2)
    End If
        If Len(Cells(i, 7)) = 2 And Cells(i, 8).Value = "" Then
        Cells(i, 8) = Mid(Cells(i, 7), 1, Len(Cells(i, 7)) - 1)
        Cells(i, 7) = Mid(Cells(i, 7), 1, Len(Cells(i, 7)) - 1)
    End If
   Next
   

   For j = 1 To MaxRow
    If Cells(j, 4).Value Like "*Total Games*" Then
        Cells(j, 4).Select
        Range(Selection, Selection.End(xlDown)).Select
        Application.SendKeys ("+{down}^c")
        Selection.Copy
    End If
   Next
 End Sub

[The_Prist]

Возможно спрошу бред, но все же.
Вы в последующих кодах вот эту строчку

Dim sh2 As Worksheet: Set sh2 = Workbooks.Add(xlWBATWorksheet).Worksheets(1)

случаем не используете?

[Tirendus]

последующих? у меня есть еще несколько несвязанных макросов, в которых она есть, а что?

[The_Prist]

Эта строка создает новую книгу по шаблону. А шаблон у Вас и есть, наверное, этот personal.xlb. Попробуйте убрать в макросах эту строку, если создание новой книги в макросе не нужно, а нужно выполнить действия именно в активной книге.

[Tirendus]

создание новой книги действительно нужно + я уже создавал этим действием в трех макросах книги... и ни разу не было такой фигни... странно было бы, если бы она вдруг появилась

[Rom1k06]

Исхоики вещь хорошая, но когда пишешь новый надо код просматривать полностью!