Как да заключите или защитите клетки след въвеждане или въвеждане на данни в 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% и намалява стотици кликвания на мишката за вас всеки ден!