Запрет на изменение наименования файла - Мир MS Excel

Регистрация

Напомнить пароль

= Мир MS Excel/Запрет на изменение наименования файла - Мир MS Excel

Старая форма входа

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

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Запрет на изменение наименования файла (Формулы/Formulas)

Запрет на изменение наименования файла

Дата: Среда, 15.08.2018, 09:15 | Сообщение № 1

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

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

Сообщений: 1002

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

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

Excel 2010

Добрейшего утра, многоуважаемые форумчане.
Хотелось бы поинтересоваться потому как в ГУГЛ помощи найти подобное не могу. А если и нахожу то не то что хотелось бы.
ЗАДАЧА
Имеется три папки. в каждой папке имеются файлы экселя. Все файлы взаимосвязаны (где формулами, где макросами). В одной из основных папок (имеются файлы рабочие: куда поступает информация от рук оператора. И с которых данная информация раздается на отчеты и т.д).
Вот как можно ЗАПРЕТИТЬ оператору изменять наименование файла эксель!? К примеру файл называется "Камаз е 969 кк 197" и он не должен как то изменить свое наименование ИНАЧЕ

потому как прописанный макрос в другом файле ищет именно ПАПКУ определенную и определенное наименование...
Возможны ли какие то варианты, или же имеется информация что нужно сделать.
Хотя мне кажется что это НЕТ...
Спасибо заранее за ответы и пояснения

Кто бы ты ни был, мир в твоих руках

Ответить

Дата: Среда, 15.08.2018, 09:28 | Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2566

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

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

Excel 2010

Добрый день.
Запретить изменение названия можно, но только вместе с запретом на изменение этого файла. Т.е. информацию в него этот оператор не добавит, только "чтение".

Яндекс: 410016850021169

Ответить

Дата: Среда, 15.08.2018, 09:38 | Сообщение № 3

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

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

Сообщений: 1002

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

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

Excel 2010

sboy, да я понимаю.
Вот именно на эту информацию я и натыкался ((((. Сами листы и так уже запоролил (чтоб оператор не мог лезть туда куда ему не нужно).
Но когда в очередной раз она открывает отчет и видит что НЕТ информации (не подтянулось), начинает КРИЧАТЬ, да ты сделал теперь вообще не поймешь как это все работает ((((
Начинаешь в панике выяснять причину и натыкаешься "Камаз е 969 кк 197 ВАСЯ" да БЛИН КАК ДА ЗАЧЕМ!!!! :'(

:'(

:'(

Вот и решил задать вопрос на форум, может кто что знает, кто то с талкивался с подобным.
Говорю сразу

уволить ОПЕРАТОРА не реально

Кто бы ты ни был, мир в твоих руках

Ответить

Дата: Среда, 15.08.2018, 10:03 | Сообщение № 4

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2523

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

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

2010

Здравствуйте. Можно спрятать файл, а доступ дать через ярлык. Если сохранит как и с новым названием, естественно изменений в старом файле не останется. Или прописать макрос который будет при закрытии книги присваивать нужное имя этой книге, не пробовал, но можно попробовать.Да макрос при переименовании книги в паке, не поможет.

ЯД-41001506838083

Сообщение отредактировал gling - Среда, 15.08.2018, 10:10

Ответить

Дата: Среда, 15.08.2018, 10:08 | Сообщение № 5

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2566

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

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

Excel 2010

Цитата gling, 15.08.2018 в 10:03, в сообщении № 4 ()

при закрытии книги присваивать нужное имя этой книге

это не спасет. Закрыл и переименовал. А вот идея с ярлыком интересная

Яндекс: 410016850021169

Ответить

Дата: Среда, 15.08.2018, 10:23 | Сообщение № 6

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

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

Сообщений: 1002

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

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

Excel 2010

gling, sboy,
СПАСИБО ОГРОМНОЕ за ответы.
Будем про бывать.
Лучше конечно достучаться до сознания операторов (но боюсь это очень сложно).
Но если все таки что то найдется интересное то я буду очень рад.
А с ярлыками нужно про бывать....

Кто бы ты ни был, мир в твоих руках

Ответить

Дата: Среда, 15.08.2018, 11:03 | Сообщение № 7

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16675

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

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

2003; 2007; 2010; 2013 RUS

Цитата gling, 15.08.2018 в 10:03, в сообщении № 4 ()

Да макрос при переименовании книги в паке, не поможет.

А если вот так?
В модуль книги
Оставляет файл с неверным названием и рядом делает такой же с верным. Неверный можно стирать, но на всякий случай оставил
[vba]

Код

Private Sub Workbook_AfterSave(ByVal Success As Boolean)
    fn_ = "129867.xlsm"
    If Me.Name <> fn_ Then
        Application.DisplayAlerts = 0
        Me.SaveAs Filename:=Me.Path & "\" & fn_, FileFormat:=xlOpenXMLWorkbookMacroEnabled
        Application.DisplayAlerts = 1
    End If
End Sub

Private Sub Workbook_Open()
    fn_ = "129867.xlsm"
    If Me.Name <> fn_ Then
         Application.DisplayAlerts = 0
        Me.SaveAs Filename:=Me.Path & "\" & fn_, FileFormat:=xlOpenXMLWorkbookMacroEnabled
        Application.DisplayAlerts = 1
    End If
End Sub

[/vba]

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

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Дата: Среда, 15.08.2018, 11:55 | Сообщение № 8

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

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

Сообщений: 1002

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

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

Excel 2010

_Boroda_,
Александр!!!
А если оператор не открывая файла берет и переименовывает файл
был
"Камаз е 969 кк 197"
а взяла и сделала так вот
"Камаз е 969 кк 197 ВАСЯ"
Вот в чем загвоздка.
И вот именно с этим КАК БОРОТЬСЯ, если мы можем макросами прописать или запреты указать на что то. Но как быть с НАГЛЫМ и УПОРНЫМ вмешательством оператором в переименовыванием самого файла.
А hands

hands

АЛЕКСАНДР!!!
Да вы гений!!!
Попробовал поиграться с вашим вариантом. ЭТО же СУПЕР

Кто бы ты ни был, мир в твоих руках

Сообщение отредактировал lebensvoll - Среда, 15.08.2018, 11:57

Ответить

Дата: Среда, 15.08.2018, 12:33 | Сообщение № 9

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

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

Сообщений: 1002

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

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

Excel 2010

_Boroda_,

:'(

столкнулся с проблемой (((( с чем связано не пойму!!!
Перенес код в модуль книги и получаю ругательство при открытии файла :'(

:'(

[img]

[/img]

перевод

Цитата

Обнаружено неоднозначное имя:
Рабочая книга открыта

А кое что заметил (((( на форуме вы прописываете один код а в файле приложенном другой.
Тупанул, простите!!!
Есть загвоздка (((( данный код у меня под таким наименованием оказывается есть (((( нужно исправить наименование
[vba]

Код

Private Sub Workbook_Open()

[/vba]
Как можно исправить наименование кода на открытие!?
Один код с таким наименованием снимает защиту и обновляет связи и вновь устанавливает защиту.
А другой код производит при открытии файла проверку по его наименованию
[img]

[/img]

Кто бы ты ни был, мир в твоих руках

Сообщение отредактировал lebensvoll - Среда, 15.08.2018, 12:47

Ответить

Дата: Среда, 15.08.2018, 13:05 | Сообщение № 10

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16675

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

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

2003; 2007; 2010; 2013 RUS

Цитата lebensvoll, 15.08.2018 в 12:33, в сообщении № 9 ()

нужно исправить наименование

Не нужно. Нужно в первый код всунуть тело второго

Цитата lebensvoll, 15.08.2018 в 11:55, в сообщении № 8 ()

если оператор не открывая файла берет и переименовывает файл

Для этого как раз код на открытие файла
[vba]

Код

Private Sub Workbook_Open()
    fn_ = "129867.xlsm"
    If Me.Name <> fn_ Then
        Application.DisplayAlerts = 0
        Me.SaveAs Filename:=Me.Path & "\" & fn_, FileFormat:=xlOpenXMLWorkbookMacroEnabled
        Application.DisplayAlerts = 1
    End If
'Дальше то, что в уже имеющемся Workbook_Ope
End Sub

[/vba]

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Дата: Среда, 15.08.2018, 13:20 | Сообщение № 11

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

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

Сообщений: 1002

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

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

Excel 2010

Ругается ((( переменную нужно объявить ((( для fn_ я так понимаю. Если верно понимаю
[vba]

Код

Private Sub Workbook_Open()
    fn_ = "Камаз в 300 нс 197.xlsm"
    If Me.Name <> fn_ Then
        Application.DisplayAlerts = 0
        Me.SaveAs Filename:=Me.Path & "\" & fn_, FileFormat:=xlOpenXMLWorkbookMacroEnabled
        Application.DisplayAlerts = 1
    End If
'Дальше то, что в уже имеющемся Workbook_Ope

'отключаем обновление экрана
Application.ScreenUpdating = False

    Dim sh As Worksheet
    'снимаем защиту
    For Each sh In Worksheets
    sh.Unprotect "09052002" 'цифры - это пароль
    Next sh
    'очищаем записи
    For Each sh In ThisWorkbook.Sheets
ActiveWorkbook.RefreshAll
    Next sh
    'устонавливаем защиту
    For Each sh In Worksheets
    sh.Protect password:="09052002", DrawingObjects:=True, Contents:=True, Scenarios:=True
    Next sh

'Возвращаем обновление экрана
Application.ScreenUpdating = True

   MsgBox "Связи обнавлены"
End Sub

[/vba]
Попытался так

вроде бред получается. ЩЕТ
[vba]

Код

Private Sub Workbook_Open()
    Dim fn_ As Workbook
    For Each fn_ In Workbook
    fn_ = "Камаз в 300 нс 197.xlsm"
    If Me.Name <> fn_ Then
        Application.DisplayAlerts = 0
        Me.SaveAs Filename:=Me.Path & "\" & fn_, FileFormat:=xlOpenXMLWorkbookMacroEnabled
        Application.DisplayAlerts = 1
    End If
'Дальше то, что в уже имеющемся Workbook_Ope

[/vba]

Кто бы ты ни был, мир в твоих руках

Сообщение отредактировал lebensvoll - Среда, 15.08.2018, 13:28

Ответить

Дата: Среда, 15.08.2018, 13:37 | Сообщение № 12

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16675

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

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

2003; 2007; 2010; 2013 RUS

Зачем Вы название файла (текст) пытаетесь сделать книгой Excel? Примерно вот так:
[vba]

Код

Private Sub Workbook_Open()
Dim fn_
    fn_ = "129867.xlsm"
    If Me.Name <> fn_ Then
        Application.DisplayAlerts = 0
        Me.SaveAs Filename:=Me.Path & "\" & fn_, FileFormat:=xlOpenXMLWorkbookMacroEnabled
        Application.DisplayAlerts = 1
    End If
'отключаем обновление экрана
Application.ScreenUpdating = False

    Dim sh As Worksheet
    'снимаем защиту
    For Each sh In Worksheets
    sh.Unprotect "09052002" 'цифры - это пароль
    Next sh
    'очищаем записи
    For Each sh In ThisWorkbook.Sheets
ActiveWorkbook.RefreshAll
    Next sh
    'устонавливаем защиту
    For Each sh In Worksheets
    sh.Protect password:="09052002", DrawingObjects:=True, Contents:=True, Scenarios:=True
    Next sh

'Возвращаем обновление экрана
Application.ScreenUpdating = True

MsgBox "Связи обнавлены"
End Sub

[/vba]

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Дата: Среда, 15.08.2018, 13:38 | Сообщение № 13

Группа: Авторы

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

Сообщений: 1161

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

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

Excel 2010

Цитата sboy, 15.08.2018 в 10:08, в сообщении № 5 ()

это не спасет. Закрыл и переименовал

Можно ещё проверять имя при открытии...

Интуитивно понятный код - это когда интуитивно понятно, что это код.

Ответить

Дата: Среда, 15.08.2018, 13:39 | Сообщение № 14

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16675

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

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

2003; 2007; 2010; 2013 RUS

Цитата StoTisteg, 15.08.2018 в 13:38, в сообщении № 13 ()

Можно ещё проверять имя при открытии...

А как это?

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Дата: Среда, 15.08.2018, 13:40 | Сообщение № 15

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

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

Сообщений: 1002

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

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

Excel 2010

StoTisteg, да но при открытии переименнованного файла и его сохранении после занесением оператором информации он сохранит файл с нужным наименованием.
КОД БОМБА!!!
попробуйте пример приложенного файла от АЛЕКСАНДРА _Boroda_,

Кто бы ты ни был, мир в твоих руках

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Запрет на изменение наименования файла (Формулы/Formulas)

Страница 1 из 1
1

© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!