Kako onemogočiti urejanje v besedilnem polju, da preprečite vnos uporabnika v Excelu?
Ta članek govori o onemogočanju urejanja v besedilnem polju (ActiveX Control) ali več besedilnih poljih (ActiveX Control), da se prepreči vnos uporabnika v Excelu.
Onemogočite urejanje v besedilnem polju tako, da spremenite njegove lastnosti
Onemogočite urejanje v več besedilnih poljih s kodo VBA
Onemogočite urejanje v besedilnem polju tako, da spremenite njegove lastnosti
Ta razdelek vam bo pokazal, kako spremenite lastnosti besedilnega polja, da onemogočite urejanje tega besedilnega polja. Naredite naslednje.
1. Vklopite način oblikovanja s klikom Razvojni > Način oblikovanja. Oglejte si posnetek zaslona:
2. Z desno miškino tipko kliknite besedilno polje in kliknite Nepremičnine iz kontekstnega menija, kot je prikazano spodaj.
3. Na odprtju Nepremičnine pogovorno okno, izberite False v omogočeno in nato zaprite pogovorno okno Properties. Oglejte si posnetek zaslona:
Zdaj je izbrano besedilno polje sivo in ga ni mogoče urejati.
Onemogočite urejanje v več besedilnih poljih s kodo VBA
Če želite onemogočiti urejanje v več besedilnih poljih na delovnem listu, uporabite spodnjo kodo VBA.
1. V delovnem listu je več potrditvenih polj, ki jih želite onemogočiti, kliknite Razvojni > Vstavi > Potrditveno polje (nadzor ActiveX) da v delovni list vstavite potrditveno polje. Oglejte si posnetek zaslona:
2. Z desno miškino tipko kliknite potrditveno polje in izberite Ogled kode iz kontekstnega menija. Oglejte si posnetek zaslona:
3. V Ljubljani Microsoft Visual Basic za aplikacije okno, zamenjajte izvirno kodo s spodnjo kodo VBA.
Koda VBA: onemogočite urejanje v več besedilnih poljih
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
Opombe:
1. V kodi: Polje za preverjanje1 je ime vašega vstavljenega potrditvenega polja. In Besedilno polje 1, Besedilno polje 2in Besedilno polje 3 so polja z besedilom, ki jih boste na delovnem listu onemogočili. Prosimo, spremenite jih po potrebi.
2. Če želite onemogočiti urejanje več besedilnih polj, v vrstico dodajte ime besedilnega polja z dvojnimi narekovaji xArr = matrika ("TextBox1", "TextBox2", "TextBox3").
4. Nato shranite in zaprite kodo, izklopite način oblikovanja, zdaj pa potrditev polja onemogoči urejanje vseh določenih besedilnih polj na delovnem listu. Oglejte si posnetek zaslona:
Opombe: Če počistite potrditveno polje, lahko polja z besedilom znova urejate.
Sorodni članki:
- Kako samodejno izbrati besedilo v besedilnem polju, ko je izbrano v Excelu?
- Kako samodejno dokončati besedilno polje pri tipkanju v Excelu?
- Kako počistiti vsebino besedilnega polja ob kliku v Excelu?
- Kako združiti besedila več celic v besedilno polje v Excelu?
- Kako oblikovati besedilno polje v odstotkih v Excelu?
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!