Перейти до основного матеріалу

Як запобігти видаленню рядків або стовпців у спільній незахищеній книзі?

Коли ви ділитеся книгою з іншими, як ви можете заборонити іншим видаляти стовпці або рядки вашої спільної книги, не захищаючи книгу? Тут я знаходжу код VBA, який може перешкодити іншим видаляти стовпці та рядки у спільній книзі.

Запобігання видаленню рядків або стовпців у спільній книзі з VBA


стрілка синя права міхур Запобігання видаленню рядків або стовпців у спільній книзі з VBA

1. прес Alt + F11 відкрити Microsoft Visual Basic для програми вікна.

2. клацання Insert > Модулі щоб відкрити вікно модуля, скопіюйте наступний VBA у вікно.

VBA: Запобігання видаленню рядків або стовпців.

Sub StopDeleteRowCols()
'Updateby20221221
Dim xBarControl As CommandBarControl
Application.OnKey "^{-}", ""
For Each xBarControl In Application.CommandBars.FindControls(ID:=293)
    xBarControl.Enabled = False
Next
For Each xBarControl In Application.CommandBars.FindControls(ID:=294)
    xBarControl.Enabled = False
Next
End Sub

3. клацання прогін кнопка або F5 клавішу на клавіатурі для запуску цього коду.

Потім, коли інші клацають правою кнопкою миші, щоб видалити вибрані стовпці або рядки, параметр «Видалити» не можна застосувати в контекстному меню. Дивіться знімок екрана:

doc-disable-delete-row-column-1

Крім того, це не дозволяє користувачам використовувати комбінацію клавіш Ctrl + - для видалення рядків або стовпців.

Примітка:

(1) Якщо ви поділилися робочою книгою з Розгляд > Поділитися робочою книжкою, ви більше не можете додавати жодні макроси VBA. Тому вам краще додати VBA перед тим, як ділитися книгою.

(2) Цей VBA вимкне видаляти у контекстному меню у всіх книгах, коли ви клацаєте правою кнопкою миші на вибрані стовпці або рядки.

(3) Для відновлення видаляти у контекстному меню, будь ласка, замініть обидва Помилковий з Правда у VBA вище та запустіть VBA знову.

Найкращі інструменти продуктивності офісу

🤖 Kutools AI Aide: Революціонізуйте аналіз даних на основі: Інтелектуальне виконання   |  Згенерувати код  |  Створення спеціальних формул  |  Аналізуйте дані та створюйте діаграми  |  Викликати функції Kutools...
Популярні функції: Знайдіть, виділіть або визначте дублікати   |  Видалити порожні рядки   |  Об’єднайте стовпці або клітинки без втрати даних   |   Раунд без Формули ...
Супер пошук: VLookup за кількома критеріями    Багатозначний VLookup  |   VLookup на кількох аркушах   |   Нечіткий пошук ....
Розширений розкривний список: Швидке створення випадаючого списку   |  Залежний спадний список   |  Виберіть розкривний список, що вибирається ....
Менеджер колонок: Додайте конкретну кількість стовпців  |  Перемістити стовпці  |  Перемкнути статус видимості прихованих стовпців  |  Порівняйте діапазони та стовпці ...
Особливості: Фокус сітки   |  Перегляд дизайну   |   Велика панель формул    Диспетчер робочих книг і аркушів   |  Бібліотека ресурсів (автотекст)   |  Вибір дати   |  Об’єднайте робочі аркуші   |  Шифрування/розшифрування клітинок    Надсилайте листи за списком   |  Супер фільтр   |   Спеціальний фільтр (фільтр жирний/курсив/закреслений...) ...
Топ-15 наборів інструментів12 текст Tools (додати текст, Видалити символи, ...)   |   50 + Графік типи (діаграма Ганта, ...)   |   40+ Практичний Формули (Розрахуйте вік на основі дня народження, ...)   |   19 вставка Tools (Вставте QR-код, Вставити зображення зі шляху, ...)   |   12 Перетворення Tools (Числа до слів, Валютна конверсія, ...)   |   7 Злиття та розділення Tools (Розширені комбіновані ряди, Розділені клітини, ...)   |   ... і більше

Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу.  Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...

Опис


Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
Comments (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Está genial el código! Gracias! Pero esto no bloquea el poder eliminar la fila haciendo CTRL- .....
Sabrías cómo poder bloquearlo también?

Gracias!
This comment was minimized by the moderator on the site
Hi, I have updated the code in the article, you can try again, now it prevent the shortcuts and the delete command.
This comment was minimized by the moderator on the site
Bonjour

Je n'arrive plus à supprimer le fait de supprimer des lignes maintenant que j'ai créer ce code VBA.
Comment se traduit "les Vetitables" en français j'ai essayé "true" mais ça ne fonctionne pas

Merci de votre réponse
This comment was minimized by the moderator on the site
Sorry, Sand, I do not understand French.
This comment was minimized by the moderator on the site
Nice piece of code, but it doesn't prevent the user from using {ctrl} - to delete rows...
This comment was minimized by the moderator on the site
Vba code to disable delete, cut and insert option in Excel hoe ribbon
This comment was minimized by the moderator on the site
Can you Please share the vba code to disable Cut,Insert and Delete option in Home ribbon??? However i know thw vba code to disable it through right click and keyboard. But here i need code to disable cut, insert and delet option in excel home ribbon.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations