Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako preprečiti brisanje vrstic ali stolpcev v skupni nezaščiteni delovni zvezki?

Ko delite delovno knjigo drugim, kako lahko preprečite drugim, da izbrišejo stolpce ali vrstice v skupni delovni zvezki, ne da bi zaščitili delovno knjigo? Tu najdem kodo VBA, ki drugim preprečuje brisanje stolpcev in vrstic v skupni delovni zvezki.

Preprečite brisanje vrstic ali stolpcev v skupni delovni zvezki z VBA


puščica modra desno mehurček Preprečite brisanje vrstic ali stolpcev v skupni delovni zvezki z VBA


1. Pritisnite Alt + F11 da odprete Microsoft Visual Basic za aplikacijo okno.

2. klik Vstavi > Moduli da odprete okno modula, nato pa kopirajte naslednjo VBA v okno.

VBA: preprečite brisanje vrstic ali stolpcev.

Sub StopDeleteRowCols()
'Updateby20140708
Dim xBarControl As CommandBarControl
For Each xBarControl In Application.CommandBars.FindControls(ID:=293)
    xBarControl.Enabled = False
Next
For Each xBarControl In Application.CommandBars.FindControls(ID:=294)
    xBarControl.Enabled = False
Next
End Sub

3. klik Run gumb ali F5 za zagon te kode pritisnite tipko.

Ko drugi z desno miškino tipko izbrišete izbrane stolpce ali vrstice, v kontekstnem meniju ni mogoče uporabiti možnosti Delete. Prikaz slike:

doc-disable-delete-row-column-1

Opomba:

(1) Če ste delili svoj delovni zvezek z pregled > Deli delovni zvezek, ne morete več dodati makrov VBA. Zato je bolje, da dodate VBA, preden delite delovni zvezek.

(2) Ta VBA bo onemogočil Brisanje v kontekstnem meniju v vseh delovnih zvezkih, ko desni kliknete izbrane stolpce ali vrstice.

(3) Če želite obnoviti Brisanje v kontekstnem meniju, prosimo, zamenjajte obe False z True v zgoraj navedeni VBA in znova zaženite VBA.


Priporočena orodja za produktivnost za Excel

zavihek kte 201905

Kutools za Excel vam pomaga, da vedno končate delo pred časom in izstopite iz množice

  • Več kot zmogljive napredne funkcije 300, zasnovane za 1500 delovne scenarije, ki povečujejo produktivnost z 70%, vam dajejo več časa za skrb za družino in uživanje v življenju.
  • Ne potrebujete več pomnilniških formul in VBA kod, od zdaj naprej pa dajate svojim možganom počitek.
  • Postanite strokovnjak za Excel v minutah 3, zapletene in ponavljajoče se operacije lahko opravite v nekaj sekundah,
  • Vsak dan zmanjšajte število operacij tipkovnice in miške, zdaj se poslovite od poklicnih bolezni.
  • 110,000 visoko učinkovite ljudi in 300 + svetovno priznanih podjetij izbiro.
  • Brezplačna preizkusna različica 60 dneva. 60-dnevno jamstvo vračila denarja. 2 let brezplačne nadgradnje in podpore.

Prinaša kartično brskanje in urejanje za Microsoft Office, veliko močnejši od zavihkov brskalnika

  • Office Tab je namenjen za Word, Excel, PowerPoint in druge Office aplikacije: Založnik, Dostop, Visio in Projekt.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Z 50% poveča vašo produktivnost in vsak dan zmanjša na stotine klikov z miško!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Ian · 1 years ago
    Nice piece of code, but it doesn't prevent the user from using {ctrl} - to delete rows...
  • To post as a guest, your comment is unpublished.
    Manu Manjunath · 2 years ago
    Vba code to disable delete, cut and insert option in Excel hoe ribbon
  • To post as a guest, your comment is unpublished.
    Manu Manjunath · 2 years ago
    Can you Please share the vba code to disable Cut,Insert and Delete option in Home ribbon??? However i know thw vba code to disable it through right click and keyboard. But here i need code to disable cut, insert and delet option in excel home ribbon.