Доброго дня
В примере база данных для сводной и сама сводная - группа, категория, количество
Можно ли без дополнительного столбца в базе данных вывести вычисляемое поле - количество уникальных категорий в группе? В прикрепленном файле решение с доп столбцом. Каждой группе соответствуют свои категории

Доброго дня
Внезапно возникла ошибка при сохранении файла .xslm
"The file format and extension of ddd.mso/ddd don't match. The file could be corrupted or unsafe. Unless you trust its source, don't open it. Do you want to open it anyway?"
ddd.mso и ddd - названия написал для примера. Видимо ошибка связана с созданием временного файла при сохранении и расширением mso?
Далее предлагается сохранить файл с другим названием (по умолчанию ddd.xlsm), в котором все равно потом при дальнейшем пересохранении возникает та же ошибка.
Ошибка выскакивает не на всех файлах с расширением .xlsm
При пересохранении в формат .xls ошибка исчезает.
Если кто знает где, как и что поправить в настройках, или может быть, удалить какие-либо возможные обновления системы (которых вроде в течение ночи не было), подскажите, пожалуйста.
Спасибо.

Всем доброго дня
Не знаю, с чем связана проблема, решил что она появилась после обновления.
Один и тот же файл, лежащий на сетевом диске, ранее корректно работал у всех пользователей.
После обновления (не уверен, что именно из-за этого, может так совпало) у двух пользователей следующие проблемы: кнопка на листе, к которой привязано событие (в модуле листа), не реагирует и не видит самого события. В свойствах кнопи отображаются свойства самого листа (имя Sheet1 и пр.). Попытка запустить событие из VBA редактора вручную (F5) приводит к ошибке Compile error:Object library invalid or contains references to object definitions that could not be found. Подключенные библиотеки у пользователей идентичны (у одних все работает без изменений, у других не работает ничего)
В более ранней копии этого же файла на рабочем столе (файл с рабочего стола был пересохранен для работы на сетевой диск) проблема с кнопками на листах та же самая, но при запуске вручную всё работает корректно. Офис 2013-ый

задача сводится к следующему: расчитать количество рабочих дней каждой недели месяца (рабочие дни: понедельник-пятница). недели месяца пронумерованы от 1 до 5. если начало месяца попадает на выходной, первая неделя считается с первого рабочего дня.  
 
Sub dt()  
Dim dn As Date  
Dim cowd()  
ReDim cowd(1 To 5)'недели  
a = 1  
i = 8'номер столбца, в котором находится дата расчитываемого месяца  
 
km = Day(CDate("01." & Month(Cells(2, i).Value) + 1 & "." & Year(Cells(2, i).Value))-1)  
If Month(Cells(2, i).Value) = 12 Then km = 31'km - полное количество дней месяца  
 
  For j = 1 To km  
   dn = CDate("01." & Month(Cells(2, i).Value) & "." & Year(Cells(2, i).Value)) + j - 1  
       dwn = DatePart("ww", dn, vbMonday) - DatePart("ww", dn + 1, vbMonday)  
           
           ddd = Weekday(dn, vbMonday)  
              Select Case ddd  
                Case 1, 2, 3, 4, 5  
                   cowd(a) = cowd(a) + 1  
                Case 6, 7  
                   cowd(a) = cowd(a) + 0  
               End Select  
           
  If dwn < 0 And cowd(a) <> 0 Then  
  Cells(4, i).Value = cowd(a)  
  a = a + 1  
  i = i + 1  
  End If  
     
     
     
Next  
 
End Sub  
 
подскажите, пожалуйста, где я ошибся.  
или может более простой способ есть это сделать?