Немного не так делаете.
Я бы заполнял уже готовый шаблон, с предустановленными настройками доступа. При открыти файла его необходимо "распаролить", при закрытии - запаролить.
Ищите справку по функциям:
Application.Workbooks(1).SetPasswordEncryptionOptions()
Application.Workbooks(1).Permission
Application.Workbooks(1).Password
С Уважением,
Георгий
|