Як заблокувати або захистити комірки після введення чи введення даних у Excel?
Припустимо, у вас є робочий аркуш і лише певний діапазон порожніх комірок потребує введення даних, а після закінчення введення даних вам потрібно автоматично заблокувати комірки, щоб не допустити змін знову. Як ви можете досягти цього? Ця стаття може вам допомогти.
Заблокуйте або захистіть комірки після введення даних або введення за допомогою коду VBA
Заблокуйте або захистіть комірки після введення даних або введення за допомогою коду VBA
Наприклад, певним діапазоном порожніх комірок є A1: F8. Будь ласка, виконайте наступні дії, щоб заблокувати ці комірки після введення даних у Excel.
1. Спочатку розблокуйте цей діапазон, виберіть клітинки та клацніть правою кнопкою миші, а потім виберіть Формат ячеек в меню, що клацне правою кнопкою миші, і в Формат ячеек діалогове вікно, знявши прапорець біля Заблокований коробка під захист і нарешті клацніть на OK кнопку. Дивіться знімок екрана:
2. клацання Розгляд > Захистити аркуш. І вкажіть пароль для захисту цього аркуша.
3. Клацніть правою кнопкою миші вкладку аркуша, виберіть Переглянути код з меню, що клацне правою кнопкою миші. Потім скопіюйте та вставте наведений нижче код VBA у вікно коду. Дивіться знімок екрана:
Код VBA: блокування або захист комірок після введення або введення даних
Dim mRg As Range
Dim mStr As String
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Range("A1:F8"), Target) Is Nothing Then
Set mRg = Target.Item(1)
mStr = mRg.Value
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim xRg As Range
On Error Resume Next
Set xRg = Intersect(Range("A1:F8"), Target)
If xRg Is Nothing Then Exit Sub
Target.Worksheet.Unprotect Password:="123"
If xRg.Value <> mStr Then xRg.Locked = True
Target.Worksheet.Protect Password:="123"
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Range("A1:F8"), Target) Is Nothing Then
Set mRg = Target.Item(1)
mStr = mRg.Value
End If
End Sub
примітки: У коді "A1: F8" - діапазон, необхідний для введення даних; а "123" - це пароль цього захищеного робочого аркуша. Будь ласка, змініть їх, як вам потрібно.
4. прес інший + Q клавіші одночасно, щоб закрити Microsoft Visual Basic для додатків вікна.
Після завершення введення даних до комірок діапазону A1: F8 вони будуть автоматично заблоковані. І ви отримаєте відповідне діалогове вікно, якщо спробуєте змінити будь-який вміст комірки цього діапазону. Дивіться знімок екрана:
Статті по темі:
- Як заблокувати всі посилання на клітинки у формулах відразу в Excel?
- Як заблокувати або розблокувати комірки на основі значень в іншій комірці в Excel?
- Як зафіксувати зображення / зображення в клітині або всередині комірки в Excel?
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!