Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

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

 

= Мир MS Excel/Пароли на открытие сводной книги макрос - Мир MS Excel

Старая форма входа
  • Страница 1 из 2
  • 1
  • 2
  • »
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Пароли на открытие сводной книги макрос (Формулы/Formulas)
Пароли на открытие сводной книги макрос
Georg81 Дата: Понедельник, 26.01.2015, 19:00 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 44
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003, Excel 2010
Добрый вечер.

Есть пользовательские книги в которых первые листы СВОДНЫЕ по книге.

Есть КНИГА сводная в которой ссылки с пользовательских книг, вернее на каждом листе СВОДНОЙ КНИГИ ссылки на СВОДНЫЕ листы ПОЛЬЗОВАТЕЛЬСКИХ книг.

В примере я указал что уже сводная книга и сводные пользовательские листы . 1 - сводная, (2,3) это книги пользователей. Возможно ли сделать макрос который при запросе на обновление данных автоматически вносил эти пароли на открытие.

что-то наподобие

[vba]
Код
Workbooks.Open Filename:= "C:\2(2222).xls", Passowrd:= "123"

Workbooks.Open Filename:= "C:\3(3333).xls", Passowrd:= "123"
[/vba]

Макросы хорошо отрабатывают при открытии каждого файла отдельно , а можно ли это как-то сделать в одной сводной книге.

(вообще книг таких будет около 40 и у каждой книги пароль, поэтому чтоб не вводить пароль по очереди очень нужен макрос где эти пароли будут прописаны )

1(1111) - сводный, 2(2222) -пользователь, 3(3333) пользователь
К сообщению приложен файл: 1-1111-.xls (28.0 Kb) · 2-2222-.xls (38.5 Kb)


Сообщение отредактировал Georg81 - Понедельник, 26.01.2015, 19:13
 
Ответить
СообщениеДобрый вечер.

Есть пользовательские книги в которых первые листы СВОДНЫЕ по книге.

Есть КНИГА сводная в которой ссылки с пользовательских книг, вернее на каждом листе СВОДНОЙ КНИГИ ссылки на СВОДНЫЕ листы ПОЛЬЗОВАТЕЛЬСКИХ книг.

В примере я указал что уже сводная книга и сводные пользовательские листы . 1 - сводная, (2,3) это книги пользователей. Возможно ли сделать макрос который при запросе на обновление данных автоматически вносил эти пароли на открытие.

что-то наподобие

[vba]
Код
Workbooks.Open Filename:= "C:\2(2222).xls", Passowrd:= "123"

Workbooks.Open Filename:= "C:\3(3333).xls", Passowrd:= "123"
[/vba]

Макросы хорошо отрабатывают при открытии каждого файла отдельно , а можно ли это как-то сделать в одной сводной книге.

(вообще книг таких будет около 40 и у каждой книги пароль, поэтому чтоб не вводить пароль по очереди очень нужен макрос где эти пароли будут прописаны )

1(1111) - сводный, 2(2222) -пользователь, 3(3333) пользователь
Автор - Georg81
Дата добавления - 26.01.2015 в 19:00
Georg81 Дата: Понедельник, 26.01.2015, 19:04 | Сообщение № 2
Группа: Пользователи
Ранг: Новичок
Сообщений: 44
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003, Excel 2010
Третий файл
К сообщению приложен файл: 3-3333-.xls (38.5 Kb)
 
Ответить
СообщениеТретий файл
Автор - Georg81
Дата добавления - 26.01.2015 в 19:04
Georg81 Дата: Среда, 28.01.2015, 11:27 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 44
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003, Excel 2010
Поднимаю тему
 
Ответить
СообщениеПоднимаю тему
Автор - Georg81
Дата добавления - 28.01.2015 в 11:27
Georg81 Дата: Суббота, 07.02.2015, 17:07 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 44
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003, Excel 2010
Up
 
Ответить
СообщениеUp
Автор - Georg81
Дата добавления - 07.02.2015 в 17:07
Manyasha Дата: Воскресенье, 08.02.2015, 09:42 | Сообщение № 5
Группа: Модераторы
Ранг: Старожил
Сообщений: 2198
Репутация: 898 ±
Замечаний: 0% ±

Excel 2010, 2016
Снять пароль на открытие книги можно так:
[vba]
Код
Workbooks.Open Filename:="D:\...\2-2222-.xls", Password:=123
[/vba]
А вот пароль на запись у меня не получилось побороть :(
Предлагаю альтернативное решение: убрать пароль на запись с книг пользователей и поставить проверку в эти книги при открытии:
[vba]
Код
Private Sub Workbook_Open()
If Application.UserName <> "Имя пользователя" Then
     ActiveWorkbook.ChangeFileAccess xlReadOnly
End If
End Sub
[/vba]

Я проверяю имя пользователя, можно проверить что-нибудь еще)

Примеры в файлах.
К сообщению приложен файл: 9985509.xls (33.0 Kb) · 2775136.xls (41.0 Kb)

ЯД: 410013299366744 WM: R193491431804
 
Ответить
СообщениеСнять пароль на открытие книги можно так:
[vba]
Код
Workbooks.Open Filename:="D:\...\2-2222-.xls", Password:=123
[/vba]
А вот пароль на запись у меня не получилось побороть :(
Предлагаю альтернативное решение: убрать пароль на запись с книг пользователей и поставить проверку в эти книги при открытии:
[vba]
Код
Private Sub Workbook_Open()
If Application.UserName <> "Имя пользователя" Then
     ActiveWorkbook.ChangeFileAccess xlReadOnly
End If
End Sub
[/vba]

Я проверяю имя пользователя, можно проверить что-нибудь еще)

Примеры в файлах.
Автор - Manyasha
Дата добавления - 08.02.2015 в 09:42
Georg81 Дата: Воскресенье, 08.02.2015, 10:14 | Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 44
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003, Excel 2010
Manyasha, спасибо за ответ, буду пробывать
 
Ответить
СообщениеManyasha, спасибо за ответ, буду пробывать
Автор - Georg81
Дата добавления - 08.02.2015 в 10:14
Georg81 Дата: Воскресенье, 08.02.2015, 10:22 | Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 44
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003, Excel 2010
Цитата Manyasha, 08.02.2015 в 09:42, в сообщении № 5
Снять пароль на открытие книги можно так:
Workbooks.Open Filename:="D:\...\2-2222-.xls", Password:=123

Чет не получилось, при открытии все равно при обновлении данных требует пароль. \
Оставил только один пароль.
 
Ответить
Сообщение
Цитата Manyasha, 08.02.2015 в 09:42, в сообщении № 5
Снять пароль на открытие книги можно так:
Workbooks.Open Filename:="D:\...\2-2222-.xls", Password:=123

Чет не получилось, при открытии все равно при обновлении данных требует пароль. \
Оставил только один пароль.
Автор - Georg81
Дата добавления - 08.02.2015 в 10:22
Georg81 Дата: Воскресенье, 08.02.2015, 10:25 | Сообщение № 8
Группа: Пользователи
Ранг: Новичок
Сообщений: 44
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003, Excel 2010
Не , ты не понял, дело в том что нужно чтоб не файл открывался...а просто обновлялись данные с той книги которая закрыта паролем....то есть данные обновляются и пароли автоматически вводятся через макрос, во как надо...но не пойму возможно ли это.
 
Ответить
СообщениеНе , ты не понял, дело в том что нужно чтоб не файл открывался...а просто обновлялись данные с той книги которая закрыта паролем....то есть данные обновляются и пароли автоматически вводятся через макрос, во как надо...но не пойму возможно ли это.
Автор - Georg81
Дата добавления - 08.02.2015 в 10:25
Manyasha Дата: Воскресенье, 08.02.2015, 11:24 | Сообщение № 9
Группа: Модераторы
Ранг: Старожил
Сообщений: 2198
Репутация: 898 ±
Замечаний: 0% ±

Excel 2010, 2016
Ну совсем без открытия книги у меня не получилось:
следующий код в модуль листа сводной книги, и кстати (кто ищет, тот всегда найдет :) ), вернула пароль на запись в книге пользователя, макрос в сводной его снимет.
[vba]
Код
Private Sub Workbook_Open()
       Application.ScreenUpdating = False
       Set wb = ThisWorkbook
       Workbooks.Open Filename:= _
       "D:\...\2222.xls", Password:="123", WriteResPassword:="123"
       Set wb1 = ActiveWorkbook
       wb.Activate
       ActiveWorkbook.RefreshAll
       wb1.Close
       Application.ScreenUpdating = True
End Sub
[/vba]

ЯД: 410013299366744 WM: R193491431804

Сообщение отредактировал Manyasha - Воскресенье, 08.02.2015, 11:26
 
Ответить
СообщениеНу совсем без открытия книги у меня не получилось:
следующий код в модуль листа сводной книги, и кстати (кто ищет, тот всегда найдет :) ), вернула пароль на запись в книге пользователя, макрос в сводной его снимет.
[vba]
Код
Private Sub Workbook_Open()
       Application.ScreenUpdating = False
       Set wb = ThisWorkbook
       Workbooks.Open Filename:= _
       "D:\...\2222.xls", Password:="123", WriteResPassword:="123"
       Set wb1 = ActiveWorkbook
       wb.Activate
       ActiveWorkbook.RefreshAll
       wb1.Close
       Application.ScreenUpdating = True
End Sub
[/vba]
Автор - Manyasha
Дата добавления - 08.02.2015 в 11:24
Manyasha Дата: Воскресенье, 08.02.2015, 11:27 | Сообщение № 10
Группа: Модераторы
Ранг: Старожил
Сообщений: 2198
Репутация: 898 ±
Замечаний: 0% ±

Excel 2010, 2016
файлики забыла приложить:
К сообщению приложен файл: 1111.xls (36.5 Kb) · 2222.xls (40.0 Kb)

ЯД: 410013299366744 WM: R193491431804
 
Ответить
Сообщениефайлики забыла приложить:
Автор - Manyasha
Дата добавления - 08.02.2015 в 11:27
Georg81 Дата: Воскресенье, 08.02.2015, 12:16 | Сообщение № 11
Группа: Пользователи
Ранг: Новичок
Сообщений: 44
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003, Excel 2010
Manyasha, Спасибо) буду пробовать...
 
Ответить
СообщениеManyasha, Спасибо) буду пробовать...
Автор - Georg81
Дата добавления - 08.02.2015 в 12:16
Georg81 Дата: Воскресенье, 08.02.2015, 12:35 | Сообщение № 12
Группа: Пользователи
Ранг: Новичок
Сообщений: 44
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003, Excel 2010
Manyasha, я так понимаю нужно отключить обновление ? чтоб не отображалось введение паролей? [
 
Ответить
СообщениеManyasha, я так понимаю нужно отключить обновление ? чтоб не отображалось введение паролей? [
Автор - Georg81
Дата добавления - 08.02.2015 в 12:35
Manyasha Дата: Воскресенье, 08.02.2015, 12:45 | Сообщение № 13
Группа: Модераторы
Ранг: Старожил
Сообщений: 2198
Репутация: 898 ±
Замечаний: 0% ±

Excel 2010, 2016
Да, забыла об этом упомянуть, в настройках экселя файл-параметры Excel-Центр управления безопасностью-параметры центра упр-я без-тью-вкладка внешнее содержимое. Я поставила "запрос на подключение к данным" и "запрос на обновление связей".

Или Вы про строчку
[vba]
Код
Application.ScreenUpdating = False
[/vba]

Если ее не написать, книга будет дергаться при каждом обновлении данных, а если книг много, то это будет очень заметно, а эта строчка отключает обновление экрана Экселя.

ЯД: 410013299366744 WM: R193491431804

Сообщение отредактировал Manyasha - Воскресенье, 08.02.2015, 12:52
 
Ответить
СообщениеДа, забыла об этом упомянуть, в настройках экселя файл-параметры Excel-Центр управления безопасностью-параметры центра упр-я без-тью-вкладка внешнее содержимое. Я поставила "запрос на подключение к данным" и "запрос на обновление связей".

Или Вы про строчку
[vba]
Код
Application.ScreenUpdating = False
[/vba]

Если ее не написать, книга будет дергаться при каждом обновлении данных, а если книг много, то это будет очень заметно, а эта строчка отключает обновление экрана Экселя.
Автор - Manyasha
Дата добавления - 08.02.2015 в 12:45
Georg81 Дата: Воскресенье, 08.02.2015, 13:05 | Сообщение № 14
Группа: Пользователи
Ранг: Новичок
Сообщений: 44
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003, Excel 2010
не я про вот это, когда нажимаю обновить вылетает окно где требуется ввести пароль
К сообщению приложен файл: 9260600.jpg (17.7 Kb)


Сообщение отредактировал Georg81 - Воскресенье, 08.02.2015, 13:06
 
Ответить
Сообщениене я про вот это, когда нажимаю обновить вылетает окно где требуется ввести пароль
Автор - Georg81
Дата добавления - 08.02.2015 в 13:05
Manyasha Дата: Воскресенье, 08.02.2015, 13:17 | Сообщение № 15
Группа: Модераторы
Ранг: Старожил
Сообщений: 2198
Репутация: 898 ±
Замечаний: 0% ±

Excel 2010, 2016
Тогда в настройках Эксель
Цитата Manyasha, 08.02.2015 в 12:45, в сообщении № 13
файл-параметры Excel-Центр управления безопасностью-параметры центра упр-я без-тью-вкладка внешнее содержимое

отключите обновление связей.
А если, Вам нужно запускать обновление не только при открытии, но и в процессе работы с книгой, можно вынести макрос в отдельный модуль и повесить его на кнопочку, например, или так из разработчика вызывать.

ЯД: 410013299366744 WM: R193491431804
 
Ответить
СообщениеТогда в настройках Эксель
Цитата Manyasha, 08.02.2015 в 12:45, в сообщении № 13
файл-параметры Excel-Центр управления безопасностью-параметры центра упр-я без-тью-вкладка внешнее содержимое

отключите обновление связей.
А если, Вам нужно запускать обновление не только при открытии, но и в процессе работы с книгой, можно вынести макрос в отдельный модуль и повесить его на кнопочку, например, или так из разработчика вызывать.
Автор - Manyasha
Дата добавления - 08.02.2015 в 13:17
Georg81 Дата: Воскресенье, 08.02.2015, 13:24 | Сообщение № 16
Группа: Пользователи
Ранг: Новичок
Сообщений: 44
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003, Excel 2010
да уже все отключил все равно вылетает это сообщение...бред
 
Ответить
Сообщениеда уже все отключил все равно вылетает это сообщение...бред
Автор - Georg81
Дата добавления - 08.02.2015 в 13:24
Georg81 Дата: Воскресенье, 08.02.2015, 13:28 | Сообщение № 17
Группа: Пользователи
Ранг: Новичок
Сообщений: 44
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003, Excel 2010
а если каждый лист ссылается на другую книгу, получается каждая книга будет открываться полностью и сразу закрываться я так понимаю?
 
Ответить
Сообщениеа если каждый лист ссылается на другую книгу, получается каждая книга будет открываться полностью и сразу закрываться я так понимаю?
Автор - Georg81
Дата добавления - 08.02.2015 в 13:28
Georg81 Дата: Воскресенье, 08.02.2015, 13:44 | Сообщение № 18
Группа: Пользователи
Ранг: Новичок
Сообщений: 44
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003, Excel 2010
Manyasha, нашел...в настройках "Запрашивать об обновлении автоматических связей"
 
Ответить
СообщениеManyasha, нашел...в настройках "Запрашивать об обновлении автоматических связей"
Автор - Georg81
Дата добавления - 08.02.2015 в 13:44
Manyasha Дата: Воскресенье, 08.02.2015, 13:48 | Сообщение № 19
Группа: Модераторы
Ранг: Старожил
Сообщений: 2198
Репутация: 898 ±
Замечаний: 0% ±

Excel 2010, 2016
Цитата Georg81, 08.02.2015 в 13:28, в сообщении № 17
каждая книга будет открываться полностью и сразу закрываться

Да, только в коде Вам нужно кусок
[vba]
Код
    Workbooks.Open Filename:= _
     "D:\...\2222.xls", Password:="123", WriteResPassword:="123"
     Set wb1 = ActiveWorkbook
     wb.Activate
     ActiveWorkbook.RefreshAll
     wb1.Close
[/vba]
для каждой книги прописать, или в массив загнать

ЯД: 410013299366744 WM: R193491431804
 
Ответить
Сообщение
Цитата Georg81, 08.02.2015 в 13:28, в сообщении № 17
каждая книга будет открываться полностью и сразу закрываться

Да, только в коде Вам нужно кусок
[vba]
Код
    Workbooks.Open Filename:= _
     "D:\...\2222.xls", Password:="123", WriteResPassword:="123"
     Set wb1 = ActiveWorkbook
     wb.Activate
     ActiveWorkbook.RefreshAll
     wb1.Close
[/vba]
для каждой книги прописать, или в массив загнать
Автор - Manyasha
Дата добавления - 08.02.2015 в 13:48
Georg81 Дата: Воскресенье, 08.02.2015, 13:50 | Сообщение № 20
Группа: Пользователи
Ранг: Новичок
Сообщений: 44
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003, Excel 2010
Manyasha, я извиняюсь)) надоел уже , но дело в другом , все я значит отключил, оставил чтоб макросы работали , в тело скрипт вписал, но он не отрабатывает при открытии.... при открытии сразу просит ввести пароль ....
 
Ответить
СообщениеManyasha, я извиняюсь)) надоел уже , но дело в другом , все я значит отключил, оставил чтоб макросы работали , в тело скрипт вписал, но он не отрабатывает при открытии.... при открытии сразу просит ввести пароль ....
Автор - Georg81
Дата добавления - 08.02.2015 в 13:50
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Пароли на открытие сводной книги макрос (Формулы/Formulas)
  • Страница 1 из 2
  • 1
  • 2
  • »
Поиск:

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