Note: The other languages of the website are Google-translated. Back to English

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

Kutools for Excel Memecahkan Sebagian Besar Masalah Anda, dan Meningkatkan Produktivitas Anda hingga 80%

  • Reuse: Masukkan dengan cepat rumus, bagan yang kompleks dan apa pun yang pernah Anda gunakan sebelumnya; Enkripsi Sel dengan kata sandi; Buat Milis dan mengirim email ...
  • Bilah Formula Super (dengan mudah mengedit beberapa baris teks dan rumus); Membaca Tata Letak (membaca dan mengedit sel dalam jumlah besar dengan mudah); Tempel ke Rentang yang Difilter...
  • Gabungkan Sel / Baris / Kolom tanpa kehilangan Data; Pisahkan Konten Sel; Gabungkan Baris / Kolom Duplikat... Mencegah Sel Duplikat; Bandingkan Rentang...
  • Pilih Duplikat atau Unik Baris; Pilih Baris Kosong (semua sel kosong); Temukan Super dan Temukan Fuzzy di Banyak Buku Kerja; Pilih Acak ...
  • Salinan Tepat Beberapa Sel tanpa mengubah referensi rumus; Buat Referensi Otomatis ke Beberapa Lembar; Sisipkan Poin, Kotak Centang, dan lainnya ...
  • Ekstrak Teks, Tambahkan Teks, Hapus berdasarkan Posisi, Hapus Space; Membuat dan Mencetak Subtotal Paging; Konversi Konten Antar Sel dan Komentar...
  • Filter Super (simpan dan terapkan skema filter ke sheet lain); Penyortiran Lanjutan menurut bulan / minggu / hari, frekuensi dan lainnya; Filter Khusus dengan huruf tebal, miring ...
  • Gabungkan Workbooks dan WorkSheets; Gabungkan Tabel berdasarkan kolom kunci; Pisahkan Data menjadi Beberapa Lembar; Konversi Batch xls, xlsx dan PDF...
  • Lebih dari 300 fitur canggih. Mendukung Office / Excel 2007-2019 dan 365. Mendukung semua bahasa. Penerapan yang mudah di perusahaan atau organisasi Anda. Fitur lengkap uji coba gratis 30 hari. Jaminan uang kembali 60 hari.
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.
  • Tingkatkan produktivitas Anda hingga 50%, dan kurangi ratusan klik mouse untuk Anda setiap hari!
officetab bawah
Urutkan komentar berdasarkan
komentar (0)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan