Hoppa till huvudinnehåll

Hur inaktiverar du redigering i textrutan för att förhindra användarens inmatning i Excel?

Den här artikeln talar om att inaktivera redigering i en textruta (ActiveX Control) eller flera textrutor (ActiveX Control) för att förhindra att användare matar in i Excel.

Inaktivera redigering i en textruta genom att ändra dess egenskaper
Inaktivera redigering i flera textrutor med VBA-kod


Inaktivera redigering i en textruta genom att ändra dess egenskaper

Detta avsnitt visar hur du ändrar egenskaperna för en textruta för att inaktivera redigering av denna textruta. Gör så här.

1. Aktivera designläget genom att klicka på Utvecklare > Designläge. Se skärmdump:

2. Högerklicka på textrutan och klicka Våra Bostäder från snabbmenyn som visas nedan.

3. I öppningen Våra Bostäder dialogrutan väljer du Falsk i Aktiverat och stäng sedan dialogrutan Egenskaper. Se skärmdump:

Nu är den markerade textrutan grå och kan inte redigeras.


Inaktivera redigering i flera textrutor med VBA-kod

Om du vill inaktivera redigering i flera textrutor i ett kalkylblad, använd VBA-koden nedan.

1. I kalkylbladet innehåller flera kryssrutor som du behöver för att inaktivera redigering, klicka Utvecklare > Insert > Kryssruta (ActiveX-kontroll) för att infoga en kryssruta i kalkylbladet. Se skärmdump:

2. Högerklicka på kryssrutan och välj Visa kod från snabbmenyn. Se skärmdump:

3. I Microsoft Visual Basic för applikationer fönster, byt ut den ursprungliga koden med nedanstående VBA-kod.

VBA-kod: Inaktivera redigering i flera textrutor

Private Sub CheckBox1_Click()
    Dim xTextBox As OLEObject
    Dim xFlag As Boolean
    Dim I As Long
    Dim xArr
    xArr = Array("TextBox1", "TextBox2", "TextBox3")
    xFlag = True
    If Me.CheckBox1 Then xFlag = False
    For Each xTextBox In ActiveSheet.OLEObjects
        If TypeName(xTextBox.Object) = "TextBox" Then
            For I = 0 To UBound(xArr)
                If xTextBox.Name = xArr(I) Then
                    xTextBox.Enabled = xFlag
                End If
            Next
        End If
    Next
End Sub

Anmärkningar:

1. I koden, Kontrollbox1 är namnet på din infogade kryssruta. Och TextBox1, TextBox2och TextBox3 är textrutorna du kommer att inaktivera redigering i kalkylbladet. Ändra dem efter behov.

2. För att inaktivera redigering för fler textrutor, lägg till textrutans namn som omfattar dubbla citat i raden xArr = Array ("TextBox1", "TextBox2", "TextBox3").

4. Spara och stäng sedan koden, stäng av designläget. Om du markerar kryssrutan kan alla angivna textrutor inte redigeras i kalkylbladet. Se skärmdump:

Anmärkningar: Om du avmarkerar kryssrutan kan textrutorna redigeras igen.


Relaterade artiklar:

Bästa kontorsproduktivitetsverktyg

🤖 Kutools AI Aide: Revolutionera dataanalys baserat på: Intelligent utförande   |  Generera kod  |  Skapa anpassade formler  |  Analysera data och generera diagram  |  Anropa Kutools funktioner.
Populära funktioner: Hitta, markera eller identifiera dubbletter   |  Ta bort tomma rader   |  Kombinera kolumner eller celler utan att förlora data   |   Rund utan formel ...
Superuppslag: Flera kriterier VLookup    VLookup med flera värden  |   VSök över flera ark   |   Fuzzy Lookup ....
Avancerad rullgardinslista: Skapa snabbt en rullgardinslista   |  Beroende rullgardinslista   |  Flervals-rullgardinslista ....
Kolumnhanterare: Lägg till ett specifikt antal kolumner  |  Flytta kolumner  |  Växla synlighetsstatus för dolda kolumner  |  Jämför intervall och kolumner ...
Utvalda funktioner: Rutnätsfokus   |  Designvy   |   Stor formelbar    Arbetsbok & Bladhanterare   |  Resursbibliotek (Automatisk text)   |  Datumväljare   |  Kombinera arbetsblad   |  Kryptera/Dekryptera celler    Skicka e-postmeddelanden efter lista   |  Superfilter   |   Specialfilter (filtrera fet/kursiv/genomstruken...) ...
Topp 15 verktygssatser12 text verktyg (lägga till text, Ta bort tecken, ...)   |   50+ Diagram Typer (Gantt Chart, ...)   |   40+ Praktiskt Formler (Beräkna ålder baserat på födelsedag, ...)   |   19 Införande verktyg (Infoga QR-kod, Infoga bild från sökväg, ...)   |   12 Konvertering verktyg (Siffror till ord, Valutaväxling, ...)   |   7 Slå ihop och dela verktyg (Avancerade kombinera rader, Dela celler, ...)   |   ... och mer

Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid.  Klicka här för att få den funktion du behöver mest...

Beskrivning


Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare

  • Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
  • Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
  • Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations