Skjule enkelte ark i et regneark

kan du så ikke bare sende ark1 ?

Højreklik på arkfanen til ark1, vælg flyt eller kopier, husk at sætte mærke i boksen"Opret kopi".
I til projektmappe, vælger du "Ny projektmappe")

Nu er du så ovre i den nye, hvor du kun har ark1 med, vælg Filer > Send til, vælg der hvad du vil.

så lukker du bare mappen, uden at gemme, så er du tilbage der du startede.

Formater -> Ark -> Skjul

Sæt nedenstående kode ind i et modul i VBA-editoren.
Koden er alle linjer efter teksten 'VBA-koden:' begyndende med linjen 'Sub BeskytArk()'.

Du gør sådan her:
Tryk på [alt]+[F11]
  Der vises et vindue med en 'skakt' til venstre og et kodevindue til højre.
  Vælg menuen [Insert], punktet [Module].
  I 'skakten' til venstre vises nu et modul benævnt 'Module1'.
  I kodevinduet til højre indsættes hele nedenstående kode.
  Udskift arknavne og kodeord med dine egne, uden at slette anførelsestegnene.Der er 4 af hver.

Luk derefter VBA-editoren ved at trykke på meneun [File], punktet [Close and Return to Microsoft Excel]
Gem derefter regnearket, men luk ikke.

Du har nu lavet 4 makroer, de 2 af dem kan ses når du åbner makrovinduet ved at trykke på [alt]+[F8]

Vælg makroen BeskytArk og tryk på knappen [Afspil]. Nu bliver de valgte ark skjult, og beskyttet med det kodeord du har valgt.

Vælg makroen ÅbentArk og tryk på knappen [Afspil]. Nu bliver de valgte ark vist igen, og beskyttelsen er fjernet med det kodeord du har valgt.

Vær opmærksom på at det er en ret usikker beskyttelse. Man behøver ikke være særlig smart for at bryde den.

VBA-koden:
Sub BeskytArk()
'
    Sheets("Ark2").Select
        ActiveSheet.EnableSelection = xlNoSelection
        ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, password:="kodeord"
    Call Skjul_Tab
    '
    Sheets("Ark3").Select
        ActiveSheet.EnableSelection = xlNoSelection
        ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, password:="kodeord"

End Sub

Private Sub Skjul_Tab()
'
    ActiveWindow.DisplayWorkbookTabs = False
    '
    ActiveWindow.DisplayHeadings = False
    '
End Sub


Sub ÅbenArk()
'
    Sheets("Ark2").Select
    ActiveSheet.Unprotect password:="kodeord"
    Call Vis_Tab
    '
    Sheets("Ark3").Select
    ActiveSheet.Unprotect password:="kodeord"
    Call Vis_Tab
    '

Private Sub Vis_Tab()
'
    ActiveWindow.DisplayWorkbookTabs = True
    '
    ActiveWindow.DisplayHeadings = True
    '
End Sub

En anden mulighed er, at du lægger denne kode i en anden mappe, end den du skal sende.

Sub SkjulHelt()
    ActiveWorkbook.Sheets(2).Visible = xlVeryHidden
    ActiveWorkbook.Sheets(3).Visible = xlVeryHidden
End Sub

Åbn så den mappe, du skal sende, så den er aktiv. Afspil makroen. Nu skjules de to ark, og vælger du Formater - Ark - Vis, er denen ikke aktiv. De to skulte ark kan kun vises ved hjælp af VBA igen. Og så behøver du ikke kodeord.

Tak for hjælpen!

Tak for hjælpen!