Можно ли с помощью макроса в Excel:
1)Закрыть текущий открытый проект (без вывода сообщенияо сохранении)
2)Запретить редактирование макросов(или просмотр)
3)удалить открытый прэкт
4)отчистить содержимое всех листов открытой книги
5)запускать макрос при открытии прэкта
6)не сохранять изменения при выходе..

Пишу не вирус... просто хочу защетить свой проэкт

если есть готовые макросы по этим темам...
буду очень признателен...
Спасибо..

Отвечаю по вопросам, которые точно знаю:

пункт 4 - очистить содержимое листа
ThisWorkbook.Sheets("Лист1").Activate 'Активизировать нужный лист
Range(A:Z).Select ' выбрать всю область в диапазоне от A до Z
Range(Str_Ran).Clear ' очистить выбранную область

пункт 5 - Запустить макрос при открытии проекта
' Процедура с именем Auto_Open выполняется автоматически
' при открытии файла с кодом программы.
Sub Auto_Open()
'Активизировать лист на котором находится Кнопка
ThisWorkbook.Sheets("Лист1").Activate
End Sub

пункт 6 - Не сохранять изменения при выходе
ActiveWorkbook.Save ' сохранить книгу
ActiveWorkbook.Close ' закрыть книгу не выходя из Excel
ActiveWorkbook.Application.Quit ' закрыть Excel

'чтобы выйти из Excel без сохранения надо выдать только команду
ActiveWorkbook.Application.Quit ' закрыть Excel

1. Сохранить программно книгу перед закрытием с помощью события Workbook_BeforeClose

Код

Private Sub Workbook_BeforeClose(Cancel As Boolean) Save End Sub

2. VBA редактор - tools- project properties - protection - lock project for viewing, и на той же вкладке задай пароль для просмотра проекта. Закрой и открой книгу, после этого VBA проект нельзя будет открыть не зная пароль. Правда есть софтина, которая элементарно крякает эти пароли.

3. Проект удалить нельзя, можно удалить только его модули. А если не секрет, для чего тебе это нужно?

4.

Код

Sub Макрос1() Dim i For i = 1 To Sheets.Count Sheets(i).Select Cells.Select Selection.Clear Next i End Sub

Кстати GUI, а ты свой код к 4 пункту у себя на компе запускал, по моему даже и не пробовал?
(
-Range(A:Z).Select 'НЕ выбирает всю область в диапазоне от A до Z
-Range(Str_Ran).Clear 'НЕ очищает выбранную область
)

5. Кроме Auto_Open() можно еще через событие книги Workbook_Open

Код

Private Sub Workbook_Open() 'Тут название макроса который должен запускаться при открытии книги End Sub

6. GUI, скажи мне честно ты свой пример

Код

ActiveWorkbook.Save ' сохранить книгу ActiveWorkbook.Close ' закрыть книгу не выходя из Excel ActiveWorkbook.Application.Quit ' закрыть Excel

запускал?
Наверняка нет!
Выполнятся только 2 первые строки кода, которыые сохранят и закроют книгу, а 3-ю строчку коду некому будет выполнить, ведь она будет находится в уже закрытой книге.