Loncat ke daftar isi utama

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:

Alat Produktivitas Kantor Terbaik

Fitur Populer: Temukan, Sorot, atau Identifikasi Duplikat   |  Hapus Baris Kosong   |  Gabungkan Kolom atau Sel tanpa Kehilangan Data   |   Putaran tanpa Formula ...
Pencarian Super: VLookup Beberapa Kriteria    VLookup Nilai Berganda  |   VLookup di Beberapa Lembar   |   Pencarian Fuzzy ....
Daftar Drop-down Lanjutan: Buat Daftar Drop Down dengan Cepat   |  Daftar Drop Down yang Bergantung   |  Multi-pilih Drop Down List ....
Manajer Kolom: Tambahkan Jumlah Kolom Tertentu  |  Pindahkan Kolom  |  Alihkan Status Visibilitas Kolom Tersembunyi  |  Bandingkan Rentang & Kolom ...
Fitur Unggulan: Fokus Kisi   |  Tampilan Desain   |   Bar Formula Besar    Manajer Buku Kerja & Lembar   |  Perpustakaan Sumberdaya (Teks otomatis)   |  Pemetik tanggal   |  Gabungkan Lembar Kerja   |  Enkripsi/Dekripsi Sel    Kirim Email berdasarkan Daftar   |  Filter Super   |   Filter Khusus (filter tebal/miring/coret...) ...
15 Perangkat Teratas12 Teks Tools (Tambahkan Teks, Hapus Karakter, ...)   |   50 + Grafik jenis (Gantt Chart, ...)   |   40+ Praktis Rumus (Hitung usia berdasarkan ulang tahun, ...)   |   19 Insersi Tools (Masukkan Kode QR, Sisipkan Gambar dari Jalur, ...)   |   12 Konversi Tools (Angka ke Kata, Konversi Mata Uang, ...)   |   7 Gabungkan & Pisahkan Tools (Lanjutan Gabungkan Baris, Pisahkan Sel, ...)   |   ... dan banyak lagi

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 kte 201905


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!
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