1004 Metoden Select for klassen Worksheet mislykkedes

Det vil være nemmere, hvis du viser den kode, der fejler.

I Modulet har jeg:

Sub Acceptafcopyright()

Application.ScreenUpdating = False

Dim Response As Integer

'Kontrol af at brugeren har accepteret betingelserne for brug af filen
If Range("Accept").Value = False Then
    Response = MsgBox("Du bedes venligst erklære, at du vil overholde ovenstående regler for copyright.", vbOKOlny, "Copyright 2011")

    If Response = vbOK Then
        Exit Sub
    End If
End If

'Frigør workbook
ActiveWorkbook.Unprotect Password:="12345"

'Ark der skal vises når copyrightbetingelserne er accepteret
Ark1.Visible = True
Ark2.Visible = True
Ark3.Visible = True
Ark4.Visible = True
Ark5.Visible = True

'Ark der skal skjules når copyrightbetingelserne er accepteret
Ark6.Visible = False

'Beskyt workbook
ActiveWorkbook.Protect Password:="12345"

Application.ScreenUpdating = True

End Sub

Sub Copyright()

frmCopyright.Show

End Sub


I This Workbook har jeg:

Private Sub Workbook_BeforeClose(Cancel As Boolean)

        Application.ScreenUpdating = False

        'Frigør workbook
        ActiveWorkbook.Unprotect Password:="12345"

        'Ark der skal skjules når copyrightbetingelserne er accepteret
        Ark6.Visible = True

        'Ark der skal vises når copyrightbetingelserne er accepteret
        Ark1.Visible = False
        Ark2.Visible = False
        Ark3.Visible = False
        Ark4.Visible = False
        Ark5.Visible = False

        Range("Accept").Value = False

        'Beskyt workbook
        ActiveWorkbook.Protect Password:="12345"

        'Gemmer filen i Copyrightmode
'        ActiveWorkbook.Save
        ActiveWorkbook.Close
       
        Application.ScreenUpdating = True
End Sub

Private Sub Workbook_Open()
        ActiveWorkbook.Protect Password:="12345"
End Sub

Lukker