Sub Unfiltr()
   ActiveSheet.ShowAllData
End Sub

Метод ShowAllData завершен не верно

Файл в общем доступе, защищен. Разрешено использование автофильтра  - стоит.
В чем может быть проблема?

RAN, перепроверил. да действительно не выдает.
Вчера поздно вечером сидел, наверное не внимательно изучил причину ошибки.
Спасибо!

ShowAllData - не работает при включенной защите.
Отсюда и возникла тема.
Листы защищены, у каждого пользователя свою настройки защиты.
ShowAllData выдает ошибку при включенной защите.
Если отключить защиту, то после включения защиты без указания ее параметров включается только защита по умолчанию (Выделения ячеек).

RAN, да может я не точно описал проблему, Ваш вариант вполне приемлем

Почему-то у меня на форуме не вставляются имена  

, , есть защищённые листы, и кнопка очистить автофильтр становится недоступной. Как вариант делать это макросом (столбцов под сотню и искать каждый раз где именно установлены фильтры - муторно).
, предложил, как я понял, пройтись циклом и сбросить каждый включенный фильтр.
Это тоже вариант.

, Спасибо, тоже вариант.

Здравствуйте, Jack Famous!
Спасибо!  

Доброго дня!
Подскажите, можно ли как-то получить текущие  настройки защиты листа.
Смысл такой: для каждого пользователя свои разрешения, макросом снимаю защиту, очищаю фильтр и возвращаю защиту. Как вернуть именно те же настройки?
Sub Unfiltr()
ActiveSheet.Unprotect
ActiveSheet.ShowAllData
ActiveSheet.Protect
' DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowSorting:=True, AllowFiltering:=True

End Sub

Да, наверное Вы правы, но вот вопрос почему в СЧЁТЕСЛИ результат 9?

Данные сразу вносились с апострофом и формат ячейки Текстовый

Да, наверное Вы правы, но вот вопрос почему в СЧЁТЕСЛИ результат 9?

Сорян, моя невнимательность

А ну, и странное поведение СЧЁТЕСЛИ - почему результат 9, когда элементов 10? В каждой формуле не считает образец, но считает остальные элементы

Да, для расчетов это выход. Спасибо!
Осталось победить Условное форматирование (ради науки   ). Эта формула эффекта не дала.

Всем привет.
Сегодня заметил такую забавную штуку
Такие пары как например 3-21 и 1-3 excel считает как одинаковые данные и соответственно условное форматирование (повторяющиеся значения) и формулы типа счётесли, не видят между ними разницы.
При этом ни текстовый формат ячеек, ни апостроф перед данными не дает никакого эффекта.
Как ещё объяснить Excelю, что это текст, а не дата?

1-3
3.21
1/3

В общем, с любым разделителем, который может использоваться в каком либо формате дат/
В итоге заморочился, написал простенькую функцию СчетЕсли2 (Не столько для практики, просто ради эксперимента), и она считает все правильно.
Но все же вопрос остался -Как ещё объяснить Excelю, что это текст, а не дата?

Это Вам к 1С-никам. Скорее всего из-за измениния условий отбора

В общем заработало. Подключил 12 библиотеку. (14 нет, до этого пытался с 15-ой). Дальше пока разбираюсь

Я имел ввиду, что в самом OneNote редактора нет, и соответственно, не знаю как заставить его работать.  Tools/References подключил сразу:
https://answers.microsoft.com/en-us/msoffice/forum/all/how-to-use-vba-for-ocr-function-with-onenote/...
Но все равно получал ошибку.  

Доброго дня!
В OneNote есть функция распознания текста (Вставка распечатки, затем ПКМ на рисунке и копировать текст).
Работает отлично.
Но OneNote не поддерживает VBA.
Есть ли какая-то возможность запустив макрос, например в Excel отправить pdf в OneNote и получить результат OCR?