Jeg vil KUN se indholdet i ruderne

Fjern standard menuen med:

CommandBars("Worksheet Menu Bar").Enabled = False

De øvrige kan du nok fjerne forinden under menuen Vis - Værktøjslinier og andre elementer fra menuen Funktioner - Indstillinger fanebladet Vis.

Kan man ikke bare bruge: Gem som webside

Jeg indrømmer, at det ikke er noget jeg ved så meget om.  :-)

Jeg formoder du kun vil have det skjult i en bestemt workbook. Derfor vil det nok være fornuftigt at indsætte skjul/vis kommandoer i Workbookens Open/Before Close events.

Hvis du starter makrooptageren fra Funktioner - Makro - Indspil ny makro..., vil du kunne fange de forskellige kommandoer til VBA, når du udfører dem. Tilpas dem til de to situationer (åben/luk).

Gem som pdf ?

Her er en kode der kan lidt af hver
'Sikkerhed skal sættes til lav
Sub Auto_Open()
   
    Application.ScreenUpdating = False
    'Application.DisplayFullScreen = True 'FULD SKÆRM

    Application.DisplayFullScreen = False 'SLET HVIS KØRE I FULD VINDUE
    Application.WindowState = xlNormal 'SLET HVIS KØRE I FULD VINDUE
    Application.Width = 800 'SLET HVIS KØRE I FULD VINDUE
    Application.Height = 600 'SLET HVIS KØRE I FULD VINDUE
   

    Application.DisplayFormulaBar = False
    Application.DisplayStatusBar = False
    For Each MenuObjekt In MenuBars(xlWorksheet).Menus
          If MenuObjekt.Caption <> "&Hjælp (F1)" Then
         
                    MenuObjekt.Delete
         
          End If
        Next MenuObjekt
    Toolbars(1).Visible = False
    Toolbars(2).Visible = False
    Toolbars(3).Visible = False
    Toolbars(4).Visible = False
    Toolbars(5).Visible = False
    Toolbars(6).Visible = False
    Toolbars(7).Visible = False
    Toolbars(9).Visible = False
    Toolbars(10).Visible = False
    Toolbars(11).Visible = False
    Toolbars(12).Visible = False
    Toolbars(13).Visible = False
    With Application
        .ShowToolTips = True
        .LargeButtons = False
        .ColorButtons = True
    End With



    Application.OnKey "^{PgUp}", "ikke"
    Application.OnKey "^{PgDn}", "ikke"

    Application.OnKey "~", "ikke"
    Application.OnKey "{Home}", "ikke"
    Application.OnKey "^{Home}", "ikke"
   
    Application.OnKey "{Up}", "ikke"
    Application.OnKey "^{Up}", "ikke"
   
    Application.OnKey "{Escape}", "ikke"
    Application.OnKey "{F4}", "ikke"
    Application.OnKey "{F5}", "ikke"
    Application.OnKey "^{F5}", "ikke"
    Application.OnKey "{F6}", "ikke"
    Application.OnKey "{F1}", "ikke"
    Application.OnKey "^{F1}", "ikke"
    Application.OnKey "%{F1}", "ikke"
    Application.OnKey "{F2}"
    Application.OnKey "^{F2}", "ikke"
    Application.OnKey "%{F2}", "ikke"
    Application.OnKey "{F3}", "ikke"
    Application.OnKey "^{F3}", "ikke"
    Application.OnKey "%{F3}", "ikke"
    Application.OnKey "{F7}", "ikke"
    Application.OnKey "^{F7}", "ikke"
    Application.OnKey "%{F7}", "ikke"
    Application.OnKey "{F8}", "ikke"
    Application.OnKey "^{F8}", "ikke"
    Application.OnKey "%{F8}", "ikke"
    Application.OnKey "{F9}", "ikke"
    Application.OnKey "^{F9}", "ikke"
    Application.OnKey "%{F9}", "ikke"
    Application.OnKey "{F10}", "ikke"
    Application.OnKey "^{F10}", "ikke"
    Application.OnKey "%{F10}", "ikke"
    Application.OnKey "{F11}", "ikke"
    Application.OnKey "^{F11}", "ikke"
    Application.OnKey "%{F11}", "ikke"
    Application.OnKey "{F12}", "Indsæt_Menu" 'Makro til at indsæte menu
    Application.OnKey "^{F12}", "ikke"
    Application.OnKey "%{F12}", "ikke"
       
End Sub
'*****************************Indsætter menu igen MED F 12
Sub Indsæt_Menu()
   
    Application.EnableCancelKey = xlDisabled
      MenuBars(xlWorksheet).Reset
      'Toolbars(1).Visible = True
    'Toolbars(2).Visible = True
    'Toolbars(5).Visible = True
    With Application
        .ShowToolTips = True
        .LargeButtons = False
        .ColorButtons = True
    End With
    MenuBars(xlWorksheet).Reset
    Application.OnKey "^{PgUp}"
    Application.OnKey "^{PgDn}"
   

End Sub
'******************************
Sub ikke() 'Laver ingen ting
End Sub

.
Fagpolers kode er som sådan ok men, man skal tænke sig rigtig godt om inden man laver et sådan nummer...
En almindelig excelbruger vil kun åbne dette regneark een gang og aldrig mere, da den laver hele hans opsætning af excel om og ikke tilbagefører til standard ved afslutning eller skift af vindue. Han vil sansynligvis være nødt til at tilkalde en it-medarbejder for at kunne komme tilbage.

Der er rigtigt, at man fjerner værktøjslinjerne med koderne, men det var jo det han bad om, de fleste af Excels standard instillinger genoprettes når man lukker Ecxel.

Man kan også sætte værktøjslinjer ind automatisk med følgende kode.

Sub Auto_Close()
    Application.EnableCancelKey = xlDisabled
    MenuBars(xlWorksheet).Reset
    Toolbars(1).Visible = True
    Toolbars(2).Visible = True
    Toolbars(5).Visible = True
    With Application
        .ShowToolTips = True
        .LargeButtons = False
        .ColorButtons = True
    End With
    MenuBars(xlWorksheet).Reset
   


End Sub

ok, fagpoler :-)

Tak for hjælpen begge to, er der nogen der vil smide et svar?