Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » powerwer
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1 2 След.
Защита Excel с AD (Active Directory)
 
#
05.12.2024 20:05:18
Цитата
написал:
Именно в такой трактовке - написать что-то что настраивает права доступа на чтение только для указанных пользователей. Тогда файл действительно не откроется. Иные реализации ущербны.
А как реализовать ее если можно ?  
 
Перейти    
Защита Excel с AD (Active Directory)
 
#
05.12.2024 18:38:28
Добрый день.
Возник вопрос:
Есть excel файл и автор при сохранении указал кому то из учетной записи AD (Active Directory) можно открыть данный файл. Остальные которые хотят открыть просто игнорировал и не открывался.
Возможно ли такое и если да то как это реализовать.
Спасибо.
 
Перейти    
Группировка одинаковых ячеек
 
#
17.11.2022 21:54:06
Но там Ашан высвечивается 12 а нужно чтобы показал 1 в день  
 
Перейти    
Группировка одинаковых ячеек
 
#
17.11.2022 21:10:16
Доброго времени суток.
Опять обращаюсь к вам и вашим советам.
В файле имеется данные где в день продажи идут по ТТ.
К примеру: Контрагент - "Ашан" Номер - "Номер накладной"
Как сгруппировать несколько Ашан в один за один день по брендам чтобы в результате показал что по Ашану была продажа и общая продажа = 1 и так по каждому Контрагенту ?
 
Перейти    
Исчезают данные
 
#
12.11.2022 21:07:06
New, Честно, я скачал и #4 и #10
В обеих файлах у меня была 2 в FormulaLocal
Лучше не буду с вами спорить.
Моя тупость заставил вас беспокоить.
Приношу свои извинения.
 
Перейти    
Исчезают данные
 
#
12.11.2022 21:00:14
New,
Спасибо большое.
Получилось, удалил "2" из Formula2Local - resul - FormulaLocal
Спасибо большое всем участникам.
Изменено: powerwer - 12.11.2022 21:00:42
 
Перейти    
Исчезают данные
 
#
12.11.2022 20:56:05
New,
Можем созвониться по скайпу если вам удобно ?  
 
Перейти    
Система безопасности отключила макросы. Стандартные настройки не помогают. Как включить?
 
#
12.11.2022 20:47:18
Может кому то тоже пригодится.
Нужно добавить доверительный путь файла где он находится т.к. по умолчанию стандартный путь от MS
Центр управлению безопасностью -  Надежные расположения - Добавить новое расположение
Удачи
 
Перейти    
Исчезают данные
 
#
12.11.2022 20:43:03
New, Я отправил вам одновременно ошибки и из других файлах.
Пробовал даже ваш файл с разными версиями.
C этим не получилось.
Код
Set LO = Worksheets("DATA-2021").ListObjects(1)
 
Перейти    
Исчезают данные
 
#
12.11.2022 19:23:39
New, RAN, Юрий М,
Не хотелось бы чтобы тема закрылась, как будет время дайте инфо пжлст как выйти из положения.
Заранее спасибо.  
 
Перейти    
Исчезают данные
 
#
12.11.2022 18:43:55
Если есть другой вариант дайте код пжлст.
Изменено: powerwer - 12.11.2022 18:46:46
 
Перейти    
Исчезают данные
 
#
12.11.2022 18:41:27
RAN, Есть другие варианты ?  
Изменено: powerwer - 12.11.2022 18:42:16
 
Перейти    
Исчезают данные
 
#
12.11.2022 17:19:33
New, Та же самая ошибка.
Excel - 2019

проверил, в других версиях та же ошибка

Error "subscript out of range"
индекс вне диапазона
Изменено: powerwer - 12.11.2022 18:29:57
 
Перейти    
Исчезают данные
 
#
12.11.2022 16:49:40
New, ошибку выдает
Код
.ListColumns(["Дата"]).DataBodyRange.Formula2Local = .ListColumns(["Дата"]).DataBodyRange.Formula2Local

Код
Dim LO As ListObject
Set LO = ActiveSheet.ListObjects(1)
    
    With LO
        .ListColumns(["Дата"]).DataBodyRange.Formula2Local = .ListColumns(["Дата"]).DataBodyRange.Formula2Local
        .ListColumns(["Количество_продаж"]).DataBodyRange.Formula2Local = .ListColumns(["Количество_продаж"]).DataBodyRange.Formula2Local
        .ListColumns(["Сумма_продажи"]).DataBodyRange.Formula2Local = .ListColumns(["Сумма_продажи"]).DataBodyRange.Formula2Local
        .ListColumns(["Количество_возврат"]).DataBodyRange.Formula2Local = .ListColumns(["Количество_возврат"]).DataBodyRange.Formula2Local
        .ListColumns(["Сумма_возврата"]).DataBodyRange.Formula2Local = .ListColumns(["Сумма_возврата"]).DataBodyRange.Formula2Local
        .ListColumns(["Количество"]).DataBodyRange.Formula2Local = .ListColumns(["Количество"]).DataBodyRange.Formula2Local
        .ListColumns(["Штук"]).DataBodyRange.Formula2Local = .ListColumns(["Штук"]).DataBodyRange.Formula2Local
        .ListColumns(["Коробка"]).DataBodyRange.Formula2Local = .ListColumns(["Коробка"]).DataBodyRange.Formula2Local
        .ListColumns(["Тонн"]).DataBodyRange.Formula2Local = .ListColumns(["Тонн"]).DataBodyRange.Formula2Local
        .ListColumns(["Литр"]).DataBodyRange.Formula2Local = .ListColumns(["Литр"]).DataBodyRange.Formula2Local
        .ListColumns(["Блок"]).DataBodyRange.Formula2Local = .ListColumns(["Блок"]).DataBodyRange.Formula2Local
        .ListColumns(["Юникейс"]).DataBodyRange.Formula2Local = .ListColumns(["Юникейс"]).DataBodyRange.Formula2Local
        .ListColumns(["Цена"]).DataBodyRange.Formula2Local = .ListColumns(["Цена"]).DataBodyRange.Formula2Local
        .ListColumns(["Сумма"]).DataBodyRange.Formula2Local = .ListColumns(["Сумма"]).DataBodyRange.Formula2Local
        .ListColumns(["Продажи"]).DataBodyRange.Formula2Local = .ListColumns(["Продажи"]).DataBodyRange.Formula2Local
    End With
Изменено: powerwer - 12.11.2022 16:51:10
 
Перейти    
Исчезают данные
 
#
12.11.2022 16:40:13
New, ааа понятно.
еще вопрос и не судите строго пжлст.
Код
Dim LO As String
Set LO = ActiveSheet.ListObjects(1)
    
    With LO
        .ListColumns(["Äàòà"]).DataBodyRange.Formula2Local = .ListColumns(["Äàòà"]).DataBodyRange.Formula2Local
        .ListColumns(["Êîëè÷åñòâî_ïðîäàæ"]).DataBodyRange.Formula2Local = .ListColumns(["Êîëè÷åñòâî_ïðîäàæ"]).DataBodyRange.Formula2Local
        .ListColumns(["Ñóììà_ïðîäàæè"]).DataBodyRange.Formula2Local = .ListColumns(["Ñóììà_ïðîäàæè"]).DataBodyRange.Formula2Local
        .ListColumns(["Êîëè÷åñòâî_âîçâðàò"]).DataBodyRange.Formula2Local = .ListColumns(["Êîëè÷åñòâî_âîçâðàò"]).DataBodyRange.Formula2Local
        .ListColumns(["Ñóììà_âîçâðàòà"]).DataBodyRange.Formula2Local = .ListColumns(["Ñóììà_âîçâðàòà"]).DataBodyRange.Formula2Local
        .ListColumns(["Êîëè÷åñòâî"]).DataBodyRange.Formula2Local = .ListColumns(["Êîëè÷åñòâî"]).DataBodyRange.Formula2Local
        .ListColumns(["Øòóê"]).DataBodyRange.Formula2Local = .ListColumns(["Øòóê"]).DataBodyRange.Formula2Local
        .ListColumns(["Êîðîáêà"]).DataBodyRange.Formula2Local = .ListColumns(["Êîðîáêà"]).DataBodyRange.Formula2Local
        .ListColumns(["Òîíí"]).DataBodyRange.Formula2Local = .ListColumns(["Òîíí"]).DataBodyRange.Formula2Local
        .ListColumns(["Ëèòð"]).DataBodyRange.Formula2Local = .ListColumns(["Ëèòð"]).DataBodyRange.Formula2Local
        .ListColumns(["Áëîê"]).DataBodyRange.Formula2Local = .ListColumns(["Áëîê"]).DataBodyRange.Formula2Local
        .ListColumns(["Þíèêåéñ"]).DataBodyRange.Formula2Local = .ListColumns(["Þíèêåéñ"]).DataBodyRange.Formula2Local
        .ListColumns(["Öåíà"]).DataBodyRange.Formula2Local = .ListColumns(["Öåíà"]).DataBodyRange.Formula2Local
        .ListColumns(["Ñóììà"]).DataBodyRange.Formula2Local = .ListColumns(["Ñóììà"]).DataBodyRange.Formula2Local
        .ListColumns(["Ïðîäàæè"]).DataBodyRange.Formula2Local = .ListColumns(["Ïðîäàæè"]).DataBodyRange.Formula2Local
    End With
Ругается на
Код
Dim LO As String
я не правильно открыл переменную ?  
 
Перейти    
Исчезают данные
 
#
12.11.2022 16:17:28
New, Спасибо за исправление.
А почему так ?
Почему файл большой ? Из за чего ?  
 
Перейти    
Исчезают данные
 
#
12.11.2022 10:34:55
New, Вложил файл.
 
Перейти    
Excel - Хранимка - SQL <> формат дата, тип дата
 
#
12.11.2022 07:50:56
Дмитрий(The_Prist) Щербаков, Не могли бы помочь пжслт
https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=message&FID=1&TID=153425&a...
 
Перейти    
Исчезают данные
 
#
11.11.2022 20:44:41
Доброго времени суток.
Не подскажите пжлст, с чем связан что данные исчезают ?
В общем такая картина.
Каждый день загружаются данные в excel.
Исходник загрузка данных ЗДЕСЬ
Т.к. данные загружаются в виде текст, применяю локальную формулу в столбце дата и кол-во
Код
Лист1.Range("B2:B1048576").FormulaLocal = Range("B2:B1048576").FormulaLocal
Лист1.Range("N2:O1048576").FormulaLocal = Range("N2:O1048576").FormulaLocal
После некоторых повторных загрузок при применении локальной формулы исчезают даты в строке дата и кол-во.
Не подскажите пжлст в чем может быть причина ?  
 
Перейти    
Доступ на открытии файла Excel
 
#
05.11.2022 15:38:42
Ungrateful, Не подскажешь пжлст при таком подключении если сразу использовать Recorset ?
https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=message&FID=1&TID=153153&a...
 
Перейти    
Доступ на открытии файла Excel
 
#
05.11.2022 13:41:44
Добрый день всем.
У меня как всегда не стандартный вопрос.
При открытии Excel идет обращение к БД и получает какое то значение.
К примеру
1 open
2 close
При открытии файла Excel подключается и получает 1 то excel открывается иначе при получении 0 она не должна открываться.
Не могли бы помочь как написать условия чтобы она срабатывала.
Если у вас имеется другие варианты буду весьма благодарен.
P.S.
Код
Private Sub Workbook_Open()
''' Подключение к БД и запись в ячейку параметр для проверки
End Sub
 
Перейти    
Excel - Хранимка - SQL <> формат дата, тип дата
 
#
04.11.2022 20:50:59
RAN, главное что заработало :-)
 
Перейти    
Excel - Хранимка - SQL <> формат дата, тип дата
 
#
04.11.2022 18:46:54
RAN,
Код
Dim LastRow As String
Спасибо ))  
Изменено: powerwer - 04.11.2022 18:47:31
 
Перейти    
Excel - Хранимка - SQL <> формат дата, тип дата
 
#
04.11.2022 18:12:45
RAN, Ругается на переменную.
Не находит ее.  
 
Перейти    
Excel - Хранимка - SQL <> формат дата, тип дата
 
#
04.11.2022 18:03:22
RAN, Вы прям читаете мои мысли )
Так в чем же моя вина ?
Не подскажите пжлст ?  
 
Перейти    
Excel - Хранимка - SQL <> формат дата, тип дата
 
#
04.11.2022 17:59:25
Вот данная ошибка  
 
Перейти    
Excel - Хранимка - SQL <> формат дата, тип дата
 
#
04.11.2022 17:56:05
RAN, ни как нет.
Просто код выдает ошибку.
У меня нет такого уровня чтобы найти ошибку или хвастаться. Спасибо активным участникам которые помогают. Я просто попросил помочь в решении но после получении нового кода выдала ошибку.
По этому хотел данным своим сообщением донести что выдала ошибку.  
 
Перейти    
Excel - Хранимка - SQL <> формат дата, тип дата
 
#
04.11.2022 17:42:11
New, ругается на LastRow
Код
With Worksheets("Лист4")    
LastRow = .Cells(.Rows.Count, 2).End(xlUp).Row
    .Range("B2:B" & LastRow).FormulaLocal = .Range("B2:B" & LastRow).FormulaLocal
End With
 
Перейти    
Excel - Хранимка - SQL <> формат дата, тип дата
 
#
04.11.2022 13:51:51
Ребята, не поможете кодом, пжслт.
После загрузки я обновляю формат столбца
Код
Лист4.Range("B2:B1048576").FormulaLocal = Range("B2:B1048576").FormulaLocal
Каждый день загружается N - кол-во строк и было бы правильно менять формат только новые загруженные строки а не начало до конца столба.
Не подскажите пжлст возможно ли Formulalocal только к последним загруженным данным и если да то как .
Спасибо.  
 
Перейти    
Доступ к Листу excel пользователю AD
 
#
04.11.2022 08:07:50
Добрый день.
Не подскажите пжлст возможно ли дать доступ к листу excel на пользователю AD чтобы не всем было дана открыть файл или лист ?
Спасибо.
 
Перейти    
Страницы: 1 2 След.
Наверх