Макрос на запрет вставки через ctrl+v
Николай_89
Дата: Среда, 05.09.2018, 13:58 |
Сообщение № 21
Группа: Пользователи
Ранг: Новичок
Сообщений: 21
Репутация:
0
±
Замечаний:
0% ±
Excel 2016
Что-то всё как и было)
Ответить
Сообщение Что-то всё как и было) Автор - Николай_89 Дата добавления - 05.09.2018 в 13:58
Николай_89
Дата: Среда, 05.09.2018, 14:02 |
Сообщение № 22
Группа: Пользователи
Ранг: Новичок
Сообщений: 21
Репутация:
0
±
Замечаний:
0% ±
Excel 2016
Boroda работает! но 1. у Вас он вставлен в лист, куда мне его необходимо скопировать! 2. получается то что ошибка с текстом нельзя вставлять уже выскакивать не будет?
Boroda работает! но 1. у Вас он вставлен в лист, куда мне его необходимо скопировать! 2. получается то что ошибка с текстом нельзя вставлять уже выскакивать не будет? Николай_89
Ответить
Сообщение Boroda работает! но 1. у Вас он вставлен в лист, куда мне его необходимо скопировать! 2. получается то что ошибка с текстом нельзя вставлять уже выскакивать не будет? Автор - Николай_89 Дата добавления - 05.09.2018 в 14:02
Николай_89
Дата: Среда, 05.09.2018, 14:12 |
Сообщение № 23
Группа: Пользователи
Ранг: Новичок
Сообщений: 21
Репутация:
0
±
Замечаний:
0% ±
Excel 2016
Борода я Разобрался!! нужно вставить это было в лист в котором таблица! Правильно?
Борода я Разобрался!! нужно вставить это было в лист в котором таблица! Правильно? Николай_89
Ответить
Сообщение Борода я Разобрался!! нужно вставить это было в лист в котором таблица! Правильно? Автор - Николай_89 Дата добавления - 05.09.2018 в 14:12
_Boroda_
Дата: Среда, 05.09.2018, 15:01 |
Сообщение № 24
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16666
Репутация:
6478
±
Замечаний:
0% ±
2003; 2007; 2010; 2013 RUS
В модуль каждого листа, в котором запрещена вставка По-хорошему еще нужно проверку на диапазон сделать Например, вот так [vba]Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("B3:G12")) Is Nothing Then Application.CutCopyMode = 0 End Sub
[/vba]
В модуль каждого листа, в котором запрещена вставка По-хорошему еще нужно проверку на диапазон сделать Например, вот так [vba]Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("B3:G12")) Is Nothing Then Application.CutCopyMode = 0 End Sub
[/vba] _Boroda_
Скажи мне, кудесник, любимец ба’гов... Платная помощь: Boroda_Excel@mail.ru Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
Ответить
Сообщение В модуль каждого листа, в котором запрещена вставка По-хорошему еще нужно проверку на диапазон сделать Например, вот так [vba]Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("B3:G12")) Is Nothing Then Application.CutCopyMode = 0 End Sub
[/vba] Автор - _Boroda_ Дата добавления - 05.09.2018 в 15:01
Николай_89
Дата: Среда, 05.09.2018, 15:19 |
Сообщение № 25
Группа: Пользователи
Ранг: Новичок
Сообщений: 21
Репутация:
0
±
Замечаний:
0% ±
Excel 2016
Boroda спасибо Вам большущее Одно из Министерств МО вас не за будет!))))
Boroda спасибо Вам большущее Одно из Министерств МО вас не за будет!)))) Николай_89
Ответить
Сообщение Boroda спасибо Вам большущее Одно из Министерств МО вас не за будет!)))) Автор - Николай_89 Дата добавления - 05.09.2018 в 15:19
Николай_89
Дата: Среда, 05.09.2018, 17:14 |
Сообщение № 26
Группа: Пользователи
Ранг: Новичок
Сообщений: 21
Репутация:
0
±
Замечаний:
0% ±
Excel 2016
Boroda Вопросик я не могу вставить скопированное пкм в книгу в которой копировал! а из других книг могу!! можно это исправить или это потология?)))
Boroda Вопросик я не могу вставить скопированное пкм в книгу в которой копировал! а из других книг могу!! можно это исправить или это потология?))) Николай_89
Ответить
Сообщение Boroda Вопросик я не могу вставить скопированное пкм в книгу в которой копировал! а из других книг могу!! можно это исправить или это потология?))) Автор - Николай_89 Дата добавления - 05.09.2018 в 17:14
Николай_89
Дата: Среда, 05.09.2018, 17:24 |
Сообщение № 27
Группа: Пользователи
Ранг: Новичок
Сообщений: 21
Репутация:
0
±
Замечаний:
0% ±
Excel 2016
БЛин вроде всё работает
Ответить
Сообщение БЛин вроде всё работает Автор - Николай_89 Дата добавления - 05.09.2018 в 17:24
StoTisteg
Дата: Среда, 05.09.2018, 17:37 |
Сообщение № 28
Группа: Авторы
Ранг: Старожил
Сообщений: 1161
Репутация:
103
±
Замечаний:
0% ±
Excel 2010
Одно из Министерств МО вас не за будет!))))
[offtop]И я даже догадываюсь, какое
Одно из Министерств МО вас не за будет!))))
[offtop]И я даже догадываюсь, какое StoTisteg
Интуитивно понятный код - это когда интуитивно понятно, что это код.
Ответить
Сообщение Одно из Министерств МО вас не за будет!))))
[offtop]И я даже догадываюсь, какое Автор - StoTisteg Дата добавления - 05.09.2018 в 17:37
Николай_89
Дата: Четверг, 06.09.2018, 08:55 |
Сообщение № 29
Группа: Пользователи
Ранг: Новичок
Сообщений: 21
Репутация:
0
±
Замечаний:
0% ±
Excel 2016
Догадывался если бы то помог бы сразу!))))
Догадывался если бы то помог бы сразу!)))) Николай_89
Ответить
Сообщение Догадывался если бы то помог бы сразу!)))) Автор - Николай_89 Дата добавления - 06.09.2018 в 08:55
RAN
Дата: Четверг, 06.09.2018, 11:27 |
Сообщение № 30
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Ежели молодежь ушлая, то... Открываем вторую книгу в новом экземпляре Excel, и Бородатый макрос не работает.
Ежели молодежь ушлая, то... Открываем вторую книгу в новом экземпляре Excel, и Бородатый макрос не работает. RAN
Быть или не быть, вот в чем загвоздка!
Ответить
Сообщение Ежели молодежь ушлая, то... Открываем вторую книгу в новом экземпляре Excel, и Бородатый макрос не работает. Автор - RAN Дата добавления - 06.09.2018 в 11:27
StoTisteg
Дата: Четверг, 06.09.2018, 11:56 |
Сообщение № 31
Группа: Авторы
Ранг: Старожил
Сообщений: 1161
Репутация:
103
±
Замечаний:
0% ±
Excel 2010
RAN , там не ушлая молодёжь, там криворукие юзвери.
RAN , там не ушлая молодёжь, там криворукие юзвери.StoTisteg
Интуитивно понятный код - это когда интуитивно понятно, что это код.
Ответить
Сообщение RAN , там не ушлая молодёжь, там криворукие юзвери.Автор - StoTisteg Дата добавления - 06.09.2018 в 11:56
Николай_89
Дата: Пятница, 07.09.2018, 14:23 |
Сообщение № 32
Группа: Пользователи
Ранг: Новичок
Сообщений: 21
Репутация:
0
±
Замечаний:
0% ±
Excel 2016
Boroda помоги пожалуйста! можно ли поправить макрос, касающийся вставки через пкм? суть в следующем если копировать ячейкут тогда макрос блокирует вставку а если содержимое ячейки тогда он разрешает вставку!!! Заранее благодарю
Boroda помоги пожалуйста! можно ли поправить макрос, касающийся вставки через пкм? суть в следующем если копировать ячейкут тогда макрос блокирует вставку а если содержимое ячейки тогда он разрешает вставку!!! Заранее благодарю Николай_89
Ответить
Сообщение Boroda помоги пожалуйста! можно ли поправить макрос, касающийся вставки через пкм? суть в следующем если копировать ячейкут тогда макрос блокирует вставку а если содержимое ячейки тогда он разрешает вставку!!! Заранее благодарю Автор - Николай_89 Дата добавления - 07.09.2018 в 14:23
anvg
Дата: Суббота, 08.09.2018, 13:11 |
Сообщение № 33
Группа: Друзья
Ранг: Ветеран
Сообщений: 581
Репутация:
271
±
Замечаний:
0% ±
2016, 365
Попробуйте такой вариант , блокирует вставку с любых источников. Правда, у некоторых не взлетает.
Попробуйте такой вариант , блокирует вставку с любых источников. Правда, у некоторых не взлетает. anvg
Ответить
Сообщение Попробуйте такой вариант , блокирует вставку с любых источников. Правда, у некоторых не взлетает. Автор - anvg Дата добавления - 08.09.2018 в 13:11
Николай_89
Дата: Понедельник, 10.09.2018, 08:44 |
Сообщение № 34
Группа: Пользователи
Ранг: Новичок
Сообщений: 21
Репутация:
0
±
Замечаний:
0% ±
Excel 2016
anvg этот макрос я рассматривал в начале! пока борода не помог! и он на ctrl+v запрещает! а меня интересует именно вставка серез пкм!)))
anvg этот макрос я рассматривал в начале! пока борода не помог! и он на ctrl+v запрещает! а меня интересует именно вставка серез пкм!))) Николай_89
Ответить
Сообщение anvg этот макрос я рассматривал в начале! пока борода не помог! и он на ctrl+v запрещает! а меня интересует именно вставка серез пкм!))) Автор - Николай_89 Дата добавления - 10.09.2018 в 08:44
bigor
Дата: Понедельник, 10.09.2018, 15:09 |
Сообщение № 35
Группа: Проверенные
Ранг: Старожил
Сообщений: 1073
Репутация:
204
±
Замечаний:
0% ±
нет
этот макрос я рассматривал в начале
тему может и смотрели, но макрос на который Вам дали ссылку, в Вашей теме не появлялся
этот макрос я рассматривал в начале
тему может и смотрели, но макрос на который Вам дали ссылку, в Вашей теме не появлялсяbigor
Ответить
Сообщение этот макрос я рассматривал в начале
тему может и смотрели, но макрос на который Вам дали ссылку, в Вашей теме не появлялсяАвтор - bigor Дата добавления - 10.09.2018 в 15:09
boa
Дата: Понедельник, 10.09.2018, 17:25 |
Сообщение № 36
Группа: Друзья
Ранг: Ветеран
Сообщений: 549
Репутация:
167
±
Замечаний:
0% ±
365
Николай_89, В модуль книги добавьте [vba]Код
Private Sub Workbook_Activate(): ClearClipboard: End Sub Private Sub Workbook_SheetActivate(ByVal Sh As Object): ClearClipboard: End Sub Private Sub ClearClipboard() With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}"): .SetText "": .PutInClipboard: End With End Sub
[/vba] но при работе с данной книгой макросы должны быть включены. Во вложении вариант, с принуждением к включению макросов.
Николай_89, В модуль книги добавьте [vba]Код
Private Sub Workbook_Activate(): ClearClipboard: End Sub Private Sub Workbook_SheetActivate(ByVal Sh As Object): ClearClipboard: End Sub Private Sub ClearClipboard() With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}"): .SetText "": .PutInClipboard: End With End Sub
[/vba] но при работе с данной книгой макросы должны быть включены. Во вложении вариант, с принуждением к включению макросов. boa
Ответить
Сообщение Николай_89, В модуль книги добавьте [vba]Код
Private Sub Workbook_Activate(): ClearClipboard: End Sub Private Sub Workbook_SheetActivate(ByVal Sh As Object): ClearClipboard: End Sub Private Sub ClearClipboard() With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}"): .SetText "": .PutInClipboard: End With End Sub
[/vba] но при работе с данной книгой макросы должны быть включены. Во вложении вариант, с принуждением к включению макросов. Автор - boa Дата добавления - 10.09.2018 в 17:25