Hvordan forhindres sletning af rækker eller kolonner i en delt ubeskyttet projektmappe?
Når du deler en projektmappe med andre, hvordan kan du så forhindre andre i at slette kolonnerne eller rækkerne i din delte projektmappe uden at beskytte projektmappen? Her finder jeg en VBA-kode, der kan forhindre andre i at slette kolonnerne og rækkerne i en delt projektmappe.
Undgå sletning af rækker eller kolonner i en delt projektmappe med VBA
Undgå sletning af rækker eller kolonner i en delt projektmappe med VBA
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: Undgå sletning af rækker eller kolonner.
Sub StopDeleteRowCols()
'Updateby20221221
Dim xBarControl As CommandBarControl
Application.OnKey "^{-}", ""
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 Kør knappen eller F5 tasten på tastaturet for at køre denne kode.
Når andre derefter højreklikker for at slette valgte kolonner eller rækker, kan indstillingen Slet ikke anvendes i kontekstmenuen. Se skærmbillede:
Det forhindrer også brugere i at bruge genvejstaster Ctrl + - til at slette rækker eller kolonner.
Bemærk:
(1) Hvis du har delt din projektmappe med anmeldelse > Del projektmappe, kan du ikke tilføje nogen VBA-makroer længere. Derfor må du hellere tilføje VBA'en, før du deler projektmappen.
(2) Denne VBA vil deaktivere Slette i kontekstmenuen i alle projektmapper, når du højreklikker på valgte kolonner eller rækker.
(3) For at gendanne Slette i kontekstmenuen skal du erstatte begge dele False med Sand i VBA'en ovenfor, og kør VBA'en igen.
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!