Notifikationer

Markér alle som læst Log ud

fagpoler Novice

01. september 2006 - 12:12 Der er 5 kommentarer og
2 løsninger

Fjern Højreklik på Fil i Excel

Jeg bruger følgende kode for at få Excel til at køre i vindue, og fjerne mulighed for at Højreklik i menulinjen for oven i Excel.
Application.WindowState = xlNormal 'SLET VIS KØRE I FULD VINDUE

Application.Width = 900 'HVIS MINDRE VINDUE
Application.Height = 700 'HVIS MINDRE VINDUE

Application.CommandBars("ToolBar List").Enabled = False 'Fjerner Højreklik på den øverste linje i XP (men kun i menulinjen)
Men den fil (eller vindue) der køre i Excel kan også minimeres, gendan vindue eller maksimeres.
Hvis den IKKE er maksimeret kan man på den blå linje højreklikke og få fat i en menu hvor man kan vælge Gem, Gem som, Udskriv, Sideopsætning, Nyt vindue, Arranger, Zoom, Vis porgramkode.

Kan man ikke fjerne mulighed for højreklik, eller aller helst fjerne menuen Nyt vindue, Arranger og Vis porgramkode.

Synes godt om

Flemming Vadet - Smart Office DK Professor

01. september 2006 - 20:22 #1

CommandBars("Cell").Enabled = False

Synes godt om

fagpoler Novice

01. september 2006 - 21:39 #2

Jeg kan ikke få det til at virke, du kan se vilken linje der er jeg mener.
http://www.fagpolering.dk/hojreklik.jpg

Synes godt om

Flemming Vadet - Smart Office DK Professor

01. september 2006 - 23:03 #3

okay - det jeg har svaret med er højreklik i selve cellerne...

Synes godt om

Flemming Vadet - Smart Office DK Professor

01. september 2006 - 23:12 #4

Det er denne her du skal bruge
CommandBars("Document").Enabled = False

Her er lidt forskellige, som kan nogle af de forskellige ting... ellers kør den sidste og se alle navnene i debuggeren, så kan du prøve dig frem... husk at sætte dem til true igen, hvis ikke du kan se hvad du har gjort....

Sub Testing()
CommandBars("Toolbar List").Enabled = False
CommandBars("Cell").Enabled = False
CommandBars("Column").Enabled = False
CommandBars("Row").Enabled = False
CommandBars("Ply").Enabled = False
CommandBars("Document").Enabled = False
End Sub

Sub DebugAllCommandBarNames()
Dim cb As CommandBar
For Each cb In CommandBars
Debug.Print cb.Name
Next cb
End Sub

Synes godt om

fagpoler Novice

02. september 2006 - 07:31 #5

Tusind tak det virker, du får dine velfortjente point hvad gør Column, Row og Ply?

Synes godt om

Flemming Vadet - Smart Office DK Professor

02. september 2006 - 22:41 #6

Column og Row fjerner højreklik på Column headerne og Row numrene.

Synes godt om

Flemming Vadet - Smart Office DK Professor

02. september 2006 - 22:42 #7

jeg kan ikke lige huske have ply gør - men det er jo snart "slut" for i office 2007 kan man fjerne alle office menuer med en kommando :-)

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Excel kurser

Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Kan Excel selv beregne alder? Af leahcim i Excel	4	I dag 10:24	23 minutter siden
problem med mailbesked Af Pestilensen i Excel	3	24/08/202611:16	28/08/202612:55
Sætte billeder ind i google sheets ark ud fra elev nummer Af lurup i Excel	16	17/08/202615:14	27/08/202601:20
Gemme største værdi Af Lemming@privat.dk i Excel	2	07/08/202622:13	08/08/202609:03
Forskel mellem klokkeslet start aften slut næste morgen Af krasmussen i Excel	13	24/07/202611:08	03/08/202618:42

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS