Hur kan man förhindra att arknamn ändras i Excel?

I Excel kan du ändra bladnamnet genom att dubbelklicka på fliknamnet snabbt och enkelt, men ibland tillåter du inte andra att ändra bladnamnet. I det här fallet, hur kan du förhindra att arknamnet ändras i en arbetsbok?

Förhindra att arknamnet ändras genom att skydda arbetsboken

Förhindra att arknamnet ändras med hjälp av VBA-kod

Förhindra att arknamnet ändras genom att skydda arbetsboken

Om du tillämpar Skydda arbetsboken funktion, ändras inte alla arknamn, gör så här:

1. Klicka översyn > Skydda arbetsboken, se skärmdump:

2. I Skydda strukturen och Windows dialogrutan, ange lösenordet, kontrollera Structure under Skydda arbetsbok för, och bekräfta sedan lösenordet igen, se skärmdump:

3. Klicka sedan OK knappen, nu, när du dubbelklickar för att ändra arkets namn, kommer ett varningsmeddelande att dyka upp för att påminna dig om att arkets namn inte kan ändras, se skärmdump:

Anmärkningar: Med den här funktionen, förutom att ändra arknamn, är andra funktioner som att infoga ark, ta bort ark, dölj ark ... inaktiverade också.

Lås upp Excel Magic med Kutools AI

• Smart utförande: Utför celloperationer, analysera data och skapa diagram – allt drivs av enkla kommandon.
• Anpassade formler: Skapa skräddarsydda formler för att effektivisera dina arbetsflöden.
• VBA-kodning: Skriv och implementera VBA-kod utan ansträngning.
• Formeltolkning: Förstå komplexa formler med lätthet.
• Textöversättning: Bryt språkbarriärerna i dina kalkylblad.

Förbättra dina Excel-funktioner med AI-drivna verktyg. Hämta hem nu och upplev effektivitet som aldrig förr!

Förhindra att arknamnet ändras med hjälp av VBA-kod

Här är en VBA-kod som också kan hjälpa dig att förhindra att ett specifikt arknamn ändras. Gör så här:

1. Högerklicka på arkfliken som du vill skydda arknamnet som inte ska ändras och välj sedan Visa kod från snabbmenyn, i poppade ut Microsoft Visual Basic för applikationer kopiera och klistra in följande kod i tomt Modulerna:

VBA-kod: Förhindra ändring av arknamn:

Private Sub worksheet_SelectionChange(ByVal Target As Excel.Range)
'Updateby Extendoffice
If ActiveSheet.Name <> "Master" Then
ActiveSheet.Name = "Master"
End If
End Sub

Anmärkningar: I ovanstående kod, Mastr är bladnamnet som du vill skydda från att ändras.

2. Spara och stäng sedan koden, från och med nu, när du byter namn på detta specifika arknamn, kommer det att återställas till det ursprungliga på en gång. Se skärmdump: