Новости:

Прикрепить к сообщению можно только файлы xls, gif, jpg, rar, zip,7z, bas, frm, cls, doc размером до 150 Кб.

Главное меню

Защита Книги целиком, разрешить Изменение обектов пользователям.

Автор Timur Gizatulin, 29.04.2011, 12:06

« назад - далее »

Timur Gizatulin

Добрый день!
Имеем несколько файлов, в каждом из которых по 10-15 листов. Для оперативного снятия/наложения защиты с паролем на книги написан макрос:

Sub Protect()
    Dim sh As Worksheet: Application.ScreenUpdating = False
    With ActiveWorkbook
    For Each sh In ActiveWorkbook.Worksheets   
        sh.Protect ([пароль]) 
    Next sh
    End With
End Sub

Можно ли как-то видоизменить код макроса, чтобы добавить возможность пользователям при закрытой книги добавлять примечания?
При защите только листа при помощи стандартного функционала Excel это достигается путем установки напротив "Изменение объектов" при установки параметров, разрешающих изменение в книги пользователям.

Заранее спасибо! 

_Boroda_

Скажи мне, кудесник, любимец ба'гов...



Яндекс-деньги: 41001632713405
Webmoney: R289877159277; Z102172301748; E177867141995