Gå til hovedindhold

Sådan deaktiveres højreklik på arkfanen i Excel?

Denne artikel taler om at deaktivere højreklik på arkfanen i en projektmappe. Gør som nedenstående metode trin for trin.

Deaktiver højreklik på arkfanen i Excel med VBA-kode


Deaktiver højreklik på arkfanen i Excel med VBA-kode

Følgende VBA-script kan hjælpe dig med at deaktivere højreklikmenuen på arkfanen i Excel. Gør som følger.

1. I projektmappen skal du deaktivere højreklikfunktionen på arkfanen, tryk på andre + F11 taster samtidigt for at åbne Vinduet Microsoft Visual Basic til applikationer.

2. i Microsoft Visual Basic til applikationer dobbeltklik på vinduet ThisWorkbook til venstre Projekt ruden, kopier og indsæt derefter følgende VBA-kode i Denne arbejdsbog (kode) vindue. Se skærmbillede:

VBA-kode: Deaktiver højreklik på arkfanen i Excel

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.CommandBars("Ply").Enabled = True
End Sub

Private Sub Workbook_Open()
    Application.CommandBars("Ply").Enabled = False
End Sub

3. Tryk derefter på andre + Q taster samtidigt for at lukke Microsoft Visual Basic til applikationer vindue.

4. klik filet > Gem som. I Gem som i dialogboksen, angiv en mappe, hvor du skal gemme projektmappen, navngiv den i Filnavn boks, som du har brug for, og vælg Excel-makroaktiveret projektmappe mulighed fra Gem som type rullelisten, og klik til sidst på Gem .

Nu er projektmappen gemt som en Excel-makroaktiveret projektmappe, og højreklikfunktionen på arkfanen er deaktiveret, mens du bruger denne projektmappe.


Relaterede artikler:

Bedste kontorproduktivitetsværktøjer

Populære funktioner: Find, fremhæv eller identificer dubletter   |  Slet tomme rækker   |  Kombiner kolonner eller celler uden at miste data   |   Runde uden formel ...
Super opslag: VLookup med flere kriterier    Multiple Value VLookup  |   VOpslag på tværs af flere ark   |   Fuzzy Lookup ....
Avanceret rulleliste: Opret hurtigt rulleliste   |  Afhængig rulleliste   |  Multivælg rulleliste ....
Column Manager: Tilføj et bestemt antal kolonner  |  Flyt kolonner  |  Skift synlighedsstatus for skjulte kolonner  |  Sammenlign områder og kolonner ...
Fremhævede funktioner: Grid fokus   |  Designvisning   |   Stor Formel Bar    Arbejdsbog & Ark Manager   |  Ressourcebibliotek (Autotekst)   |  Datovælger   |  Kombiner regneark   |  Krypter/Dekrypter celler    Send e-mails efter liste   |  Superfilter   |   Specielt filter (filter fed/kursiv/gennemstreget...) ...
Top 15 værktøjssæt12 tekst Værktøj (tilføje tekst, Fjern tegn, ...)   |   50 + Chart Typer (Gantt kort, ...)   |   40+ Praktisk formler (Beregn alder baseret på fødselsdag, ...)   |   19 Indsættelse Værktøj (Indsæt QR-kode, Indsæt billede fra sti, ...)   |   12 Konvertering Værktøj (Tal til ord, Valutaomregning, ...)   |   7 Flet og del Værktøj (Avancerede kombinere rækker, Opdel celler, ...)   |   ... og mere

Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid.  Klik her for at få den funktion, du har mest brug for...

kte-fane 201905


Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere

  • Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
  • Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
  • Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!
Comments (6)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Can you explain this function, I don't understand, thank you " Application.CommandBars("Ply") "
This comment was minimized by the moderator on the site
Hi kitti,
Using the CommandBar named "Ply", it is possible to disable right clicks on a sheet tab:
This comment was minimized by the moderator on the site
How can i get a message when i disable richt click on worksheet tab
This comment was minimized by the moderator on the site
Hi Glenn Daelman,
Sorry I didn't get your point. Would you explain with more details? Thank you for your comment.
This comment was minimized by the moderator on the site
Superb Right Click in sheet tab is working.

Thanks alot
This comment was minimized by the moderator on the site
Private Sub Workbook_Open()
Application.CommandBars("Ply").Enabled = False
End Sub

this only deactivates RIGHT CLICK -- does not prevent the DOUBLE CLICK on tab from being renamed...
many thanks
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations