Bagaimana cara menonaktifkan pengeditan di kotak teks untuk mencegah pengguna memasukkan di Excel?
Artikel ini berbicara tentang menonaktifkan pengeditan dalam kotak teks (Kontrol ActiveX) atau beberapa kotak teks (Kontrol ActiveX) untuk mencegah pengguna memasukkan di Excel.
Nonaktifkan pengeditan di kotak teks dengan mengubah propertinya
Nonaktifkan pengeditan di beberapa kotak teks dengan kode VBA
Nonaktifkan pengeditan di kotak teks dengan mengubah propertinya
Bagian ini akan menunjukkan kepada Anda untuk mengubah properti kotak teks untuk menonaktifkan pengeditan kotak teks ini. Silakan lakukan sebagai berikut.
1. Nyalakan Mode Desain dengan mengklik Pengembang > Mode Desain. Lihat tangkapan layar:
2. Klik kanan kotak teks dan klik Properties dari menu konteks seperti gambar di bawah ini yang ditampilkan.
3. Dalam pembukaan Properties kotak dialog, pilih Salah dalam Enabled kotak dan kemudian tutup kotak dialog Properti. Lihat tangkapan layar:
Sekarang kotak teks yang dipilih berwarna abu-abu dan tidak dapat diedit.
Nonaktifkan pengeditan di beberapa kotak teks dengan kode VBA
Jika Anda ingin menonaktifkan pengeditan di beberapa kotak teks di lembar kerja, harap terapkan kode VBA di bawah ini.
1. Dalam lembar kerja berisi beberapa kotak centang yang Anda butuhkan untuk menonaktifkan pengeditan, klik Pengembang > Menyisipkan > Kotak Centang (Kontrol ActiveX) untuk memasukkan kotak centang ke dalam lembar kerja. Lihat tangkapan layar:
2. Klik kanan kotak centang dan pilih Lihat kode dari menu konteks. Lihat tangkapan layar:
3. Dalam Microsoft Visual Basic untuk Aplikasi jendela, silakan ganti kode asli dengan kode VBA di bawah ini.
Kode VBA: Nonaktifkan pengeditan di beberapa kotak teks
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
Catatan:
1. Di dalam kode, Kotak Centang1 adalah nama kotak centang yang Anda sisipkan. Dan Kotak Teks1, Kotak Teks2, dan Kotak Teks3 adalah kotak teks yang akan Anda nonaktifkan pengeditannya di lembar kerja. Harap ubah sesuai kebutuhan Anda.
2. Untuk menonaktifkan pengeditan pada lebih banyak kotak teks, harap tambahkan nama kotak teks dengan tanda kutip ganda ke dalam baris xArr = Array ("TextBox1", "TextBox2", "TextBox3").
4. Kemudian simpan dan tutup kode, matikan Mode Desain, sekarang, mencentang kotak centang akan membuat semua kotak teks yang ditentukan tidak dapat diedit di lembar kerja. Lihat tangkapan layar:
Note: Jika Anda menghapus centang pada kotak, kotak teks dapat diedit lagi.
Artikel terkait:
- Bagaimana cara memilih teks secara otomatis dari kotak teks saat dipilih di Excel?
- Bagaimana cara melengkapi kotak teks secara otomatis saat mengetik di Excel?
- Bagaimana cara menghapus konten kotak teks saat diklik di Excel?
- Bagaimana cara menggabungkan teks dari beberapa sel ke dalam kotak teks di Excel?
- Bagaimana cara memformat kotak teks sebagai persentase di Excel?
Alat Produktivitas Kantor Terbaik
Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu. Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...
Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah
- Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
- Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
- Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!