как запретить макросом переименование книги Excel

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

как запретить макросом переименование книги Excel (Макросы/Sub)

Валерьянка

Дата: Пятница, 04.04.2014, 10:36 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 71

Репутация: 2 ±

Замечаний: 0% ±

Excel 2010

Доброго дня!

Простите за банальный вопрос

Подскажите пожалуйста как запретить макросом переименование книги? И возможно ли такое? В инете ничего найти не удалось.

Есть только про запрет переименования листа, или всех листов в книге ActiveWorkbook.Protect, но мне нужно именно запрет переименования книги

Ответить

KuklP

Дата: Пятница, 04.04.2014, 10:42 | Сообщение № 2

Группа: Проверенные

Ранг: Старожил

Сообщений: 2369

Репутация: 486 ±

Замечаний: 0% ±

2003-2010

А кто запретит переименовать закрытую книгу из ОС?. Можно при открытии макросом проверять имя и переименовывать как хочешь, но опять же закрыл - переименовал. Отключил макросы, работай в переименованной. Визгу много, а шерсти мало...

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Ответить

Валерьянка

Дата: Пятница, 04.04.2014, 10:46 | Сообщение № 3

Группа: Пользователи

Ранг: Участник

Сообщений: 71

Репутация: 2 ±

Замечаний: 0% ±

Excel 2010

KuklP,

Цитата KuklP, 04.04.2014 в 10:42, в сообщении № 2

А кто запретит переименовать закрытую книгу из ОС?.

ну да... логично <_<

Цитата KuklP, 04.04.2014 в 10:42, в сообщении № 2

Можно при открытии макросом проверять имя и переименовывать как хочешь

а вот это попробую, спасибо

Ответить

Валерьянка

Дата: Пятница, 04.04.2014, 14:48 | Сообщение № 4

Группа: Пользователи

Ранг: Участник

Сообщений: 71

Репутация: 2 ±

Замечаний: 0% ±

Excel 2010

Получилось как-то так:

При открытии выполняется проверка имени
Если книга переименована → сохранить как под нужным именем
Неугодный файл удаляется

[vba]

Код

Sub Auto_open()
Dim PathF$, OnlyName, FirstName
FirstName = ThisWorkbook.Name
If FirstName = "ТЕСТ.xlsm" Then
Else
FirstName = ThisWorkbook.FullName
OnlyName = "ТЕСТ.xlsm"
PathF$ = ThisWorkbook.Path
ChDir PathF$
ActiveWorkbook.SaveAs Filename:=OnlyName, _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
Kill FirstName
MsgBox "ВНИМАНИЕ!!!" & Chr(10) & "Файл " & OnlyName & " был ранее переименован!" & Chr(10) & "Имя восстановлено!"
End If
End Sub

[/vba]

Вложен пример, может кому-нибудь пригодится

К сообщению приложен файл: 123465.xlsm (16.0 Kb)

Сообщение отредактировал Валерьянка - Пятница, 04.04.2014, 14:59

Ответить

KuklP

Дата: Пятница, 04.04.2014, 18:35 | Сообщение № 5

Группа: Проверенные

Ранг: Старожил

Сообщений: 2369

Репутация: 486 ±

Замечаний: 0% ±

2003-2010

Осмелюсь предложить вариант:
[vba]

Код

Sub Auto_open()
     Dim FirstName
     If ThisWorkbook.Name = "ТЕСТ.xlsm" Then Exit Sub
     FirstName = ThisWorkbook.FullName
     ThisWorkbook.SaveAs ThisWorkbook.Path & "\ТЕСТ.xlsm", FileFormat:=52, CreateBackup:=False
     Kill FirstName
     MsgBox "ВНИМАНИЕ!!!" & Chr(10) & "Файл " & OnlyName & "  был ранее переименован!" _
          & Chr(10) & "Имя восстановлено!"
End Sub

[/vba]