Hvordan deaktiveres evnen til at indsætte række og kolonne i Excel?
Normalt kan vi hurtigt og nemt indsætte rækker og kolonner mellem eksisterende data, hvis du forhindrer andre i at indsætte kolonner eller rækker i et regneark, kan du muligvis beskytte ark for at deaktivere funktionen indsæt rækker eller kolonner. Men hvordan kunne du deaktivere indsæt række- og kolonnefunktion uden at beskytte ark?
Undgå, at andre indsætter rækker og kolonner med VBA-kode
Undgå, at andre indsætter rækker og kolonner med VBA-kode
Følgende VBA-kode kan hjælpe dig med at deaktivere indsættelsesrækken og kolonnefunktionen i Excel-projektmappe, gør venligst som denne:
1. Trykke Alt + F11 at åbne en Microsoft Visual Basic til anvendelse vindue.
2. Klik indsatte > Moduler for at åbne et modulvindue, kopier derefter følgende VBA til vinduet.
VBA-kode: forhindrer indsættelse af rækker og kolonner:
Sub NoInsert()
'Updateby Extendoffice
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. Trykke F5 nøgle til at køre denne kode, nu når du højreklikker for at gå til at indsætte rækker eller kolonner, vises indsatte indstillingen kan ikke anvendes i genvejsmenuen. Se skærmbillede:
Bemærkninger:
1. Denne VBA deaktiverer funktionen Indsæt i kontekstmenuen i alle projektmapper, når du højreklikker for at indsætte rækker eller kolonner.
2. For at gendanne kommandoen Indsæt i kontekstmenuen skal du anvende følgende kode:
Sub NoInsert()
'Updateby Extendoffice
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
Bedste kontorproduktivitetsværktøjer
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...
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!
