Как с помощью макроса сделать так чтобы значение ячейки можно было поменять после введения пароля. А для ввода значений в пустые ячейки пароль не требовался.
Как с помощью макроса сделать так чтобы значение ячейки можно было поменять после введения пароля. А для ввода значений в пустые ячейки пароль не требовался.Mila123
Пробуйте, пароль на изменение НЕ ПУСТЫХ ячеек в диапазоне А1:F12 - 123 [vba]
Код
Public a As String
Private Sub Worksheet_SelectionChange(ByVal Target As Range) a = Target.Value End Sub
Private Sub Worksheet_Change(ByVal Target As Range) Application.ScreenUpdating = False Application.EnableEvents = False If Not Intersect(Target, Range("A1:F12")) Is Nothing And a <> "" Then x = InputBox("Введите пароля для ищменения ячейки") If x <> "123" Then Target.Value = a End If End If a = Target.Value Application.EnableEvents = True Application.ScreenUpdating = True End Sub
[/vba]
Пробуйте, пароль на изменение НЕ ПУСТЫХ ячеек в диапазоне А1:F12 - 123 [vba]
Код
Public a As String
Private Sub Worksheet_SelectionChange(ByVal Target As Range) a = Target.Value End Sub
Private Sub Worksheet_Change(ByVal Target As Range) Application.ScreenUpdating = False Application.EnableEvents = False If Not Intersect(Target, Range("A1:F12")) Is Nothing And a <> "" Then x = InputBox("Введите пароля для ищменения ячейки") If x <> "123" Then Target.Value = a End If End If a = Target.Value Application.EnableEvents = True Application.ScreenUpdating = True End Sub