Процедура тестИмя () Экспорт
	Конвертер = СоздатьОбъект ("КонвертерExcel");
	Книга = Конвертер.Создать ();
	Листы = Книга.Листы;
	
	Таб = СоздатьОбъект ("ТабличныйДокумент");
	Таб.Область (1, 1).Текст = "11";
	
	Листы.Добавить ("Лист1", Таб);
	
	Лист = Листы.Получить (1);
	
	ПроверитьРавенство (Лист.Имя, "Лист1");
	
	ВсеВПорядке = 0;
	Попытка
		Лист.Имя = "Лист2";
	Исключение
		ВсеВПорядке = 1;
	КонецПопытки;
	
	Проверить (ВсеВПорядке);
КонецПроцедуры

//-----------------------------------------------------------------------------

Процедура тестДокумент () Экспорт
	Конвертер = СоздатьОбъект ("КонвертерExcel");
	Книга = Конвертер.Создать ();
	Листы = Книга.Листы;
	
	Таб = СоздатьОбъект ("ТабличныйДокумент");
	Таб.Область (1, 1).Текст = "11";
	
	Листы.Добавить ("Лист1", Таб);
	
	Лист = Листы.Получить (1);
	
	Документ = Лист.Документ;
	ПроверитьРавенство (ТипЗначенияСтр (Документ), "ТабличныйДокумент");
	ПроверитьРавенство (Документ.Область (1, 1).Текст, "11");
	
	Таб = СоздатьОбъект ("ТабличныйДокумент");
	Таб.Область (1, 1).Текст = "22";
	Лист.Документ = Таб;
	
	Документ = Лист.Документ;
	ПроверитьРавенство (Документ.Область (1, 1).Текст, "22");
КонецПроцедуры

//-----------------------------------------------------------------------------

Процедура тестЗащититьСодержимое () Экспорт
	Конвертер = СоздатьОбъект ("КонвертерExcel");
	Книга = Конвертер.Создать ();
	Листы = Книга.Листы;
	
	Таб = СоздатьОбъект ("ТабличныйДокумент");
	Таб.Область (1, 1).Текст = "11";
	
	Листы.Добавить ("Лист1", Таб);
	
	Лист = Листы.Получить (1);
	ПроверитьРавенство (Лист.ЗащититьСодержимое, 0);
	Лист.ЗащититьСодержимое = 1;
	ПроверитьРавенство (Лист.ЗащититьСодержимое, 1);
	Лист.ЗащититьСодержимое = 0;
	ПроверитьРавенство (Лист.ЗащититьСодержимое, 0);
КонецПроцедуры

//-----------------------------------------------------------------------------

Процедура тестЗащититьОбъекты () Экспорт
	Конвертер = СоздатьОбъект ("КонвертерExcel");
	Книга = Конвертер.Создать ();
	Листы = Книга.Листы;
	
	Таб = СоздатьОбъект ("ТабличныйДокумент");
	Таб.Область (1, 1).Текст = "11";
	
	Листы.Добавить ("Лист1", Таб);
	
	Лист = Листы.Получить (1);
	
	ПроверитьРавенство (Лист.ЗащититьОбъекты, 0);
	Лист.ЗащититьОбъекты = 1;
	ПроверитьРавенство (Лист.ЗащититьОбъекты, 1);
	Лист.ЗащититьОбъекты = 0;
	ПроверитьРавенство (Лист.ЗащититьОбъекты, 0);
КонецПроцедуры

//-----------------------------------------------------------------------------

Процедура тестУстановитьПароль () Экспорт
	Конвертер = СоздатьОбъект ("КонвертерExcel");
	Книга = Конвертер.Создать ();
	Листы = Книга.Листы;
	
	Таб = СоздатьОбъект ("ТабличныйДокумент");
	Таб.Область (1, 1).Текст = "11";
	
	Листы.Добавить ("Лист1", Таб);
	
	Лист = Листы.Получить (1);
	Лист.УстановитьПароль ("Тест");
КонецПроцедуры
