Բաց թողնել հիմնական բովանդակությունը

Ինչպե՞ս անջատել խմբագրումը տեքստային տուփում `կանխելու համար օգտագործողի մուտքագրումը Excel- ում:

Այս հոդվածում խոսվում է տեքստային տուփում (ActiveX Control) կամ բազմաթիվ տեքստային տուփերում (ActiveX Control) խմբագրումն անջատելու մասին ՝ օգտագործողի Excel- ում մուտքագրումը կանխելու համար:

Անջատեք խմբագրումը տեքստային տուփում `փոխելով դրա հատկությունները
Անջատեք խմբագրումը մի քանի տեքստային տուփերում VBA կոդի միջոցով


Անջատեք խմբագրումը տեքստային տուփում `փոխելով դրա հատկությունները

Այս բաժինը ցույց կտա ձեզ փոխել տեքստի տուփի հատկությունները ՝ այս տուփի խմբագրումը անջատելու համար: Խնդրում եմ, արեք հետևյալ կերպ.

1. Միացրեք Դիզայնի ռեժիմը ՝ կտտացնելով Երեվակիչ > Դիզայնի ռեժիմ, Տեսեք,

2. Աջ կտտացրեք տեքստային տուփին և կտտացրեք Հատկություններ համատեքստային ընտրացանկից, ինչպես ցույց է տրված նկարի ներքևում:

3. Բացման մեջ Հատկություններ երկխոսության տուփ, ընտրեք Կեղծ է Միացված տուփը և այնուհետև փակել Հատկություններ երկխոսության վանդակը: Տեսեք,

Այժմ ընտրված տուփը մոխրագույն է և չի կարող խմբագրվել:


Անջատեք խմբագրումը մի քանի տեքստային տուփերում VBA կոդի միջոցով

Եթե ​​ցանկանում եք անջատել խմբագրումը աշխատանքային տետրում գտնվող բազմաթիվ տեքստային տուփերում, խնդրում ենք կիրառել ստորև նշված VBA կոդը:

1. Աշխատաթերթում պարունակում են բազմաթիվ վանդակներ, որոնք անհրաժեշտ է անջատել խմբագրումը, կտտացրեք Երեվակիչ > Տեղադրել > Նշման տուփ (ActiveX հսկողություն) աշխատանքային էջում վանդակը տեղադրելու համար: Տեսեք,

2. Աջ կտտացրեք վանդակը և ընտրեք Դիտել կոդը համատեքստային ընտրացանկից: Տեսեք,

3. Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, խնդրում ենք փոխարինել բնօրինակ կոդը ներքևում նշված VBA կոդով:

VBA կոդ. Անջատեք խմբագրումը բազմաթիվ տեքստային տուփերում

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

Notes:

1. Կոդում, CheckBox1- ը ձեր տեղադրված վանդակի անունն է: Եվ TextBox1, TextBox2, եւ TextBox3 տեքստային տուփերն են, որոնք դուք կասեցնելու եք խմբագրումը աշխատանքային թերթում: Խնդրում ենք փոխել դրանք, ինչպես ձեզ հարկավոր է:

2. Լրացուցիչ տուփերի խմբագրումն անջատելու համար խնդրում ենք տողում ավելացնել կրկնակի մեջբերումներով գրված տեքստային տուփի անունը xArr = զանգված («TextBox1», «TextBox2», «TextBox3»).

4. Դրանից հետո պահեք և փակեք ծածկագիրը, անջատեք Ձևավորման ռեժիմը, այժմ նշելով վանդակը, բոլոր նշված տեքստային տուփերը չեն կարողանա խմբագրել աշխատանքային թերթում: Տեսեք,

ՆշումԵթե ​​ընտրանշանը ընտրեք, տեքստային տուփերը կարող են նորից խմբագրվել:


Առնչվող հոդվածներ քանակը:

Գրասենյակի արտադրողականության լավագույն գործիքները

Հանրաճանաչ հատկություններ: Գտեք, ընդգծեք կամ նույնականացրեք կրկնօրինակները   |  Deleteնջել դատարկ շարքերը   |  Միավորել սյունակները կամ բջիջները՝ առանց տվյալների կորստի   |   Կլոր առանց բանաձևի ...
Super Փնտրել: Բազմաթիվ չափանիշների VLookup    Բազմակի արժեք VLookup  |   VLookup բազմաթիվ թերթերում   |   Fuzzy Փնտրել ....
Ընդլայնված բացվող ցուցակ: Արագ ստեղծեք բացվող ցուցակը   |  Կախված բացվող ցուցակ   |  Բազմակի ընտրություն Drop Down ցուցակ ....
Սյունակի կառավարիչ: Ավելացրեք որոշակի քանակությամբ սյունակներ  |  Տեղափոխել սյունակները  |  Փոխարկել թաքնված սյունակների տեսանելիության կարգավիճակը  |  Համեմատեք միջակայքերը և սյունակները ...
Առանձնահատկություններ: Ցանցի կենտրոնացում   |  Դիզայնի տեսք   |   Մեծ Formula Bar    Աշխատանքային գրքույկի և թերթիկների կառավարիչ   |  Ռեսուրսների գրադարան (Ավտոմատ տեքստ)   |  Ամսաթիվ ընտրող   |  Միավորել աշխատանքային թերթերը   |  Գաղտնագրել/գաղտնազերծել բջիջները    Ուղարկեք նամակներ ըստ ցանկի   |  Սուպեր զտիչ   |   Հատուկ զտիչ (զտել թավ/շեղ/շեղված...) ...
Լավագույն 15 գործիքների հավաքածու12 Տեքստ Գործիքներ (Ավելացրեք տեքստ, Հեռացնել նիշերը, ...)   |   50 + Աղյուսակ Տեսակներ (Գանտի աղյուսակը, ...)   |   40+ Գործնական Բանաձեւեր (Հաշվարկել տարիքը ՝ ելնելով ծննդյան տարեդարձից, ...)   |   19 միացում Գործիքներ (Տեղադրեք QR կոդ, Տեղադրեք նկար ուղուց, ...)   |   12 Փոխարկում Գործիքներ (Բառեր համարներ, Արտարժույթի փոխակերպումը, ...)   |   7 Միաձուլում և պառակտում Գործիքներ (Ընդլայնված կոմբինատ տողեր, Պառակտված բջիջներ, ...)   |   ... եւ ավելին

Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար:  Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...

kte էջանիշը 201905


Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
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