Greetings, I would like to protect and unprotect multiple worksheets and disable the Select Locked Cells option so that the protected cells cannot be selected. I have found some VBA code that can lock multiple worksheets at once and a bit of code for the Locked Cells bit but I have no clue on how to merge the two. I have the cells I want unlocked through the Protection tab in the Alignment section on the Ribbon. For FYI: This is a different workbook than my earlier topic. Sample code I found to protect all the worksheets:Sub ProtectAllWorksheetsWithInputbox() 'Step 1: Declare your variables Dim ws As Worksheet Dim Pwd As String 'Step 2: enter your password to protect all worksheets Pwd = InputBox("Enter your password to protect all worksheets", "Password Input") 'Step 3: Start looping through all worksheets For Each ws In ActiveWorkbook.Worksheets 'Step 4: Protect and loop to next worksheet ws.Protect Password:=Pwd Next ws End Sub Code I found to disable the Select Locked Cells option: <ol start="1"> <li>With ActiveSheet </li><li>.Protect </li><li>.EnableSelection = xlUnlockedCells </li><li>End With </li></ol> Thanks, Viepyr

New

Lindungi Beberapa Lembar dengan Select Locked Cells Unchecked

Excel

Viepir

Selasa, 30 November 2021

3 Balasan

5.5K Kunjungan

Suara

membuka

Salam pembuka,

Saya ingin melindungi dan membuka proteksi beberapa lembar kerja dan menonaktifkan opsi Pilih Sel Terkunci sehingga sel yang dilindungi tidak dapat dipilih.

Saya telah menemukan beberapa kode VBA yang dapat mengunci beberapa lembar kerja sekaligus dan sedikit kode untuk bit Sel Terkunci tetapi saya tidak tahu cara menggabungkan keduanya.

Saya memiliki sel yang ingin saya buka kuncinya melalui tab Perlindungan di bagian Perataan pada Pita.

Untuk FYI: Ini adalah buku kerja yang berbeda dari topik saya sebelumnya.

Contoh kode yang saya temukan untuk melindungi semua lembar kerja: Sub ProtectAllWorksheetsWithInputbox()
'Langkah 1: Deklarasikan variabel Anda
Redupkan Sebagai Lembar Kerja
Redupkan Pwd Sebagai String
'Langkah 2: masukkan kata sandi Anda untuk melindungi semua lembar kerja
Pwd = InputBox("Masukkan kata sandi Anda untuk melindungi semua lembar kerja", "Masukan Kata Sandi")
'Langkah 3: Mulai mengulang semua lembar kerja
Untuk Setiap ws Di ActiveWorkbook.Worksheets
'Langkah 4: Lindungi dan ulangi ke lembar kerja berikutnya
ws.Lindungi Kata Sandi:=Pwd
selanjutnya
End Sub

Kode yang saya temukan untuk menonaktifkan opsi Select Locked Cells:

Dengan ActiveSheet
.Melindungi
.EnableSelection = xlUnlockedCells
Berakhir dengan

Terima kasih,

Viepir

Amanda Lee

tahun 2 lalu

#2360

Suara

membuka

Hai Viepir,

Kami sudah berhasil menggabungkan kedua kode tersebut, silahkan dicoba.

Sub Lindungi Semua Lembar Kerja Dengan Kotak Masukan ()
'Langkah 1: Deklarasikan variabel Anda
Redupkan Sebagai Lembar Kerja
Redupkan Pwd Sebagai String
'Langkah 2: masukkan kata sandi Anda untuk melindungi semua lembar kerja
Pwd = InputBox("Masukkan kata sandi Anda untuk melindungi semua lembar kerja", "Masukan Kata Sandi")
'Langkah 3: Mulai mengulang semua lembar kerja
Untuk Setiap ws Di ActiveWorkbook.Worksheets
'Langkah 4.1: Lindungi dan ulangi ke lembar kerja berikutnya
ws.Lindungi Kata Sandi:=Pwd
'Langkah 4.2: nonaktifkan Select Locked Cells
ws.EnableSelection = xlUnlockedCells
selanjutnya
End Sub

Semoga ini berhasil untuk Anda

Amanda

Viepir

tahun 2 lalu

#2361

Suara

membuka

Thanks again,

Itu berhasil dan menyederhanakan apa yang saya kerjakan.

Viepir

Amanda Lee

tahun 2 lalu

#2362

Suara

membuka

baik

Amanda

halaman:
1

Tidak ada balasan yang dibuat untuk posting ini.

Silahkan login untuk mengirim balasan

Anda perlu login untuk dapat memposting balasan. Login menggunakan formulir di sebelah kanan atau mendaftar akun jika Anda baru di sini. Daftar disini "