Формулы в Excel

[ROBERT033]

Как защитить толко формулы в книге.

[Slavik]

Не совсем понял вас, от чего вы хотите защитить книгу? Можете попробовать Меню-Сервис-Защита-Защитить книгу... Ета функция для самоуспакаивания

[Disel]

Вот здесь есть, что Вы хотите, если я Вас правильно понял. --> http://programmersforum.ru/showthrea...F7%E5%E9%EA%E8

[ROBERT033]

Защитить надо от самого себя,что-бы при вводе данных случайно не удалить формулу.книга состоит из множества листов,в каждом листе много формул.надо что-бы мог быстро защитить и быстро снять защиту.в каждом листе защищать я могу.надо всю книгу.

[Disel]

Так в той теме еще лучше, мне надо было тоже самое. Макрос вставляешь в лист и все. Получается, что ячейку с формулой стереть не льзя, но в строке формул редактировать формулу можно. И не надо включать или выключать защиту, просто впишите макрос и все. Вы наверно тему не доконца читали?

[ROBERT033]

Я не могу посмотреть вложение.

[Disel]

*.xls - Module1(Code)

Option Explicit

Sub on_enter()
Application.OnKey "{enter}", "on_enter"
    [a1] = [a1]
End Sub
Function hf(rng As Range) As Boolean
hf = rng.HasFormula
End Function

--------------------------------------
*.xls - Лист1(Code)

Option Explicit

Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo er
Application.EnableEvents = False
If Target.HasFormula Then GoTo er
If Mid([zzzzzprev], 2, 1) = "=" Then Target.Formula = Mid([zzzzzprev], 2, 9999)
er:
Application.EnableEvents = True
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Names("zzzzzprev").Delete
Names.Add "zzzzzprev", "'" & Target.Formula
End Sub
Sub ev()
Application.EnableEvents = True
End Sub

--------------------------------------

*.xls - ЭтаКнига(Code)

Option Explicit

Private Sub Workbook_Open()

End Sub

Вот исходник макроса.

[ROBERT033]

Как сделать макрос?
Как все это сделать?
Очень нужно ПОМОГИТЕ!!!

[SAS888]

Посмотрите пример во вложении.
Откройте файл. Для того, чтобы защитить все ячейки всех листов, содержащие формулы - нажмите Ctrl+a. Чтобы снять защиту - Ctrl+b. В коде макроса можно изменить назначение клавиш. После изменения, необходимо сохранить, закрыть и вновь открыть файл.

[ROBERT033]

Спасибо.но у меня ничего не получается,не могу посмотреть вложение.