Итак, эмоции мои улеглись, зарегистрировался, продолжу о проблеме.
Pelena, увы, файл не свернулся (прилагаю скрин картинки, которую я вижу)
Итак, эмоции мои улеглись, зарегистрировался, продолжу о проблеме.
Pelena, увы, файл не свернулся (прилагаю скрин картинки, которую я вижу) Cheezer
Итак, эмоции мои улеглись, зарегистрировался, продолжу о проблеме.
Pelena, увы, файл не свернулся (прилагаю скрин картинки, которую я вижу) Автор — Cheezer
Дата добавления — 29.03.2013 в 11:33
Источник
Excel файл уже открыт сообщение
200?’200px’:»+(this.scrollHeight+5)+’px’);»> Dim strFileName As String
Dim strFile As String
‘ Имя и путь файла
strFile = «» & Cells(r3, 25) & «.doc»
strFileName = «E:ДОГОВОР» & Cells(r3, 23) & «» & Cells(r3, 25) & «.doc»
‘ Проверяю (наверное правильно)
If Dir(strFileName) <> «» Then ‘ найден
Dim objWrdApp As Object, objWrdDoc As Object
‘ пробовал так
If objWrdApp Is Nothing Then
Set objWrdApp = CreateObject(«Word.application»)
End If
objWrdApp.Visible = True
‘ и так
‘If objWrdDoc Is Nothing Then
strFileName = «E:ДОГОВОР» & Cells(r3, 23) & «» & Cells(r3, 25) & «.doc»
For Each d In objWrdApp.Windows’ Внес изменения
If d.Document.FullName = strFileName Then
Set objWrdDoc = d.Document: GoTo Дальше
End If
Next
Set objWrdDoc = objWrdApp.Documents.Open(«E:ДОГОВОР» & Cells(r3, 23) & «» & Cells(r3, 25) & «.doc») ‘откр. документ Word
Дальше:
‘End If
Set objWrdDoc = Nothing: Set objWrdApp = Nothing
Забыл,что работа не в ворде идет
For Each d In objWrdApp. Windows’ Внес изменения
200?’200px’:»+(this.scrollHeight+5)+’px’);»> Dim strFileName As String
Dim strFile As String
‘ Имя и путь файла
strFile = «» & Cells(r3, 25) & «.doc»
strFileName = «E:ДОГОВОР» & Cells(r3, 23) & «» & Cells(r3, 25) & «.doc»
‘ Проверяю (наверное правильно)
If Dir(strFileName) <> «» Then ‘ найден
Dim objWrdApp As Object, objWrdDoc As Object
‘ пробовал так
If objWrdApp Is Nothing Then
Set objWrdApp = CreateObject(«Word.application»)
End If
objWrdApp.Visible = True
‘ и так
‘If objWrdDoc Is Nothing Then
strFileName = «E:ДОГОВОР» & Cells(r3, 23) & «» & Cells(r3, 25) & «.doc»
For Each d In objWrdApp.Windows’ Внес изменения
If d.Document.FullName = strFileName Then
Set objWrdDoc = d.Document: GoTo Дальше
End If
Next
Set objWrdDoc = objWrdApp.Documents.Open(«E:ДОГОВОР» & Cells(r3, 23) & «» & Cells(r3, 25) & «.doc») ‘откр. документ Word
Дальше:
‘End If
Set objWrdDoc = Nothing: Set objWrdApp = Nothing
Забыл,что работа не в ворде идет
For Each d In objWrdApp. Windows’ Внес изменения doober
200?’200px’:»+(this.scrollHeight+5)+’px’);»> Dim strFileName As String
Dim strFile As String
‘ Имя и путь файла
strFile = «» & Cells(r3, 25) & «.doc»
strFileName = «E:ДОГОВОР» & Cells(r3, 23) & «» & Cells(r3, 25) & «.doc»
‘ Проверяю (наверное правильно)
If Dir(strFileName) <> «» Then ‘ найден
Dim objWrdApp As Object, objWrdDoc As Object
‘ пробовал так
If objWrdApp Is Nothing Then
Set objWrdApp = CreateObject(«Word.application»)
End If
objWrdApp.Visible = True
‘ и так
‘If objWrdDoc Is Nothing Then
strFileName = «E:ДОГОВОР» & Cells(r3, 23) & «» & Cells(r3, 25) & «.doc»
For Each d In objWrdApp.Windows’ Внес изменения
If d.Document.FullName = strFileName Then
Set objWrdDoc = d.Document: GoTo Дальше
End If
Next
Set objWrdDoc = objWrdApp.Documents.Open(«E:ДОГОВОР» & Cells(r3, 23) & «» & Cells(r3, 25) & «.doc») ‘откр. документ Word
Дальше:
‘End If
Set objWrdDoc = Nothing: Set objWrdApp = Nothing
Забыл,что работа не в ворде идет
For Each d In objWrdApp. Windows’ Внес изменения Автор — doober
Дата добавления — 02.04.2014 в 02:10
Источник
Устранение неполадок, связанных с открытием пустого экрана, если дважды щелкнуть значок файла или имя файла в Excel
Симптомы
Если дважды щелкнуть значок или имя файла для книги Microsoft Excel, Excel запускается, а затем отображает пустой экран вместо файла, который вы ожидаете увидеть.
Решение
Точно следуйте всем указаниям из этого раздела. Внесение неправильных изменений в реестр может привести к возникновению серьезных проблем. Прежде чем приступить к изменениям, создайте резервную копию реестра для восстановления на случай возникновения проблем.
Для решения этой проблемы воспользуйтесь приведенными ниже способами в указанном порядке.
Вариант 1. Проверка скрытых листов
Лист Excel мог быть случайно сохранен как скрытый документ. Чтобы проверить это, выполните следующие действия.
- Перейдите на вкладку Вид.
- Выберите Показать.
- Выберите книгу из списка.
- Нажмите OK.
Вариант 2. Минимизация и максимизация окна
При минимизации и максимизации окна иногда может обновляться страница Excel и появляться скрытые данные.
- В верхнем правом углу электронной таблицы Excel выберите кнопку свертывания окна.
- На панели задач нажмите правой кнопкой мыши Excel и выберите электронную таблицу. (Или дважды щелкните значок Excel.)
После развертывания листа на весь экран могут появиться ваши данные.
Вариант 3. Отключите аппаратное ускорение
Чтобы решить эту проблему, отключите аппаратное ускорение до тех пор, пока производитель видеоадаптера не выпустит исправление. Регулярно проверяйте обновления для драйвера видеоадаптера.
Порядок отключения аппаратного ускорения:
Запустите любое приложение Office 2013, Office 2016, Office 2019 или Microsoft 365.
На вкладке Файл выберите пункт Параметры.
В диалоговом окне Параметры выберите категорию Дополнительно.
В списке доступных параметров, установите флажок в поле Выключить аппаратное ускорение обработки изображений.
Следующий снимок экрана показывает этот параметр в Excel.
Выберите кнопку OK.
Для получения дополнительной информации касательно аппаратного ускорения см. Проблемы с отображением в клиентских приложениях Office 2013.
Вариант 4. Игнорировать DDE
Эта проблема может возникнуть, если в параметрах Excel установлен флажок Игнорировать другие приложения, использующие динамический обмен данными (DDE).
Если дважды щелкнуть книгу Excel в проводнике Windows Explorer, сообщение динамического обмена данными (DDE) отправляется в Excel. Это сообщение указывает Excel открыть книгу, которую вы щелкнули дважды.
Если вы выберете опцию «Игнорировать», Excel игнорирует DDE-сообщения, которые отправляются ему другими программами. Таким образом, сообщение DDE, отправленное в Excel с помощью Windows Explorer, игнорируется, и Excel не открывает книгу, которую вы щелкнули дважды.
Чтобы изменить этот параметр, выполните приведенные ниже действия.
Этот шаг можно пропустить для Excel 2019, Excel LTSC 2021 и Excel O365
- В верхнем левом углу окна Excel выберите Файл>Параметры.
- На левой стороне окна Параметры выберите Расширенный.
- В окне Дополнительно прокрутите вниз к секции Общие.
- Снимите флажок Игнорировать другие приложения, использующие динамический обмен данными (DDE), затем нажмите кнопку ОК в нижней части окна.
Для получения дополнительной информации о том, как отключить DDE, см. «Произошла ошибка при отправке команд в программу» в Excel.
Вариант 5. Сброс сопоставления файлов
Чтобы проверить, правильно ли работают сопоставления файлов в системе, сбросите сопоставления файлов Excel на настройки по умолчанию. Для этого выполните описанные ниже действия в зависимости от установленной операционной системы.
Windows 10 и Windows 8.1
- Найдите файл, который открывается неправильно, и скопируйте его на рабочий стол.
- Щелкните правой кнопкой мыши файл и выберите пункт Свойства.
- На вкладке Общие рядом с Типом файла тип файла будет указан в скобках. Например, (.docx), (.pdf) или (.csv).
Команда Открыть с помощью показывает, с каким приложением в данный момент сопоставлен файл.
Чтобы открыть этот тип файла в другом приложении:
- Выберите Изменить.
- Выберите Другие приложения.
- Выберите желаемое приложение, затем установите флажок Всегда использовать это приложение.
- Выберите кнопку OK.
Windows 8
- На начальном экране введите Панель управления.
- Выберите или нажмите Панель управления.
- Выберите Программы по умолчанию, затем Настройка программ по умолчанию.
- Выберите Excel, затем Сделать программой по умолчанию.
- На экране Сопоставление программ выберите Выбрать все, затем выберите Сохранить.
Windows 7
- Выберите Пуск, затем Панель управления.
- Выберите Программы по умолчанию.
- Выберите Сопоставление типов файлов или протоколов с конкретными программами.
- Выберите Лист Microsoft Excel, затем выберите «Изменить программу».
- В разделе Рекомендуемые программы выберите Microsoft Excel.
- Если Excel не отображается в этом списке, выберите Обзор, найдите папку установки Excel, выберите Excel.exe, затем выберите Excel.
Вариант 6. Восстановление виртуализации взаимодействия с пользователем (UE-V)
Если вы используете обновление виртуализации взаимодействия с пользователем (UE-V), установите исправление 2927019. Для этого см. Пакет исправления 1 для виртуализации взаимодействия с пользователем Microsoft 2.0.
Если вы не уверены, используете ли вы UE-V, просмотрите список программ в Программы и компоненты в Панели управления. Запись для «Центра параметров компании» указывает на то, что вы используете UE-V.
Вариант 7. Восстановление Office
Возможно, требуется восстановить программы Office. Для этого следуйте инструкциям для вашего типа установки и операционной системы.
Для приложений Microsoft 365, Office LTSC 2021 или Office 2019, установленных по технологии «нажми и работай»
Windows 10
- На экране Пуск введите Параметры.
- Выберите или нажмите Параметры.
- В окне Параметры выберите или нажмите Приложения.
- В окне & «Функции приложений » прокрутите вниз до программы Office и выберите или коснитесь ее.
- Выберите или нажмите Изменить.
- В окне Как вы хотите восстановить свои программы Office выберите или нажмите переключатель Восстановление по сети, затем выберите или нажмите кнопку Восстановление.
Windows 8
- На начальном экране введите Панель управления.
- Выберите или нажмите Панель управления.
- В разделе Программы выберите или нажмите Удаление программы.
- Выберите или нажмите Microsoft 365, затем выберите или нажмите Изменить.
- Выберите или нажмите Восстановление по сети, затем выберите или нажмите Восстановить. После завершения восстановления может потребоваться перезагрузить компьютер.
Windows 7
Выберите Пуск, затем Панель управления.
дважды щелкните Программы и компоненты.
Выберите Microsoft 365, затем выберите Изменить.
Выберите Восстановление по сети, затем Восстановить.
После завершения восстановления может потребоваться перезагрузить компьютер.
Для установки Office 2013, Office 2010 или Office 2007
Для восстановления Office 2013, Office 2010 или Office 2007, следуйте шагам в следующей теме веб-сайта Office:
Вариант 8. Выключите надстройки
Надстройки Excel и COM также могут вызывать эту проблему. Эти два вида надстроек расположены в разных папках. Для тестирования отключите и изолируйте конфликт, отключив каждую надстройку по одному. Для этого выполните следующие действия:
- В меню Файл выберите пункт Параметры, затем Надстройки.
- В списке Управление в нижней части экрана выберите элемент Надстройки COM, затем выберите Перейти.
- Очистите одну из надстроек в списке, затем выберите OK.
- Перезапустите Excel, дважды щелкнув значок или имя файла для книги, которую вы пытаетесь открыть.
- Если проблема сохраняется, повторите шаги 1-4, за исключением выбора другой надстройки в шаге 3.
- Если проблема сохраняется после того, как вы очистите все надстройки COM, повторите шаги 1-4, за исключением выбора Надстройки Excel в шаге 2. Затем попробуйте каждую из надстроек Excel по одной на шаге 3.
Если Excel загружает файл, надстройка, которую вы выключили последней, вызывает проблему. В этом случае мы рекомендуем вам посетить веб-сайт производителя надстройки, чтобы узнать, доступна ли обновленная версия надстройки. Если новая версия надстройки недоступна или вам не нужно использовать надстройку, вы можете оставить ее выключенной.
Если Excel не открывает файл после выключения всех надстроек, проблема имеет другую причину.
Если ни один из вышеперечисленных вариантов не работает, убедитесь, что Excel не находится в режиме совместимости.
Если вы все еще испытываете эту проблему после того, как попробуете все способы, обратитесь в службу поддержки Майкрософт для получения дополнительной помощи по устранению неполадок.
Источник
Adblock
detector
Помогаю со студенческими работами здесь
Как при открытии Excel проверить нет ли уже открытых окон с Excel?
Посоветуйте пожалуйста, как при открытии Excel проверить нет ли уже открытых окон с Excel и если…
При открытии файла Excel выдает сообщение ‘Не могу прочитать файл’.
Добрый день!
При открытии файла Excel выдает сообщение ‘Не могу прочитать файл’.
Что-нибудь можно…
Файл уже открыт
Dim FI As IO.FileInfo = New IO.FileInfo("D:Удобный календарь" & DateAndTime.Day(Now) & Month(Now)…
Открыт ли файл другим пользователем
Надо бы узнать до workbooks.open ("бла-бла-бла.xls"), открыт ли он другим пользователем?
По поиску…
Файл уже открыт 107
Добрый день.
Я — студент.
Выполняю лабу по ООП. Никак не могу получить ошибку 107.
Задание…
При создании нового файла hosts без расширение, компьютер сообщает, что файл с таким именем уже существует
подскажите, пожалуйста, а если при создании нового файла hosts без расширение, компьютер сообщает,…
Искать еще темы с ответами
Или воспользуйтесь поиском по форуму:
При открытии файла я сам макросом обрабатываю ситуацию, когда файл уже используется. Мне не нужно уведомление Excel «Файл уже используется». |
|
New Пользователь Сообщений: 4581 |
#2 21.09.2020 11:33:41 Может так поможет
Изменено: New — 21.09.2020 11:34:33 |
||
Дмитрий(The_Prist) Щербаков Пользователь Сообщений: 14181 Профессиональная разработка приложений для MS Office |
#3 21.09.2020 11:45:20
как именно Вы это делаете? Файл на сетевом диске? Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы… |
||
sokol92 Пользователь Сообщений: 4445 |
Открывайте файл макросом. Событие Workbook.Open возникает после того, как файл открыт. |
Кирилл Найдёнов Пользователь Сообщений: 4 |
#5 23.09.2020 15:13:33
Да, файл на сетевом диске.
Тогда какое событие можно взять, что бы оно возникало до появления этой надписи? Смысл такой: разные пользователи могут открыть файл (не макросом, просто из Проводника) — если файл занят, то нужно видеть кто именно его взял. Стандартное оповешение Excel не подхидит, т.к. часто пишет «другой пользователь». Я при открытии для редактирования записываю в текстовый файл информацию кто открыл и когда (благо при открытии имя пользователя Excel определяет правильно). |
||||
Дмитрий(The_Prist) Щербаков Пользователь Сообщений: 14181 Профессиональная разработка приложений для MS Office |
#6 23.09.2020 16:02:44
это сложно. Даже сам Excel часто не может определить этого.
если можете определить, что файл уже кто-то открыл — смысла в этой кнопке нет, можно открывать в зависимости от этого знания. Если уже открыт — открывать на чтение. Если нет — на запись. Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы… |
||||
sokol92 Пользователь Сообщений: 4445 |
#7 23.09.2020 19:56:13
Перечень событий объекта Application приведен здесь . События типа «WorkbookBeforeOpen» в нем нет. Владимир |
||
Ігор Гончаренко Пользователь Сообщений: 13746 |
#8 23.09.2020 20:04:52
закрыть уже используемый файл перед открытием нового Программисты — это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете! |
||
Кирилл Найдёнов Пользователь Сообщений: 4 |
#9 28.09.2020 11:05:19
Я обрабатываю в Workbook.Open: если файл открывается для редактирования — я вывожу форму где есть выбор «Открыть для редактирования / Для чтения». |
||
Последнее обновление Ноя 12, 2021
- Документы Excel с атрибутами только для чтения не позволяют пользователям редактировать документ.
- Вот как вы можете решить, что книга была открыта в сообщении в режиме только для чтения в Office 365.
- Хотите узнать больше? Сделайте это, узнав больше о Microsft SharePoint.
- Заинтересованы в других статьях по Microsoft Office? Посетите наш специализированный центр Microsoft Office.
Чтобы исправить различные проблемы с ПК, мы рекомендуем Restoro PC Repair Tool: это программное обеспечение исправит распространенные компьютерные ошибки, защитит вас от потери файлов, вредоносных программ, сбоев оборудования и оптимизирует ваш компьютер для максимальной производительности. Решите проблемы с ПК и удалите вирусы прямо сейчас, выполнив 3 простых шага:
- Загрузите Restoro PC Repair Tool, который поставляется с запатентованными технологиями (патент доступен здесь ).
- Нажмите Начать сканирование, чтобы найти проблемы Windows, которые могут вызывать проблемы с ПК.
- Нажмите «Восстановить все», чтобы исправить проблемы, влияющие на безопасность и производительность вашего компьютера.
- В этом месяце Restoro скачали 651 404 читателя.
Когда вы пытаетесь отредактировать книгу, к которой вам предоставили доступ, вы можете столкнуться с ошибкой Эта книга была открыта в режиме только для чтения. Это не позволяет пользователю редактировать книгу в Excel Online и настольном приложении.
Эта ошибка может возникать по нескольким причинам, включая сохранение исходного документа в настольном приложении на компьютере создателя. Его также можно запустить, если ваша компания переходит на SharePoint.
Если вас также беспокоит эта ошибка, вот несколько шагов по устранению неполадок, которые помогут вам устранить ошибку Эта книга была открыта в режиме только для чтения при редактировании файлов Excel.
Как запретить открытию Excel в режиме только для чтения?
1 Отключить режим только для чтения
- Если вы можете загрузить эти книги на свой локальный компьютер, загрузите копию.
- Щелкните загруженную копию правой кнопкой мыши и выберите «Свойства».
- Проверьте, отмечен ли атрибут только для чтения. Снимите флажок с атрибута « Только для чтения» и нажмите «ОК», чтобы сохранить изменения.
- Затем откройте вкладку «Безопасность ». Убедитесь, что у вас есть полный контроль над этим файлом.
- Закройте окно свойств и откройте книгу в приложении Excel, чтобы узнать, устранена ли ошибка.
Если в исходном документе включен атрибут только для чтения, это не позволит пользователю редактировать файл и отобразит сообщение об ошибке. Обязательно снимите флажок, чтобы увидеть, устраняет ли это ошибку.
2 Отключить защищенный просмотр
- Запустите приложение Excel.
- Щелкните Файл и выберите Параметры.
- Щелкните Центр управления безопасностью и выберите Параметры центра управления безопасностью.
- Перейти к защищенному просмотру.
- Затем снимите все три поля «Защитить просмотр» на правой панели.
- Закройте окно настроек и перезапустите приложение Excel.
- Откройте книгу и проверьте, устранена ли ошибка.
Защищенный просмотр – это режим только для чтения, в котором большинство функций редактирования отключены для защиты пользователей от вредоносных файлов. Однако это может вызвать проблемы и с другими документами. Не забудьте включить защищенный просмотр после редактирования книги.
3 Закройте книгу на локальном компьютере
Последнее приложение Excel поставляется с функцией совместного редактирования. Однако, если вы не используете последнюю версию Office 365, и если владелец файла держит файл открытым в своем классическом приложении Excel, вы не сможете редактировать этот файл.
Убедитесь, что файл не открыт на рабочем столе Excel, а затем попробуйте отредактировать файл в Excel Online. Попробуйте отредактировать другие файлы Office 365 и посмотрите, сможете ли вы редактировать их в Office Online.
Как изменить документ SharePoint с режима только для чтения?
- Щелкните правой кнопкой мыши документ SharePoint и выберите «Свойства».
- Откройте вкладку Общие.
- Снимите флажок «Только для чтения ».
- Нажмите «Применить», а затем «ОК», чтобы сохранить изменения.
После внесения изменений откройте документ SharePoint и проверьте, разрешено ли сообщение только для чтения.
Как отключить только чтение в OneDrive?
- Откройте проводник.
- Щелкните правой кнопкой мыши OneDrive и выберите «Свойства».
- Откройте вкладку Общие.
- В разделе «Атрибуты» снимите флажок «Только для чтения» .
- Щелкните ОК, чтобы сохранить изменения. Если вы видите запрос, спрашивающий, хотите ли вы применить изменения ко всем папкам, подпапкам и файлам, нажмите OK.
Вот и все. Это должно решить, что классическое приложение OneDrive изменит атрибут ваших документов на проблему только для чтения.
Эта книга была открыта в режиме только для чтения. Сообщение обычно появляется, если владелец файла установил атрибут документа только для чтения.
Вы можете решить проблему, отключив атрибут только для чтения. В противном случае попробуйте временно отключить защищенный просмотр, чтобы исправить ошибку.
Источник записи: windowsreport.com