Note: The other languages of the website are Google-translated. Back to English
English English
  • Documents
  • Excel
  • Bagaimana cara mengunci atau membuka kunci sel berdasarkan nilai di sel lain di Excel?

Bagaimana cara mengunci atau membuka kunci sel berdasarkan nilai di sel lain di Excel?

Dalam beberapa kasus, Anda mungkin perlu mengunci atau membuka kunci sel berdasarkan nilai di sel lain. Misalnya, Anda memerlukan rentang B1: B4 untuk dibuka jika sel A1 berisi nilai "Menerima"; dan dikunci jika sel A1 mengandung nilai “Menolak”. Bagaimana Anda bisa mencapainya? Artikel ini dapat membantu Anda.

Mengunci atau membuka kunci sel berdasarkan nilai di sel lain dengan kode VBA


Mengunci atau membuka kunci sel berdasarkan nilai di sel lain dengan kode VBA

Kode VBA berikut dapat membantu Anda mengunci atau membuka kunci sel berdasarkan nilai di sel lain di Excel.

1. Klik kanan tab lembar (lembar dengan sel yang perlu Anda kunci atau buka kuncinya berdasarkan nilai di sel lain), dan klik Lihat kode dari menu klik kanan.

2. Kemudian salin dan tempel kode VBA berikut ke jendela Kode.

Kode VBA: Mengunci atau membuka kunci sel berdasarkan nilai di sel lain

Private Sub Worksheet_Change(ByVal Target As Range)
    If Range("A1") = "Accepting" Then
        Range("B1:B4").Locked = False
    ElseIf Range("A1") = "Refusing" Then
        Range("B1:B4").Locked = True
    End If
End Sub

3. tekan lain + Q tombol secara bersamaan untuk menutup Microsoft Visual Basic untuk Aplikasi jendela.

Mulai sekarang, saat Anda memasukkan nilai "Menerima" ke dalam sel A1, rentang B1: B4 tidak terkunci.

Saat memasukkan nilai "Menolak" ke dalam sel A1, rentang B1: B4 yang ditentukan akan dikunci secara otomatis.


Terkait artikel:


Alat Produktivitas Kantor Terbaik

Kutools for Excel Memecahkan Sebagian Besar Masalah Anda, dan Meningkatkan Produktivitas Anda dengan
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 yang kuat
    . Mendukung Office/Excel
    2007-2019 dan 365
    . Mendukung semua bahasa. Penerapan yang mudah di perusahaan atau organisasi Anda. Fitur lengkap
    30
    percobaan gratis -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.
  • Meningkatkan produktivitas Anda dengan
    50%
    , dan mengurangi ratusan klik mouse untuk Anda setiap hari!
officetab bawah
Urutkan komentar berdasarkan
komentar (51)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Bagaimana mengunci/membuka kunci sel variabel misalnya ketika sel [=INDEX(A16:L35,MATCH(W5,A16:A35,0),MATCH("PAY",A16:L16,0))]
Komentar ini diminimalkan oleh moderator di situs
Saya ingin perintah VBA sederhana yang tidak dapat saya pahami, tolong bantu
Jika sel A1 Balnk maka Sel A2 terkunci dan Jika Sel A1 berisi Nilai apa pun maka Sel A2 tidak terkunci
Demikian pula jika sel A2 kosong maka Sel A3 terkunci dan jika Sel A2 berisi nilai apa pun maka Sel A3 tidak terkunci
dan seterusnya sebanyak sel sesuai kebutuhan di bagian mana pun dari lembar.
Komentar ini diminimalkan oleh moderator di situs
Hai, saya mencoba mencapai ini, tetapi saya mendapatkan kesalahan bahwa VBA tidak dapat mengatur properti Terkunci dari kelas Range jika lembar telah dilindungi. Membuka proteksi lembar kemudian akan meniadakan sel yang dikunci. Bagaimana cara menyiasatinya? Terima kasih atas bantuan apa pun.
Komentar ini diminimalkan oleh moderator di situs
Apakah Anda menyelesaikannya? Saya memiliki masalah yang sama
Komentar ini diminimalkan oleh moderator di situs
Memo yang terhormat,
Silakan coba kode VBA di bawah ini.

Sub Worksheet_Activate () Pribadi
Jika Bukan ActiveSheet.ProtectContents Kemudian
Rentang("A1"). Terkunci = Salah
Range("B1:B4").Terkunci = Salah
End If
End Sub
Sub Worksheet_SelectionChange Pribadi (Target ByVal Sebagai Rentang)
Redupkan xRg Sebagai Rentang, xRgA Sebagai Rentang
On Error Resume Next
Application.EnableEvents = Salah
Tetapkan xRg = Rentang("B1:B4")
Tetapkan xRgA = Rentang("A1")
Jika Berpotongan(Target, xRg).Alamat <> Target.Alamat _
Atau xRgA = "Menerima" Lalu
Application.EnableEvents = Benar
Keluar dari Sub
ElseIf ActiveSheet.ProtectContents _
Dan Intersect(Target, xRg) = Target _
Dan xRgA.Value = "Menolak" Lalu
xRgA.Pilih
End If
Application.EnableEvents = Benar
End Sub
Komentar ini diminimalkan oleh moderator di situs
Anda akan ingin menggunakan garis antarmuka di buku kerja sehingga saat Anda membuka file, ini akan melindungi lembar tetapi tetap mengizinkan makro untuk membuat perubahan;

Private Sub Workbook_Open() 'Ini masuk ke "ThisWorkbook"

Worksheets("Order Tool").Protect Password:="Pwd", UserInterFaceOnly:=True

End Sub
Komentar ini diminimalkan oleh moderator di situs
Semut yang terhormat,
Kode VBA di bawah ini dapat membantu Anda memecahkan masalah ini. Terima kasih atas komentarmu.

Sub Worksheet_Activate () Pribadi
Jika Bukan ActiveSheet.ProtectContents Kemudian
Rentang("A1"). Terkunci = Salah
Range("B1:B4").Terkunci = Salah
End If
End Sub
Sub Worksheet_SelectionChange Pribadi (Target ByVal Sebagai Rentang)
Redupkan xRg Sebagai Rentang, xRgA Sebagai Rentang
On Error Resume Next
Application.EnableEvents = Salah
Tetapkan xRg = Rentang("B1:B4")
Tetapkan xRgA = Rentang("A1")
Jika Berpotongan(Target, xRg).Alamat <> Target.Alamat _
Atau xRgA = "Menerima" Lalu
Application.EnableEvents = Benar
Keluar dari Sub
ElseIf ActiveSheet.ProtectContents _
Dan Intersect(Target, xRg) = Target _
Dan xRgA.Value = "Menolak" Lalu
xRgA.Pilih
End If
Application.EnableEvents = Benar
End Sub
Komentar ini diminimalkan oleh moderator di situs
Hai,

Apakah mungkin agar VBA ini mengunci satu set sel/membuka kunci lainnya berdasarkan ini? Misalnya Rentang B1:B4 dibuka kuncinya dan C1:C4 dikunci untuk "menerima" dan kemudian B1:B4 dikunci dan C1:C4 dibuka kuncinya untuk "menolak"?


Terima kasih,
Kristen
Komentar ini diminimalkan oleh moderator di situs
Christian terkasih,
Apakah lembar kerja Anda terlindungi?
Komentar ini diminimalkan oleh moderator di situs
tolong bisakah seseorang membantu saya dengan yang berikut ini.
Saya ingin menyisipkan gambar siswa dalam satu lembar, muncul di lembar lain berdasarkan nama mereka
Untuk membuat pesawat navigasi untuk membantu pengguna
Untuk menetapkan lembar tertentu ke pengguna
Untuk membuat antarmuka untuk buku kerja
Untuk membuat halaman login
Komentar ini diminimalkan oleh moderator di situs
leo tersayang,
Setiap pertanyaan tentang Excel, jangan ragu untuk memposting di forum kami: https://www.extendoffice.com/forum.html.
Anda akan mendapatkan lebih banyak dukungan tentang Excel dari profesional Excel kami.
Komentar ini diminimalkan oleh moderator di situs
Halo,

Saya telah mencoba kode Anda dan mengedit sedikit, tetapi saya tidak dapat menemukan kesalahan apa yang saya lakukan di sini?

Sub Lembar Kerja Pribadi_Rubah (Rentang Target As ByVal)
If Range("A40") <> "" Kemudian
Range("D40:E40").Terkunci = Salah
ElseIf Range("A40") = "" Kemudian
Range("D40:E40").Terkunci = Benar
End If
End Sub


Pemikiran saya tentang itu adalah jika tidak ada apa-apa di dalamnya (A40). Kemudian saya ingin dikunci oleh VBA. Jika A40 berisi sesuatu, maka saya ingin itu dibuka kuncinya. Saya harap Anda dapat melihat rasa itu.


Salam Kristoffer
Komentar ini diminimalkan oleh moderator di situs
Selamat siang,
Tidak ada yang salah dengan kode Anda. Ini bekerja dengan baik untuk saya.
Komentar ini diminimalkan oleh moderator di situs
Hai. Saya juga tidak bisa membuat kode ini berfungsi. Itu tidak melakukan apa-apa. Kayak nya malah ga ada kodenya?? Saya sangat baru di VBA dan memiliki pemahaman dasar tentangnya. Apakah kode ini dijalankan apa adanya, atau apakah kode ini harus ditambahkan juga agar dapat dijalankan? Atau berubah menjadi Makro (yang saya tidak begitu mengerti mengapa karena itu adalah rekaman instruksi, berdasarkan pemahaman saya tentang mereka)
Komentar ini diminimalkan oleh moderator di situs
APA KODENYA JIKA SAYA INGIN MENGUNCI SEL E1, E2, E3 .............. UNTUK TEKS KHUSUS (LETS SAY "P") PADA SEL B1, B2, B3... ............... SECARA TERSEBUT.

TERIMA KASIH SEBELUMNYA
Komentar ini diminimalkan oleh moderator di situs
Good Day
Silakan coba skrip VBA di bawah ini.

Sub Lembar Kerja Pribadi_Rubah (Rentang Target As ByVal)
Jika Target. Hitung = 1 Maka
Jika Target.Address = Range("A1").Address Dan Target.Value = "A" Kemudian
Rentang("B1"). Terkunci = Benar
ElseIf Target.Address = Range("A2").Address Dan Target.Value = "A" Lalu
Rentang("B2"). Terkunci = Benar
ElseIf Target.Address = Range("A3").Address Dan Target.Value = "A" Lalu
Rentang("B3"). Terkunci = Benar
End If
End If
End Sub
Komentar ini diminimalkan oleh moderator di situs
Hari baik!
Мне тоже необходимо заблокировать значение, но только в одной ячейке в зависимости от значения в другой, я попробовала использовать код в комментарии выше, но он не работает(оставила только один параметр для блокировки), но он у меня не работает - при этом нет сообщения об ошибке, ячейка, которая должна быть заблокирована - просто не блокируется, остается активной. В чем может быть причина?

Berikut adalah beberapa hal yang perlu diperhatikan:

Sub Lembar Kerja Pribadi_Rubah (Rentang Target As ByVal)
Jika Target.Coun t=1 Kemudian
Jika Target.Address = Range("C9").Address Dan Target.Value = "согласно плану" Maka
Range("C10").Terkunci = Benar
End If
End Sub
Komentar ini diminimalkan oleh moderator di situs
Hai! butuh saran.
Apakah ada cara untuk tidak mengizinkan sel diperbarui kecuali telah memenuhi kondisi di sel lain?
Contoh: jika sel A tidak diperbarui, saya tidak akan dapat mengubah nilai sel B menjadi lengkap.

Menghargai umpan balik.
Terima kasih!
Komentar ini diminimalkan oleh moderator di situs
Margi yang terhormat,
Silakan coba di bawah kode VBA.

Redupkan PreVal Sebagai String
Redupkan NextVal Sebagai String
Sub Worksheet_Activate () Pribadi
PreVal = Rentang("A1")
NextVal = Rentang("A1")
End Sub
Sub Lembar Kerja Pribadi_Rubah (Rentang Target As ByVal)
Jika (Target.Count = 1) Dan (Target.Address = "$A$1") Maka
NextVal = Rentang("A1")
End If
End Sub
Sub Worksheet_SelectionChange Pribadi (Target ByVal Sebagai Rentang)
Jika Target. Hitung = 1 Maka
Jika Target.Address = "$A$1" Maka
PreVal = Rentang("A1")
ElseIf (Target.Address = "$B$1") Maka
Jika PreVal = NextVal Maka
Application.EnableEvents = Salah
Rentang("A1").Pilih
Application.EnableEvents = Benar
End If
End If
End If
End Sub
Komentar ini diminimalkan oleh moderator di situs
dapatkah seseorang memperbaiki ini pls>>>

Sub Lembar Kerja Pribadi_Rubah (Rentang Target As ByVal)
Untuk i = 7 Sampai 100
If Range("Sel(D, i)") = "Pinjaman" Maka
Range("Sel(V, i):Sel(X, i)").Terkunci = Benar
ElseIf Range("Sel(D, i)") = "Tabungan" Kemudian
Range("Sel(Q, i):Sel(U, i)").Terkunci = Benar
Range("Sel(W, i):Sel(X, i)").Terkunci = Benar
ElseIf Range("Sel(D, i)") = "ShareCap" Kemudian
Range("Sel(Q, i):Sel(U, i)").Terkunci = Benar
Range("Sel(V, i)").Terkunci = Benar
End If
Selanjutnya saya
End Sub
Komentar ini diminimalkan oleh moderator di situs
Hai! Dapatkah seseorang membantu saya? Saya harus mengunci/membekukan sel. Sel itu terhubung dengan yang lain dan memiliki nilai yang berubah setiap menit. Yang harus saya lakukan adalah menjaga nilainya selama satu menit/jam tertentu. Bagaimana saya bisa melakukannya tanpa menyalin dan menempelkannya sebagai nilai?
Komentar ini diminimalkan oleh moderator di situs
Mira yang terhormat,
Maaf tidak dapat membantu dengan ini, Anda dapat memposting pertanyaan Anda di forum kami: https://www.extendoffice.com/forum.html untuk mendapatkan lebih banyak dukungan Excel dari profesional kami.
Komentar ini diminimalkan oleh moderator di situs
Hai,
Saya benar-benar baru dalam hal ini.
Saya telah mencoba menyatukan sistem faktur di excel.
Saya membuat 3 lembar.
1. Template Faktur (Faktur)- Hanya faktur umum yang dikirim ke agen saya setiap minggu.

2. Datasheet (Lembar Data) tepatnya - dimana invoice dapat membaca alamat nama perusahaan dll, jadi jika ada perubahan maka invoice akan otomatis terupdate.

3. Tab kalender (Kalender 2018) tepatnya - yang dirujuk dalam templat faktur, dan mencantumkan tanggal dan nomor faktur yang sesuai pada faktur yang sebenarnya.

Apa yang ingin saya lakukan.
Tab kalender akan menjadi halaman utama saya, saya menambahkan sel drop-down status untuk setiap minggu dengan opsi "Aktif" dan "Tutup". Saya ingin Mengunci seluruh tab "Faktur" jika sel yang sesuai disetel ke "Tutup".

Saya harap kalian mengerti apa yang saya coba lakukan.
Terima kasih sebelumnya.
Komentar ini diminimalkan oleh moderator di situs
Ando Veres yang terhormat.
Kode VBA di bawah ini dapat membantu Anda. Silakan tempatkan kode ke dalam jendela kode lembar Kalender 2018 ubah A1 ke sel drop-down Anda. Terima kasih.

Sub Lembar Kerja Pribadi_Rubah (Rentang Target As ByVal)
Redupkan xRg Sebagai Rentang
On Error Resume Next
Tetapkan xRg = Intersect(Target, Range("A1"))
Jika xRg Bukan Apa-apa Kemudian Keluar Sub
Jika Target.Validation.Type >= 0 Kemudian
Jika Target.Value = "Tutup" Maka
Sheets("Lembar Data").Lindungi
ElseIf xRg.Value = "Aktif" Kemudian
Sheets("Lembar Data").Unprotect
End If
End If
End Sub
Komentar ini diminimalkan oleh moderator di situs
Saya menyiapkan manajemen stok gudang dalam templat excel. Untuk mengirimkan stok saya harus mengeluarkan pass gerbang. Saya ingin setiap pass gerbang, data yang sesuai akan diperbarui di halaman pengambilan stok harian. Dengan perubahan nomor seri gate pass, baris akan dikunci dan selanjutnya akan diisi.
Komentar ini diminimalkan oleh moderator di situs
Selamat siang,
Akan lebih baik jika Anda dapat mengunggah buku kerja Anda di sini. Terima kasih atas komentarmu.
Komentar ini diminimalkan oleh moderator di situs
Bisakah Anda membimbing saya tentang apa yang salah di sini? Terima kasih sebelumnya.

Sub Lembar Kerja Pribadi_Rubah (Rentang Target As ByVal)
Jika Range("K:K") = "LEBIH STOCK" Maka
Range("S:S").Terkunci = Benar
ElseIf Range("K:K") = "SLOW MOVING" Maka
Range("S:S").Terkunci = Benar
ElseIf Range("K:K") = "NORMAL" Maka
Range("S:S").Terkunci = Salah
ElseIf Range("K:K") = "SHORTAGE" Lalu
Range("S:S").Terkunci = Salah
End If
End Sub
Komentar ini diminimalkan oleh moderator di situs
Maukah Anda memberi saran kepada saya tentang cara memperbaikinya? Terima kasih sebelumnya.

Sub Lembar Kerja Pribadi_Rubah (Rentang Target As ByVal)
Jika Range("A:A") = "SLOW MOVING" Maka
Range("B:B").Terkunci = Benar
ElseIf Range("A:A") = "LEBIH STOCK" Lalu
Range("B:B").Terkunci = Benar
ElseIf Range("A:A") = "NORMAL" Maka
Range("B:B").Terkunci = Salah
End If
End Sub
Komentar ini diminimalkan oleh moderator di situs
Tidak menjadi ahli VB, saya akan mengatakan Anda memiliki terlalu banyak "Elseif" - jika Anda mengubah semuanya menjadi JIKA kecuali yang terakhir maka mudah-mudahan itu akan berhasil.
Pada dasarnya Jika X melakukan ini, Jika Y melakukan ini, jika Z melakukan ini, jika tidak ada satupun - lakukan ini.
Komentar ini diminimalkan oleh moderator di situs
Bagaimana kodenya jika saya ingin mengunci blok sel (Baris 6, 7, dan 8/Huruf D hingga U serta sel F5 dan J5) dan membukanya saat saya meletakkan "X" di sel E5? Terima kasih sebelumnya!
Komentar ini diminimalkan oleh moderator di situs
Hai MitchyII,
Apakah maksud Anda blok sel yang ditentukan telah dikunci secara manual sebelumnya dan hanya ingin membukanya dengan mengetikkan "X" di sel E5?
Jika menghapus "X" dari sel E5, Anda ingin mengunci rentang lagi?
Saya membutuhkan lebih banyak detail masalah.
Terima kasih atas komentar anda
Komentar ini diminimalkan oleh moderator di situs
Hai Mitchyll (atau siapa pun), membangun dari Crystal. Saya telah mengunci semua sel secara manual dan berdasarkan informasi di kolom G, saya ingin mereka tetap terkunci atau terbuka. Contoh sel di kolom H HANYA harus dibuka kuncinya jika "c/p" ditempatkan di sel sebelumnya di kolom G
Komentar ini diminimalkan oleh moderator di situs
Apakah mungkin untuk mengunci sel, ketika mencapai nilai tertentu?
Komentar ini diminimalkan oleh moderator di situs
Hai, bisakah Anda memeriksa alasan mengapa itu tidak berhasil?

Sub Lembar Kerja Pribadi_Rubah (Rentang Target As ByVal)
If Range("A3:A37").Nilai <> "" Kemudian
Range("B3:B37").Terkunci = Benar
ElseIf Range("A3:A37") = "" Kemudian
Range("B3:B37").Terkunci = Salah
End If

If Range("B3:B37").Nilai <> "" Kemudian
Range("A3:A37").Terkunci = Benar
ElseIf Range("B3:B37") = "" Kemudian
Range("A3:A37").Terkunci = Salah
End If

End Sub


Terima kasih banyak sebelumnya!!!
Komentar ini diminimalkan oleh moderator di situs
Hi
Saya baru saja mencoba menggunakan kode di atas
dan dikatakan kesalahan tipe 13 ketika saya mencoba menggunakannya.
dapatkah Anda membantu saya dengan ini?

Terima kasih
Komentar ini diminimalkan oleh moderator di situs
Hai,
Versi Excel mana yang Anda gunakan?
Komentar ini diminimalkan oleh moderator di situs
hi

jika saya perlu mengunci sel pada lembar 2 (sel C4) berdasarkan klaim dari lembar 1 (sel C1),
jika "tidak" pada lembar 1 C4; lembar 2 harus dikunci dan harus mentransfer nilai dari lembar 1 C4,
ke lembar 2 C4.

jika "ya" di lembar 1, saya harus bisa mengetik sel di lembar 2

Terima kasih Benthe
Komentar ini diminimalkan oleh moderator di situs
Hai tolong ada yang membantu saya untuk kode VBA.

jika saya memilih dari drop down di Sel Range(A1:A1000) "abc" maka tidak mengunci Range(D1:D1000) ke (F1:F1000)



jika saya memilih dari drop down di Sel Range(A1:A1000) "abc" maka tidak mengunci Range(D1:D1000) ke (F1:F1000)



jika saya memilih dari drop down di Rentang sel (A1: A1000) "abc" lalu kunci Rentang (D1: D1000) ke (F1: F1000)



yaitu sel masing-masing A1 untuk D1 hingga F1



A2 untuk D2 ke F2
Komentar ini diminimalkan oleh moderator di situs
Saya menyalin semuanya dari atas ke dalam lembar. Ini berfungsi sebentar dan sekarang saya mendapatkan kesalahan 'Tidak dapat mengatur properti Terkunci dari kelas Rentang'. Saya bahkan membuka lembar baru dan menyalin contoh Anda kata demi kata. Ada ide apa yang terjadi?
Komentar ini diminimalkan oleh moderator di situs
Halo,

Aku butuh bantuanmu. ketika saya memilih Tidak ada opsi dari sel, saya ingin kolom di bawah ini dikunci/diklik.

Apakah itu mungkin? Saya mencoba formula ini tetapi tidak berhasil

Sub Lembar Kerja Pribadi_Rubah (Rentang Target As ByVal)

Jika Range("D90") = "Ya" Maka

Range("C94:F104").Terkunci = Salah

ElseIf Range("D90") = "Tidak" Kemudian

Range("C94:F104").Terkunci = Benar

End If

End Sub
Komentar ini diminimalkan oleh moderator di situs
Hai Steffi,
Kode bekerja dengan baik.
Jika Anda ingin mengunci rentang sel untuk mencegah pengeditan, Anda perlu memproteksi lembar kerja secara manual setelah memilih opsi Tidak di D90.
Dan karena D90 berada dalam kisaran C94:F104, setelah melindungi lembar kerja, D90 juga tidak dapat diedit.
Komentar ini diminimalkan oleh moderator di situs
D90 tidak dalam jangkauan. Ini 4 baris di atas C94
Belum ada komentar yang diposting di sini
Muat Lebih
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan

Ikuti kami

Hak Cipta © 2009 - www.extendoffice.com. | Seluruh hak cipta. Dipersembahkan oleh ExtendOffice. | Peta Situs
Microsoft dan logo Office adalah merek dagang atau merek dagang terdaftar dari Microsoft Corporation di Amerika Serikat dan / atau negara lain.
Dilindungi oleh Sectigo SSL