Как да предотвратите изтриването на редове или колони в споделена незащитена работна книга?

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

Предотвратете изтриването на редове или колони в споделена работна книга с VBA

Предотвратете изтриването на редове или колони в споделена работна книга с VBA

невероятно! Използване на ефективни раздели в Excel като Chrome, Edge, Firefox и Safari!
Спестете 50% от времето си и намалете хилядите кликвания на мишката за вас всеки ден!

1. Натиснете Alt + F11 да отворите Microsoft Visual Basic за приложение прозорец.

2. кликване Поставете > Модули за да отворите прозорец на модул, след това копирайте следния 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 клавиш на клавиатурата, за да стартирате този код.

След това, когато други щракнат с десния бутон, за да изтрият избрани колони или редове, опцията Изтриване не може да се приложи в контекстното меню. Вижте екранна снимка:

Освен това не позволява на потребителите да използват клавишите за бърз достъп Ctrl + - за изтриване на редове или колони.

Забележка:

(1) Ако сте споделили работната си книга с Оценки на посетители > Споделяне на работна книга, вече не можете да добавяте никакви VBA макроси. Затова е по-добре да добавите VBA, преди да споделите работната книга.

(2) Този VBA ще деактивира Изтрий в контекстното меню във всички работни книги, когато щракнете с десния бутон върху избрани колони или редове.

(3) За възстановяване на Изтрий в контекстното меню, моля, заменете и двете Фалшив с Вярно във VBA по-горе и стартирайте VBA отново.

Най-добрите инструменти за продуктивност в офиса

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

Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време.  Щракнете тук, за да получите функцията, от която се нуждаете най-много...

Прочети повече ... Безплатно сваляне...

---

Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна

• Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
• Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
• Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!

Прочети повече ... Безплатно сваляне...