Run-Time error '1004' Примечание нельзя добавить ...

[AlVer]

написал макрос под эксел и при выполнении выдает такую ошибку
Run-Time error '1004' Примечание нельзя добавить в режиме совместного доступа.

как только этот режим снимаю все работает нормально,

если надо могу выложить код макроса, я совсем неопытен в програмировании на VB, поэтому не пинайте

[GSerg]

Вопрос в тексте поста отсутствует.

[uhm]

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

[KL]

Привет,

Пункт 7 нижеследующего списка недоступных операций в режиме совместного доступа - это ответ на незаданный вопрос:

Unavailable features

1. Insert or delete blocks of cells
Alternative: You can insert entire rows and columns.

2. Delete worksheets
Alternative: None

3. Merge cells or split merged cells
Alternative: None

4. Add or change conditional formats
Alternative: Existing conditional formats continue to appear as cell values change, but you can't change these formats or redefine the conditions.

5. Add or change data validation
Alternative: Cells continue to be validated when you type new values, but you can't change existing data validation settings.

6. Create or change charts or PivotChart reports
Alternative: You can view existing charts and reports.

7. Insert or change pictures or other objects
Alternative: You can view existing pictures and objects.

8. Insert or change hyperlinks
Alternative: Existing hyperlinks continue to work.

9. Use drawing tools
Alternative: You can view existing drawings and graphics.

10. Assign, change, or remove passwords
Alternative: Existing passwords remain in effect.

11. Protect or unprotect worksheets or the workbook
Alternative: Existing protection remains in effect.

12. Create, change, or view scenarios
Alternative: None

13. Group or outline data
Alternative: You can continue to use existing outlines.

14. Insert automatic subtotals
Alternative: You can view existing subtotals.

15. Create data tables
Alternative: You can view existing data tables.

16. Create or change PivotTable reports
Alternative: You can view existing reports.

17. Write, record, change, view, or assign macros
Alternative: You can run existing macros that don't access unavailable features. You can record shared workbook operations into a macro stored in another non-shared workbook.

18. Add or change Microsoft Excel 4 dialog sheets
Alternative: None

19. Change or delete array formulas
Alternative: Existing array formulas continue to calculate correctly.

[AlVer]

Вот код макроса на котором выдается ошибка
...
For J = 1 To 64
Sheets("Neighbours").Activate
Range("B1").Select
ActiveCell.FormulaR1C1 = ""
ActiveCell.FormulaR1C1 = "=COUNTIF(R[1]C:R[60000]C," & """" & sysname & """" & ")"
If ActiveCell = 1 Then
Cells.Find(What:=sysname, After:=ActiveCell, _
LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByColumns, _
SearchDirection:=xlNext, MatchCase:=False).Activate
If ActiveCell.Offset(0, 1) <> "" Then
nn = ActiveCell.Offset(0, 1).Value
ActiveCell.Offset(0, 1).Delete Shift:=xlToLeft
Range("B1").Select
ActiveCell.FormulaR1C1 = "=COUNTIF(R[1]C:R[60000]C," & """" & nn & """" & ")"
If ActiveCell = 1 Then
Cells.Find(What:=nn, After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
ActiveCell.Offset(0, 67).FormulaR1C1 = "=COUNTIF(RC[-65]:RC[-2]," & """" & sysname & """" & ")"

If ActiveCell.Offset(0, 67) = 1 Then
Cells.Find(What:=sysname, After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
Selection.Delete Shift:=xlToLeft
End If
End If
Else: Exit For
End If
Else
Range("A1").Select
Range("A" & Application.CountA(ActiveSheet.Columns(1)) + 1).Select
ActiveCell.Offset(0, 0).FormulaR1C1 = Bsc
ActiveCell.Offset(0, 1).FormulaR1C1 = sysname
Exit For
End If
Next
...

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

[AlVer]

скорее всего ругается вот на эту строчку

ActiveCell.Offset(0, 1).Delete Shift:=xlToLeft

подскажите чем можно ее заменить?

[GSerg]

AlVer, ты читаешь ответы, которые тебе дают, или нет?..

[KL]

2AlVer
См. пункт 1 списка в моем сообщении выше - там тебе и разъяснение и решение.