есть документ. предназначен для охраны.
нужно что-бы они его заполняли но возможности редактировать нельзя.
на просторах интернета нашел
нужно в модуле прописать
и снять защиту с ячеек.
не работает. где я ошибся?
нужно что-бы они его заполняли но возможности редактировать нельзя.
на просторах интернета нашел
нужно в модуле прописать
| Код |
|---|
Sub ProtectFormulas() Dim cell As Range For Each cell In ActiveSheet.UsedRange If cell.HasFormula Then cell.Locked = True End If Next cell ActiveSheet.Protect "12345" MsgBox "Ваш проект защищен" End Sub |
не работает. где я ошибся?
