Kullanıcıların Excel'de giriş yapmasını önlemek için metin kutusunda düzenlemeyi nasıl devre dışı bırakabilirim?
Bu makale, kullanıcının Excel'de giriş yapmasını önlemek için bir metin kutusunda (ActiveX Denetimi) veya birden çok metin kutusunda (ActiveX Denetimi) düzenlemeyi devre dışı bırakmaktan bahsediyor.
Bir metin kutusunun özelliklerini değiştirerek düzenlemeyi devre dışı bırakın
Birden çok metin kutusunda VBA koduna göre düzenlemeyi devre dışı bırakın
Bir metin kutusunun özelliklerini değiştirerek düzenlemeyi devre dışı bırakın
Bu bölüm, bu metin kutusunun düzenlenmesini devre dışı bırakmak için bir metin kutusunun özelliklerini değiştirmenizi gösterecektir. Lütfen aşağıdaki işlemleri yapın.
1. Tıklayarak Tasarım Modunu açın. Geliştirici > Tasarım Modu. Ekran görüntüsüne bakın:
2. Metin kutusuna sağ tıklayın ve tıklayın Emlaklar aşağıdaki ekran görüntüsü gibi bağlam menüsünden.
3. Açılışta Emlaklar iletişim kutusunu seçin Yanlış içinde Etkin kutusunu seçin ve ardından Özellikler iletişim kutusunu kapatın. Ekran görüntüsüne bakın:
Şimdi seçilen metin kutusu gri renkte ve düzenlenemez.
Birden çok metin kutusunda VBA koduna göre düzenlemeyi devre dışı bırakın
Bir çalışma sayfasındaki birden çok metin kutusunda düzenlemeyi devre dışı bırakmak istiyorsanız, lütfen aşağıdaki VBA kodunu uygulayın.
1. Çalışma sayfasında düzenlemeyi devre dışı bırakmanız gereken birden çok onay kutusu var, Geliştirici > Ekle > Onay Kutusu (ActiveX Kontrolü) çalışma sayfasına bir onay kutusu eklemek için. Ekran görüntüsüne bakın:
2. Onay kutusunu sağ tıklayın ve seçin Kodu Görüntüle bağlam menüsünden. Ekran görüntüsüne bakın:
3. içinde Uygulamalar için Microsoft Visual Basic penceresi, lütfen orijinal kodu aşağıdaki VBA kodu ile değiştirin.
VBA kodu: Birden çok metin kutusunda düzenlemeyi devre dışı bırakın
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 Subnotlar:
1. Kodda, Onay Kutusu1 girdiğiniz onay kutunuzun adıdır. Ve Metin Kutusu1, Metin Kutusu2, ve Metin Kutusu3 çalışma sayfasında düzenlemeyi devre dışı bırakacağınız metin kutularıdır. Lütfen ihtiyacınız olduğu gibi değiştirin.
2. Daha fazla metin kutusu için düzenlemeyi devre dışı bırakmak istiyorsanız, lütfen metin kutusu adını çift tırnak işaretleriyle birlikte satıra ekleyin xArr = Dizi ("TextBox1", "TextBox2", "TextBox3").
4. Ardından kodu kaydedip kapatın, Tasarım Modunu kapatın, şimdi onay kutusunu işaretlemek, belirtilen tüm metin kutularını çalışma sayfasında düzenleyemez hale getirecektir. Ekran görüntüsüne bakın:
not: Onay kutusunun işaretini kaldırırsanız, metin kutuları yeniden düzenlenebilir.
İlgili yazılar:
- Excel'de seçildiğinde bir metin kutusunun metnini otomatik olarak nasıl seçebilirim?
- Excel'de yazarken bir metin kutusu nasıl otomatik tamamlanır?
- Excel'de tıklandığında metin kutusunun içeriği nasıl temizlenir?
- Birden çok hücrenin metinlerini Excel'deki bir metin kutusuna nasıl birleştirebilirim?
- Excel'de bir metin kutusu yüzde olarak nasıl biçimlendirilir?
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!
