Skjulte kolonner kommer frem igen

Hvis de skjulte kolonner kommer tilbage tænker jeg at der kører noget vba ved åbning af filen - ellers kan jeg ikke forstå de ikke forbliver skjult.

til 2. del kan det være fordi den aktive celle er i den fane - altså, det er ikke nok at skifte fane, du skal også aktivere en celle.

Hej Kim.
Tusind tak for svar.

Spg 1, så er der kodning på, men det omhandler fremsendes af mail - kan det gå ind og påvirke arket?

Spg 2 - okay, det må jeg lige se om det kan gøre en forskel.

Spg 1, jeg tænker at den kode også "afskjuler" kolonnerne for at sende en mail. Kan du vise os koden?

Det kan du tro

Option Explicit



Sub SendEmailTilCH()

Dim DataSti As String

Dim Filnavn As String

Dim objFolders As Object

Set objFolders = CreateObject("WScript.Shell").SpecialFolders

Dim OutlookPrg As Object

Dim OutlookMail As Object

Set OutlookPrg = CreateObject("Outlook.Application")

Set OutlookMail = OutlookPrg.CreateItem(0)

DataSti = objFolders("desktop") & Application.PathSeparator

Filnavn = Range("B4") & ", " & ActiveSheet.Name & ".pdf"

ActiveSheet.ExportAsFixedFormat _

    Type:=xlTypePDF, _

    Filename:=DataSti & Filnavn, _

    quality:=xlQualityStandard, _

    includedocproperties:=True, _

    ignoreprintareas:=False, _

    openafterpublish:=False

On Error Resume Next

With OutlookMail

    .To = ""

    .CC = ""

    .BCC = ""

    .Subject = Range("B4") & ", " & "Overførsel af merarbejde"

    .Body = "Hermed fremsendes ansøgning om individuel overførsel af merarbejde."

    .Attachments.Add (DataSti & Filnavn)

    .Display

End With

On Error GoTo 0

Kill (DataSti & Filnavn)

Set OutlookMail = Nothing

Set OutlookPrg = Nothing

Set objFolders = Nothing

End Sub

Er det den eneste vba der kører? Den ser ikke lige umiddelbart ud til at gøre noget, samtidig tænker jeg at du aktiverer den via en knap eller vælger at køre den. Jeg tænkte faktisk mere på noget som kørte automatisk når filen åbnes:
https://support.microsoft.com/en-us/office/automatically-run-a-macro-when-opening-a-workbook-1e55959b-e077-4c88-a696-c3017600db44

Jaden VBA bliver aktiveret via en knap.

Der kører ikke noget automatisk i arket.

Har du mulighed for at anonymisere arket og så ligge en kopi på f.eks. Dropbox så vi kan teste af?

puha, ved jeg ikke hvordan jeg gør.
Har du evt en mail jeg kan sende til ? :)

Jeg har smidt min mail i en privat besked herinde.