Przejdź do głównej zawartości

Jak wyłączyć edycję w polu tekstowym, aby uniemożliwić wprowadzanie danych przez użytkownika w programie Excel?

W tym artykule jest mowa o wyłączaniu edycji w polu tekstowym (formant ActiveX) lub wielu polach tekstowych (formant ActiveX), aby uniemożliwić użytkownikowi wprowadzanie danych w programie Excel.

Wyłącz edycję w polu tekstowym, zmieniając jego właściwości
Wyłącz edycję w wielu polach tekstowych według kodu VBA


Wyłącz edycję w polu tekstowym, zmieniając jego właściwości

Ta sekcja pokaże Ci, jak zmienić właściwości pola tekstowego, aby wyłączyć edycję tego pola tekstowego. Wykonaj następujące czynności.

1. Włącz tryb projektowania, klikając Deweloper > Tryb projektowania. Zobacz zrzut ekranu:

2. Kliknij prawym przyciskiem myszy pole tekstowe i kliknij Właściwości z menu kontekstowego, jak pokazano poniżej.

3. W otwarciu Właściwości okno dialogowe, wybierz Fałszywy Włączone a następnie zamknij okno dialogowe Właściwości. Zobacz zrzut ekranu:

Teraz wybrane pole tekstowe jest szare i nie można go edytować.


Wyłącz edycję w wielu polach tekstowych według kodu VBA

Jeśli chcesz wyłączyć edycję w wielu polach tekstowych w arkuszu, zastosuj poniższy kod VBA.

1. W arkuszu zawiera wiele pól wyboru, które należy wyłączyć edycję, kliknij Deweloper > wstawka > Pole wyboru (formant ActiveX) aby wstawić pole wyboru do arkusza. Zobacz zrzut ekranu:

2. Kliknij prawym przyciskiem pole wyboru i wybierz Wyświetl kod z menu kontekstowego. Zobacz zrzut ekranu:

3. w Microsoft Visual Basic for Applications oknie, zamień oryginalny kod na poniższy kod VBA.

Kod VBA: Wyłącz edycję w wielu polach tekstowych

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

Uwagi:

1. W kodzie Pole wyboru1 to nazwa wstawionego pola wyboru. I TextBox1, TextBox2, TextBox3 to pola tekstowe, których edycję wyłączysz w arkuszu. Zmień je według potrzeb.

2. Aby wyłączyć edycję dla większej liczby pól tekstowych, dodaj do wiersza nazwę pola tekstowego obejmującą podwójne cudzysłowy xArr = Array ("TextBox1", "TextBox2", "TextBox3").

4. Następnie zapisz i zamknij kod, wyłącz tryb projektowania, teraz zaznaczenie pola wyboru sprawi, że wszystkie określone pola tekstowe nie będą mogły być edytowane w arkuszu. Zobacz zrzut ekranu:

Note: Jeśli odznaczysz to pole wyboru, pola tekstowe będą mogły być ponownie edytowane.


Podobne artykuły:

Najlepsze narzędzia biurowe

🤖 Pomocnik AI Kutools: Zrewolucjonizuj analizę danych w oparciu o: Inteligentne wykonanie   |  Wygeneruj kod  |  Twórz niestandardowe formuły  |  Analizuj dane i generuj wykresy  |  Wywołaj funkcje Kutools...
Popularne funkcje: Znajdź, wyróżnij lub zidentyfikuj duplikaty   |  Usuń puste wiersze   |  Łącz kolumny lub komórki bez utraty danych   |   Okrągły bez wzoru ...
Super wyszukiwanie: Wiele kryteriów VLookup    Wiele wartości VLookup  |   Przeglądanie pionowe na wielu arkuszach   |   Wyszukiwanie rozmyte ....
Zaawansowana lista rozwijana: Szybko twórz listę rozwijaną   |  Zależna lista rozwijana   |  Lista rozwijana wielokrotnego wyboru ....
Menedżer kolumn: Dodaj określoną liczbę kolumn  |  Przesuń kolumny  |  Przełącz stan widoczności ukrytych kolumn  |  Porównaj zakresy i kolumny ...
Polecane funkcje: Fokus siatki   |  Widok projektu   |   Duży pasek formuły    Menedżer skoroszytów i arkuszy   |  Biblioteka zasobów (Automatyczny tekst)   |  Selektor dat   |  Połącz arkusze   |  Szyfruj/odszyfruj komórki    Wysyłaj e-maile według listy   |  Super filtr   |   Specjalny filtr (filtruj pogrubienie/kursywa/przekreślenie...) ...
15 najlepszych zestawów narzędzi12 Tekst Tools (Dodaj tekst, Usuń znaki, ...)   |   50 + Wykres rodzaje (Wykres Gantta, ...)   |   40+ Praktyczne Wzory (Oblicz wiek na podstawie urodzin, ...)   |   19 Wprowadzenie Tools (Wstaw kod QR, Wstaw obraz ze ścieżki, ...)   |   12 Konwersja Tools (Liczby na słowa, Przeliczanie walut, ...)   |   7 Połącz i podziel Tools (Zaawansowane wiersze łączenia, Podział komórki, ...)   |   ... i więcej

Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas.  Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...

Opis


Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę

  • Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
  • Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
  • Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!
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