Melindungi Data yang Dinyatakan Menggunakan Petua VBA - Excel

Anthony bertanya:

Semasa memilih kesesuaian '0 -xlUnlockedCells' di tetingkap EnableSelection hanya sel yang tidak dikunci dapat dipilih ketika buku kerja dilindungi. Walau bagaimanapun, apabila buku kerja Disimpan, Ditutup dan kemudian dibuka semula lalai EnableSelection kembali ke '0 -xlNoRestriction' bagaimana saya boleh menghentikan ini berlaku? Salam.

Baiklah, ini dapat diselesaikan dengan menggunakan beberapa acara. Satu, menggunakan acara Workbook_Open, atau dua, menggunakan acara Sheet_Activate, seperti ini:

Dalam Modul buku kerja

Private Sub Workbook_Open() Sheets("Sheet1").EnableSelection = xlUnlockedCells End Sub

atau dalam Modul Lembaran

Private Sub Worksheet_Activate() ActiveSheet.EnableSelection = xlUnlockedCells End Sub

Satu perkara terakhir, xlUnlockedCells sama dengan 1. 0 adalah xlNoRestriction dan -4142 adalah xlNoSelection.