Bagaimana cara mencegah konten sel tertentu dihapus di Excel?

Artikel ini berbicara tentang mencegah konten sel tertentu dihapus di Excel. Anda dapat mencapainya dengan metode di artikel ini.

Mencegah konten sel tertentu dihapus dengan melindungi lembar kerja
Mencegah konten sel tertentu dihapus dengan menggunakan kode VBA

Mencegah konten sel tertentu dihapus dengan melindungi lembar kerja

Secara default, semua sel di lembar kerja dikunci. Jika Anda ingin mencegah konten sel tertentu dihapus, dan membuat sel lain dapat diedit setelah dilindungi, lakukan hal berikut.

1. Klik di sudut kiri atas lembar kerja untuk memilih seluruh lembar kerja. Lalu tekan Ctrl + 1 kunci untuk membuka Format Cells kotak dialog.

2. Dalam bermunculan Format Cells kotak dialog, hapus centang Terkunci pilihan di bawah Proteksi tab, dan kemudian klik OK tombol. Lihat tangkapan layar:

3. Pilih sel yang isinya tidak ingin Anda hapus, tekan Ctrl + 1 kunci untuk membuka Format Cells kotak dialog lagi, centang Terkunci pilihan di bawah Proteksi tab, dan kemudian klik OK .

4. Sekarang klik ULASAN > Lindungi Lembar, lalu tentukan dan konfirmasi kata sandi Anda di kedua Lindungi Lembar dan Konfirmasi Sandi kotak dialog.

Sekarang lembar kerja terlindungi. Dan konten sel yang ditentukan tidak akan dihapus lagi.

Mencegah konten sel tertentu dihapus dengan menggunakan kode VBA

Selain dua metode di atas, Anda dapat menjalankan kode VBA untuk mencegah konten sel tertentu dihapus di lembar kerja. Silakan lakukan sebagai berikut.

1. Buka lembar kerja yang berisi konten sel yang tidak ingin Anda hapus, klik kanan Tab Lembar, lalu klik Lihat kode dari menu klik kanan.

2. Salin dan tempel kode VBA di bawah ini ke dalam jendela Kode Microsoft Visual Basic untuk Aplikasi jendela.

Kode VBA: Mencegah konten sel tertentu dihapus di Excel

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A1:E7")) Is Nothing Then Exit Sub
    On Error GoTo ExitPoint
    Application.EnableEvents = False
    If Not IsDate(Target(1)) Then
        Application.Undo
        MsgBox " You can't delete cell contents from this range " _
        , vbCritical, "Kutools for Excel"
    End If
ExitPoint:
    Application.EnableEvents = True
End Sub

Note: Dalam kode, A1: E17 adalah kisaran konten sel yang akan Anda cegah agar tidak dihapus. Anda dapat mengubah kisaran berdasarkan kebutuhan Anda.

Mulai sekarang, saat Anda mencoba menghapus konten sel dari rentang A1: E17, Anda akan mendapatkan file Kutools untuk Excel kotak dialog seperti gambar di bawah ini yang ditampilkan, silakan klik OK .

Terkait artikel:

• Bagaimana cara mencegah lembar kerja tertentu dihapus di Excel?
• Bagaimana cara mencegah pemilihan beberapa lembar kerja di Excel?