Petua: Bahasa lain diterjemahkan Google. Anda boleh melawat English versi pautan ini.
Log masuk
x
or
x
x
Daftar Sekarang
x

or

Bagaimana untuk melindungi semua lembaran kerja secara automatik apabila menutup buku kerja Excel?

Biasanya, anda boleh melindungi lembaran kerja secara manual atau keseluruhan buku kerja dengan kata laluan dengan ciri Perlindungan Helaian atau Melindungi di Buku Excel. Tetapi jika anda ingin melindungi semua lembaran kerja secara automatik dengan kata laluan apabila penutup buku kerja, apa yang boleh anda lakukan? Artikel ini akan menunjukkan kaedah VBA untuk mencapainya.

Lindungi semua helaian kerja apabila menutup buku kerja Excel dengan kod VBA


Cepat Melindungi pelbagai / semua lembaran kerja dengan kata laluan pada masa yang sama dalam buku kerja semasa:

Platform Lindungi Lembaran Kerja utiliti Kutools untuk Excel membantu anda dengan mudah melindungi pelbagai atau semua lembaran kerja dengan kata laluan pada masa yang sama. Lihat tangkapan skrin di bawah:

  • Dayakan Lindungi Lembaran Kerja utiliti
  • Periksa lembaran kerja yang akan anda lindungi sekaligus
  • Tentukan kata laluan

Kutools untuk Excel: dengan lebih daripada 200 berguna Excel tambahan, bebas untuk mencuba tanpa had pada hari 60. Muat turun percubaan percuma Sekarang!


Lindungi semua helaian kerja apabila menutup buku kerja Excel dengan kod VBA


Untuk melindungi semua lembaran kerja secara automatik apabila menutup buku kerja, sila gunakan kod VBA berikut.

1. Dalam buku kerja yang anda ingin melindungi semua lembaran kerja semasa menutup fail, sila tekan Alt + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi tingkap.

2. Di dalam Microsoft Visual Basic untuk Aplikasi tetingkap, klik dua kali ThisWorkbook di anak tetingkap kiri, dan kemudian salin di bawah kod VBA ke dalam tetingkap Kod. Lihat tangkapan skrin:

Kod VBA: Lindungi semua lembaran kerja apabila menutup buku kerja

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Update by Extendoffice 2018/1/24
    Dim xSheet As Worksheet
    Dim xPsw As String
    xPsw = ""
    For Each xSheet In Worksheets
        xSheet.Protect xPsw
    Next
End Sub

Nota:

1) Dalam kod itu, sila nyatakan kata laluan anda dalam talian xPsw = "".

2) Sekiranya anda hanya mahu melindungi lembaran kerja yang ditetapkan semasa menutup buku kerja, kod VBA di bawah boleh membantu anda.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Sheets("Sheet1").Protect "123"
    ActiveWorkbook.Save
End Sub

3. Kemudian tekan Alt + Q kunci untuk menutup tetingkap Microsoft Visual Basic for Applications.

Selepas langkah di atas, semua lembaran kerja atau lembaran kerja yang dinyatakan akan dilindungi secara automatik apabila menutup buku kerja.

Nota:

1. Anda mesti menyimpan buku kerja sebagai format fail Excel Workbook.

2. Sila pergi ke lembaran kerja tertentu, klik ULASAN > Lembaran Tidak Perlindungan. Dan ketik kata laluan yang anda tentukan dalam kod VBA untuk tidak melindungi lembaran kerja ini.


Related articles:


Cadangan Alat Produktiviti untuk Excel

kte tab 201905

Kutools untuk Excel Membantu Anda Selalu Menyelesaikan Kerja di Hadapan Masa, dan Berdiri Daripada Orang

  • Lebih daripada ciri-ciri canggih 300 yang canggih, yang direka untuk senario kerja 1500, meningkatkan produktiviti oleh 70%, memberi anda lebih banyak masa untuk menjaga keluarga dan menikmati kehidupan.
  • Tidak perlu lagi menghafal formula dan kod VBA, berikan rehat dari otak anda sekarang.
  • Menjadi pakar Excel dalam minit 3, Operasi yang rumit dan berulang boleh dilakukan dalam beberapa saat,
  • Mengurangkan beribu-ribu operasi papan kekunci & tetikus setiap hari, mengucapkan selamat tinggal kepada penyakit pekerjaan sekarang.
  • 110,000 orang yang sangat berkesan dan pilihan syarikat 300 + yang terkenal di dunia.
  • Ciri-ciri penuh 60-hari adalah percubaan percuma. Jaminan wang balik 60 hari. Tahun 2 peningkatan dan sokongan percuma.

Membawa Browsing Tab dan Editing ke Microsoft Office, Jauh Lebih Berkuasa Daripada Tab Penyemak Imbas

  • Tab Pejabat direka untuk Aplikasi Pejabat Word, Excel, PowerPoint dan Lain-lain: Penerbit, Akses, Visio dan Projek.
  • Buka dan buat beberapa dokumen dalam tab baharu pada tetingkap yang sama, dan bukannya dalam tetingkap baru.
  • Meningkatkan produktiviti anda oleh 50%, dan mengurangkan beratus-ratus klik tetikus untuk anda setiap hari!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.