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

Bagaimana cara menonaktifkan fungsi potong, salin dan tempel di Excel?

Misalkan Anda memiliki buku kerja dengan data penting yang perlu Anda lindungi agar tidak dipotong, disalin, dan ditempel. Bagaimana cara mencapainya? Artikel ini menyediakan metode VBA bagi Anda untuk menonaktifkan fungsi potong, salin, dan tempel secara bersamaan di buku kerja Excel.

Nonaktifkan fungsi potong, salin, dan tempel dengan kode VBA


Nonaktifkan fungsi potong, salin, dan tempel dengan kode VBA

Harap lakukan hal berikut untuk menonaktifkan fungsi potong, salin, dan tempel di buku kerja Excel.

1. Di buku kerja Anda perlu menonaktifkan fungsi potong, salin dan tempel, silakan tekan lain + F11 tombol secara bersamaan untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

2. Dalam Microsoft Visual Basic untuk Aplikasi jendela, silakan klik dua kali Buku Kerja Ini di kiri Project panel, lalu salin dan tempel kode VBA di bawah ini ke file ThisWorkbook (Kode) jendela. Lihat tangkapan layar:

Kode VBA: Nonaktifkan fungsi potong, salin, dan tempel secara bersamaan di Excel

Private Sub Workbook_Activate()
Application.CutCopyMode = False
Application.OnKey "^c", ""
Application.CellDragAndDrop = False
End Sub

Private Sub Workbook_Deactivate()
Application.CellDragAndDrop = True
Application.OnKey "^c"
Application.CutCopyMode = False
End Sub

Private Sub Workbook_WindowActivate(ByVal Wn As Window)
Application.CutCopyMode = False
Application.OnKey "^c", ""
Application.CellDragAndDrop = False
End Sub

Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
Application.CellDragAndDrop = True
Application.OnKey "^c"
Application.CutCopyMode = False
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Application.CutCopyMode = False
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Application.OnKey "^c", ""
Application.CellDragAndDrop = False
Application.CutCopyMode = False
End Sub

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Application.CutCopyMode = False
End Sub

3. Kemudian silahkan tekan lain + Q kunci untuk keluar dari Microsoft Visual Basic untuk Aplikasi jendela.

Sekarang Anda tidak dapat memotong atau menyalin data dari buku kerja ini, sementara itu, data yang telah Anda salin dari lembar atau buku kerja lain tidak dapat ditempelkan ke dalam buku kerja ini.

Note: Fungsi seret dan lepas juga dinonaktifkan setelah menjalankan kode VBA di atas.


Terkait artikel:


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 (48)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
saya melakukan seperti di atas tetapi fungsi cut copy dan past dinonaktifkan di file excel apa pun yang saya buka. Mengapa?
Komentar ini diminimalkan oleh moderator di situs
Hai, saya menggunakan ini untuk menyembunyikan "Potong" dari pengguna dan ini berfungsi dengan baik kecuali Anda memiliki Tabel, "Potong" secara ajaib muncul kembali ketika Anda memilih sel di Tabel, persis seperti yang saya coba hindari. ada ide? terima kasih!
Komentar ini diminimalkan oleh moderator di situs
Terima kasih, Pak, ini berfungsi. Tetapi di Seluruh buku kerja. Jika saya memerlukan Kode ini hanya untuk lembar tertentu. Apakah Mungkin ??
Komentar ini diminimalkan oleh moderator di situs
apakah kamu sudah menemukan jawabannya?
Komentar ini diminimalkan oleh moderator di situs
Terima kasih banyak. Ini berfungsi di seluruh buku kerja. Bisakah kami melakukan pengkodean hanya untuk 1 lembar. Mohon bantuannya.
Komentar ini diminimalkan oleh moderator di situs
Bagaimana cara mengaktifkan kembali fungsi potong, salin, dan tempel? Tolong saran!
Komentar ini diminimalkan oleh moderator di situs
Langit sayang
Silakan jalankan VBA1 di bawah ini (tempatkan kode di modul ThisWorkbook) untuk menonaktifkan fungsi potong, salin, dan tempel di buku kerja Anda.

VBA1:
Sub DelCopy()
Dengan Aplikasi
.OnKey "^x", ""
.OnKey "^c", ""
.CommandBars("Sel").Kontrol(1).Diaktifkan = Salah
.CommandBars("Sel").Kontrol(2).Diaktifkan = Salah
Berakhir dengan
End Sub

Dan jalankan VBA2 untuk mengaktifkan semua fungsi ini kembali ke buku kerja Anda.

VBA2:
Sub PemulihanSalin()
Dengan Aplikasi
.OnKey "^x"
.OnKey "^c"
.CommandBars("Sel").Kontrol(1).Diaktifkan = Benar
.CommandBars("Sel").Kontrol(2).Diaktifkan = Benar
Berakhir dengan
End Sub
Komentar ini diminimalkan oleh moderator di situs
Ini sepertinya tidak berhasil untuk saya - haruskah saya menghapus kode VBA asli dan kemudian menempelkan kode di atas untuk mengaktifkan fungsi Potong, salin dan tempel lagi?
Komentar ini diminimalkan oleh moderator di situs
Selamat siang,
Komentar VBA1 di atas adalah pengganti kode asli.
Komentar ini diminimalkan oleh moderator di situs
Sayang,

saya ingin menonaktifkan potong, salin, tempel di lembar excel 2007
dapatkah Anda membagikan kode untuk ini?
Komentar ini diminimalkan oleh moderator di situs
Selamat siang,
Terima kasih atas komentarmu. Saya mencoba mencari solusi untuk Excel 2007. Harap tunggu dengan sabar.
Komentar ini diminimalkan oleh moderator di situs
Hai,
Apakah mungkin untuk menonaktifkan "CUT" saja? tapi saya masih bisa menggunakan Copy dan Paste?
Komentar ini diminimalkan oleh moderator di situs
Hai Karmelo,
Silakan salin dan tempel kode di bawah ini ke dalam jendela kode Buku Kerja di buku kerja Anda dan kemudian simpan sebagai buku kerja Excel Macro-enabled. Kemudian fungsi "Potong" akan dinonaktifkan.

Opsi Eksplisit
Pribadi WithEvents Cmbrs Sebagai CommandBars

Sub Workbook_Open Pribadi ()
Setel Cmbrs = Application.CommandBars
End Sub

Sub Workbook_Activate () Pribadi
Jika Application.CutCopyMode = 2 Maka
Aplikasi.CutCopyMode = 0
End If
End Sub

Sub Pribadi Cmbrs_OnUpdate()
Jika Saya Adalah Buku Kerja Aktif Maka
Jika Application.CutCopyMode = 2 Maka
Aplikasi.CutCopyMode = 0
MsgBox "Operasi Potong Dinonaktifkan"
End If
End If
End Sub
Komentar ini diminimalkan oleh moderator di situs
Saya mencoba seperti yang Anda katakan tetapi tidak ada yang terjadi. A ingin persis sama, Hanya
Fungsi "Potong" dinonaktifkan. Saya perlu menonaktifkan opsi "potong" dari opsi tombol Klik Kanan dan dari bilah alat.
Ini kristal mungkin??
Komentar ini diminimalkan oleh moderator di situs
Hari baik,
Kode berfungsi dengan baik dalam kasus saya. Bolehkah saya tahu versi Office Anda?
Komentar ini diminimalkan oleh moderator di situs
Hi

Saya pemula kode VBA dan kode ini memecahkan 99% masalah saya.

Apakah mungkin untuk mengunci lembar lubang (seperti dosis kode ini) tetapi masih ada satu sel yang tidak terkunci?
(Klarifikasi, saya ingin mengizinkan copy past in info hanya dalam satu sel di lembar lubang).

salam Hormat
L
Komentar ini diminimalkan oleh moderator di situs
Halo Linda,
Anda dapat memecahkan masalah tanpa menggunakan kode VBA.
Klik kanan sel dan pilih Format Sel dari menu konteks, hapus centang pada kotak Terkunci di bawah tab Perlindungan di dialog. Dan kemudian lindungi lembar kerja dengan kata sandi.
Komentar ini diminimalkan oleh moderator di situs
Sangat senang menemukan posting ini tetapi saya perlu sedikit bantuan dalam membatasi ini ke satu lembar kerja di Buku Kerja multi-lembar kerja. Dan perlu tahu bagaimana menjalankan ini tanpa campur tangan pengguna...kita perlu ASAP ini di buku kerja untuk membantu mencegah kesalahan.
Komentar ini diminimalkan oleh moderator di situs
Hari baik,
Kode VBA berikut dapat membantu Anda menyelesaikan masalah tersebut. Dan jangan lupa untuk mengganti "Sheet2" pada kode dengan nama sheet Anda.

mJWSName publik Sebagai String

Sub Workbook_Open Pribadi ()
mJWSName = "Sheet2"
End Sub

Sub Workbook_Activate () Pribadi
Jika ActiveSheet.Name = mJWSName Kemudian
Application.CutCopyMode = Salah
Application.OnKey "^c", ""
Application.CellDragAndDrop = Salah
End If
End Sub

Sub Buku Kerja Pribadi_Deactivate ()
Application.OnKey "^c", ""
Application.CellDragAndDrop = Benar
Application.CutCopyMode = Salah
End Sub


Sub Workbook_WindowActivate Pribadi (ByVal Wn Sebagai Jendela)
Jika ActiveSheet.Name = mJWSName Kemudian
Application.CutCopyMode = Salah
Application.OnKey "^c", ""
Application.CellDragAndDrop = Salah
End If
End Sub

Sub Workbook_WindowDeactivate Pribadi (ByVal Wn As Window)
Aplikasi.OnKey "^c"
Application.CellDragAndDrop = Benar
Application.CutCopyMode = Salah
End Sub

Sub Workbook_SheetSelectionChange Pribadi (ByVal Sh Sebagai Objek, Target ByVal Sebagai Rentang)
On Error Resume Next
Jika Sh.Name = mJWSName Kemudian
Application.CutCopyMode = Salah
End If
End Sub

Sub Workbook_SheetActivate Pribadi (ByVal Sh Sebagai Objek)
On Error Resume Next
Jika Sh.Name = mJWSName Kemudian
Application.OnKey "^c", ""
Application.CellDragAndDrop = Salah
Application.CutCopyMode = Salah
End If
End Sub

Sub Workbook_SheetDeactivate Pribadi (ByVal Sh Sebagai Objek)
Aplikasi.OnKey "^c"
Application.CellDragAndDrop = Benar
Application.CutCopyMode = Salah
End Sub
Komentar ini diminimalkan oleh moderator di situs
Satu pertanyaan terakhir - Ke mana perginya kode ini dan bagaimana cara mengeksekusinya? Proyek ini perlu bekerja dengan melampirkan file XLA ke lembar Excel yang berisi banyak kode. Tidak tahu apakah ini perlu masuk ke modul atau kode di balik lembar ini. Terima kasih...
Komentar ini diminimalkan oleh moderator di situs
Terima kasih atas arahan Anda. Saya Mencoba di kantor 2013, tetapi tidak ada yang berubah.
Komentar ini diminimalkan oleh moderator di situs
Hai, kode berfungsi dengan baik terima kasih.
Namun, opsi hanya baca diaktifkan. (jika Anda tidak ingin mengubah). Jika saya mengatur ..File, save as, tools, general options, read only recommended.. maka kodenya tidak berfungsi.

Terima kasih sebelumnya.
Komentar ini diminimalkan oleh moderator di situs
Ini benar-benar berfungsi dengan baik, terima kasih banyak.
Komentar ini diminimalkan oleh moderator di situs
Terima kasih itu bekerja dengan sempurna .... dapatkah itu diterapkan pada rentang hanya entah bagaimana?
Komentar ini diminimalkan oleh moderator di situs
Hari baik,
Maaf tidak dapat membantu Anda dengan itu. Selamat datang untuk memposting pertanyaan apa pun di forum kami: https://www.extendoffice.com/forum.html. Terima kasih atas komentarmu.
Komentar ini diminimalkan oleh moderator di situs
TERIMA KASIH TUAN
Komentar ini diminimalkan oleh moderator di situs
Terima kasih, sangat bermanfaat.
Komentar ini diminimalkan oleh moderator di situs
potong salin tempel yang berlaku Seluruh buku kerja. Jika saya memerlukan Kode ini hanya untuk lembar tertentu. Apakah Mungkin ??
tolong bantu. kita hanya membutuhkan satu lembar fungsi penonaktifan. lembar lain kami mengerjakan semua fungsi ...
Komentar ini diminimalkan oleh moderator di situs
Kode itu tidak berfungsi di excel 2016 saya untuk satu lembar alih-alih seluruh buku kerja
Komentar ini diminimalkan oleh moderator di situs
Ini masih memungkinkan menempel dari Notepad atau Microsoft Edge. Silakan lihat apakah ada cara untuk mencegah menempel dari sumber mana pun.
Komentar ini diminimalkan oleh moderator di situs
Hai,
Jika mencegah menempel dari sumber apa pun, kita perlu mencegah fitur Notepad, yang dapat membawa ketidaknyamanan. Kami tidak menyarankan ini. Maaf tidak dapat membantu Anda untuk itu.
Komentar ini diminimalkan oleh moderator di situs
Saya menggunakan kode ini & ingin mengaktifkan kembali? bagaimana cara mengaktifkannya kembali?
Komentar ini diminimalkan oleh moderator di situs
gunakan kode ini untuk menonaktifkan salin potong & tempel



Sub Workbook_Activate () Pribadi

Application.CutCopyMode = Salah

Application.OnKey "^c", ""

Application.CellDragAndDrop = Salah

End Sub



Sub Buku Kerja Pribadi_Deactivate ()

Application.CellDragAndDrop = Benar

Aplikasi.OnKey "^c"

Application.CutCopyMode = Salah

End Sub



Sub Workbook_WindowActivate Pribadi (ByVal Wn Sebagai Jendela)

Application.CutCopyMode = Salah

Application.OnKey "^c", ""

Application.CellDragAndDrop = Salah

End Sub



Sub Workbook_WindowDeactivate Pribadi (ByVal Wn As Window)

Application.CellDragAndDrop = Benar

Aplikasi.OnKey "^c"

Application.CutCopyMode = Salah

End Sub



Sub Workbook_SheetSelectionChange Pribadi (ByVal Sh Sebagai Objek, Target ByVal Sebagai Rentang)

Application.CutCopyMode = Salah

End Sub



Sub Workbook_SheetActivate Pribadi (ByVal Sh Sebagai Objek)

Application.OnKey "^c", ""

Application.CellDragAndDrop = Salah

Application.CutCopyMode = Salah

End Sub



Sub Workbook_SheetDeactivate Pribadi (ByVal Sh Sebagai Objek)

Application.CutCopyMode = Salah

End Sub





dan ingin mengaktifkan fungsi ini lagi
Komentar ini diminimalkan oleh moderator di situs
Ini berfungsi dengan baik, bagaimana orang memodifikasi ini untuk mengizinkan salin/tempel di kolom tertentu yang memiliki menu tarik-turun yang terkait dengan rentang bernama input yang dapat diterima dan hanya input yang dapat diterima. Misalnya nama Jetson, George, 25, akan mengizinkan salinan/tempel Jetson, George, 25 tetapi tidak mengizinkan Jeston, George, 26. Atau tarik dan isi yang akan menghasilkan Jetson, George, 25 lalu 26 , lalu 27, dst.
Di lembar kerja saya, saya ingin sepenuhnya menonaktifkan cut/copy/paste di kolom tertentu, kemudian hanya mengizinkan cut copy paste data yang dapat diterima dari drop down.
Terima kasih.
Belum ada komentar yang diposting di sini
Muat Lebih
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan