İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Excel-də istifadəçi girişini maneə törətmək üçün mətn qutusundakı redaktəni necə aradan qaldırmaq olar?

Bu yazı, Excel-də istifadəçi girişi qarşısını almaq üçün bir mətn qutusunda (ActiveX Control) və ya birdən çox mətn qutusunun (ActiveX Control) redaktə edilməsindən imtina etməkdən danışır.

Öz xüsusiyyətlərini dəyişdirərək mətn qutusuna düzəlişləri dayandırın

VBA koduyla birdən çox mətn qutusunda redaktə edin


Öz xüsusiyyətlərini dəyişdirərək mətn qutusuna düzəlişləri dayandırın


Bu bölmə, mətn qutusunun xüsusiyyətlərini dəyişdirmək üçün bu mətn qutusunun redaktə edilməsini göstərəcək. Xahiş edirik bunu edin.

1. Tıklayarak Dizayn rejimi yandırın Developer > Dizayn Moda. Ekran görüntüsünə baxın:

2. Mətn qutusuna sağ basın və vurun Properties kontekst menyusundan aşağıda göstərilən ekran görüntüsü göstərilir.

3. Açılışda Properties informasiya qutusu seçin Saxta ci Effektiv qutusu və sonra Properties (Əlaqələr) informasiya qutusunu bağlayın. Ekran görüntüsünə baxın:

İndi seçilmiş mətn qutusu boz və redaktə edə bilmir.


VBA koduyla birdən çox mətn qutusunda redaktə edin

Bir iş kitabında birdən çox mətn qutusunda redaktə etməyi dayandırmaq istəyirsinizsə, aşağıdakı VBA kodunu tətbiq edin.

1. Çalışma kitabında bir neçə onay qutusu var, düzəlişləri dayandırmaq lazımdır, klikləyin Developer > Taxmaq > Check Box (ActiveX Control) iş səhifəsinə bir onay qutusu əlavə etmək. Ekran görüntüsünə baxın:

2. Seçmə qutusuna sağ basın və seçin Kodları baxın kontekst menyusundan. Ekran görüntüsünə baxın:

3. İçində Proqramlar üçün Microsoft Visual Basic pəncərədə, VBA kodunun altındakı orijinal kodu əvəz edin.

VBA kodu: birdən çox mətn qutusunda redaktə edin

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

Qeydlər:

1. Kodda, CheckBox1 daxil edilmiş onay qutunuzun adıdır. Və TextBox1, TextBox2TextBox3 iş yerində redaktə etməyi dayandırdığınız mətn qutularıdır. Lazım olduğunuz halda onları dəyişdirin.

2. Daha çox mətn qutusu üçün redaktə etməyi dayandırmaq üçün xahiş edirik, ikiqat sitatlarla əhatə edən mətn qutusunun adını satıra əlavə edin xArr = Array ("TextBox1", "TextBox2", "TextBox3").

4. Sonra kodunuzu saxlayıb bağlayın, Design Mode-nu söndürün, indi onay kutusunu işaretleyerek, iş sahifasında düzenleyemeyen bütün belirtilen metin kutularını yapar. Ekran görüntüsünə baxın:

Qeyd: Əgər onay kutusunu işaretlerseniz, metin kutuları yeniden düzenlenebilir.


Related articles:



Təklif olunan Məhsuldarlıq Vasitələri

Office Tab

qızıl star1 Chrome, Firefox və yeni Internet Explorer kimi Excel və digər Office proqramlarına lazımlı sekmeleri gətirin.

Excel üçün Kutools

qızıl star1 Amazing! 5 dəqiqədə məhsuldarlığınızı artırın. Heç bir xüsusi bacarıqa ehtiyac yoxdur, hər gün iki saat saxlaya bilərsiniz!

qızıl star1 300 Excel üçün yeni funksiyalar, Excel çox asan və güclü olun:

  • Veriyi ləğv etmədən Cell / Satır / Sütunları birləşdirin.
  • Bir neçə Çarşaf və İş Kitabını birləşdirin və birləşdirin.
  • Çaprazları müqayisə edin, birdən çox aralığa kopyalayın, mətni tarixə, vahidə və valyuta çevrilməsinə çevirin.
  • Rənglər, Paging Subtotals, Advanced Sort və Super Filter tərəfindən sayılan,
  • Daha çox seçin / Insert / Sil / Mətn / Biçim / Bağlantı / Yorum / Çalışma kitabları / Çalışma Qurğuları Tools ...

Excel üçün Kutools-un ekranı

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.