Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Me.Previous Is Nothing Then
Me.Previous.Protect Password:="Ваш_пароль"
End If
End Sub
Нужна помощь с макросом для Excel
Подскажите новичку... :)
Задача такая: нужно сделать так, чтобы при изменении любой ячейки текущего листа, предыдущий лист блокировался (защищался) с заданным паролем. Возможно это сделать?
Заранее спасибо.
Задача такая: нужно сделать так, чтобы при изменении любой ячейки текущего листа, предыдущий лист блокировался (защищался) с заданным паролем. Возможно это сделать?
Заранее спасибо.
Разместите в модуле нужного рабочего листа следующее событие :
P.S. Если речь идёт о всех рабочих листах книги, то можно использовать аналогичное событие книги, которое должно находиться в модуле книги ThisWorkbook(ЭтаКнига)
Код:
P.S. Если речь идёт о всех рабочих листах книги, то можно использовать аналогичное событие книги, которое должно находиться в модуле книги ThisWorkbook(ЭтаКнига)
Код:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Excel.Range)
If Not Sh.Previous Is Nothing Then
Sh.Previous.Protect Password:="Ваш_пароль"
End If
End Sub
If Not Sh.Previous Is Nothing Then
Sh.Previous.Protect Password:="Ваш_пароль"
End If
End Sub
Спасибо!!
Все работает!
Теперь одна проблема ... нужно и в OpenOffice заставить это работать, наверное, вопрос не сюда, но все же.. :)
Все работает!
Теперь одна проблема ... нужно и в OpenOffice заставить это работать, наверное, вопрос не сюда, но все же.. :)