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 onemogočiti možnost vstavljanja vrstice in stolpca v Excelu?

Običajno lahko hitro in enostavno vstavimo vrstice in stolpce med obstoječe podatke, če preprečite drugim, da vstavijo stolpce ali vrstice na delovnem listu, morda lahko zaščitite list, da onemogočite vstavljanje vrstic ali stolpcev. Ampak, kako lahko onemogočite vstavljanje vrstice in stolpca brez zaščite listov?

Preprečite drugim, da vstavijo vrstice in stolpce s kodo VBA


puščica modra desno mehurček Preprečite drugim, da vstavijo vrstice in stolpce s kodo VBA

Naslednja VBA koda vam lahko pomaga, da onemogočite vstavljanje vrstice in stolpca v delovni zvezek Excel, storite tako:

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

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

VBA koda: preprečite vstavljanje vrstic in stolpcev:

Sub NoInsert()
'Updateby Extendoffice 20161215
    Dim I As Integer
    Dim cbStr As String
    Dim cbCtrl As CommandBarControl
    Application.ScreenUpdating = False
    For I = 1 To 2
        If I = 1 Then
            cbStr = "row"
        Else
            cbStr = "column"
        End If
        For Each cbCtrl In Application.CommandBars(cbStr).Controls
            If cbCtrl.ID = 3183 Then
                cbCtrl.Enabled = False
            End If
        Next
    Next
    Application.ScreenUpdating = True
End Sub

3. Pritisnite F5 ključ za zagon te kode, zdaj ko z desno miškino tipko kliknete, če želite vstaviti vrstice ali stolpce, Vstavi v kontekstnem meniju ni mogoče uporabiti. Prikaz slike:

doc onemogoči funkcijo vstavljanja 1

Opombe:

1. Ta VBA bo onemogočila funkcijo Vstavi v kontekstni meni v vseh delovnih zvezkih, ko z desno miškino tipko vstavite vrstice ali stolpce.

2. Če želite povrniti ukaz Insert v kontekstnem meniju, uporabite naslednjo kodo:

Sub NoInsert()
'Updateby Extendoffice 20161215
    Dim I As Integer
    Dim cbStr As String
    Dim cbCtrl As CommandBarControl
    Application.ScreenUpdating = True
    For I = 1 To 2
        If I = 1 Then
            cbStr = "row"
        Else
            cbStr = "column"
        End If
        For Each cbCtrl In Application.CommandBars(cbStr).Controls
            If cbCtrl.ID = 3183 Then
                cbCtrl.Enabled = True
            End If
        Next
    Next
    Application.ScreenUpdating = True
End Sub

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.

Be the first to comment.