Помогите разобраться: написал в Excel 2000 макрос, при попытке выполнения
его в Excel 97 вываливается ошибка 1004 : "Метод Protect из класса завершен неверно"
Excel 97 ругается на эти строки:
ActiveSheet.Unprotect
ActiveSheet.Rows(ActiveCell.Row).ClearContents
ActiveSheet.Protect
или на Unprotect или на Protect. В справке по Excel 97 вроде ничего особенного про эти метеды не написано.


А это вся процедура, на всякий случай ;)
Private Sub CommandButton2_Click()
Dim curCell, BeginCell As Range
Set BeginCell = Range("Çàêàç!Begin1")
If BeginCell.Row >= ActiveCell.Row Then
MsgBox ("Âû âûøëè çà ãðàíèöû òàáëèöû çàêàçà")
Else
ActiveSheet.Unprotect
ActiveSheet.Rows(ActiveCell.Row).ClearContents
ActiveSheet.Protect
End If
Set curCell = ActiveCell.Offset(-1, 0)
If BeginCell.Row + 1 <= curCell.Row Then
curCell.Activate
End If
End Sub