Linjer vises igen, når Excelfilen deles

Hvilken version af Excel anvender du og din kollega?

Det er 2010 begge to

Din kollegas sikkerhedscenter i Excel - har det samme indstilling som din?

Pas. Er det alt inde i sikkerhedscenteret jeg skal tjekke igennem eller noget specifikt du tænker på?

Ok - indstillinger for anvendelse af makroer

Vi har næsten helt samme indstillinger hele vejen ned i sikkerhedscenteret.

Forskellen er i arket "beskyttet visning", hvor jeg har krydset af i "Aktiver tilstanden Forhindring af datakørsel", hvilket min kollega ikke har krydset af og heller ikke har mulighed for.

Ingen af os har kryds i "Hav tillid til VBA-projektobjektmodellen" i "Indstillinger for makro". Har prøvet at krydse denne af, men det ændrer ikke ved noget.

Sidste forskel ligger under "Indstillinger for beskyttelse", hvor jeg har krydset af "Opret forbindelse til office.com...", hvilket min kollega ikke har.

Er der noget her som kan være årsag til det?

Nu anvender jeg 2007 - så noget af det har jeg ikke erfaring med.

Kan din kollega overhovedet kører med makroer i almindelighed?

Er det muligt at du kunne vise dine kode?

Min kollega kan godt køre med makroer. Har lige testet det med en lille kode, og det virker fint.

Den del af koden, der danner outputtet og skjuler linjerne kommer her:

Sub CreateOutput()

'Først kopieres ark1 over i et nyt outputark
Ark1.UsedRange.Copy
Ark3.Select
Ark3.Range("A1").Select
Ark3.Paste

'Derefter fjernes de inaktive linjer
Dim x5 As Integer
Dim Count4 As Integer
Count4 = Ark3.Range("A1").CurrentRegion.Rows.count

For x5 = 2 To Count4 - 1
    If Ark3.Cells(x5, 16) = "0" Then
        Rows(x5).Select
        Selection.EntireRow.Hidden = True
    End If
Next


'Løkke til at tælle antallet af hvide linjer i outputtet og skrive det til arket
Dim Count5 As Integer 'Tællevariabel der holder antallet af hvide række i outputtet
Count5 = 0

Ark3.Select
    For x5 = 2 To Count4
        Rows(x5).Select
        If Selection.EntireRow.Hidden = False And IsEmpty(Ark3.Cells(x5, 3)) = False Then
            Count5 = Count5 + 1
        End If
    Next

Ark3.Cells(Count4 + 2, 3) = Count5

End Sub

Har ikke noget svar..