Czy są alternatywne sposoby ochrony arkuszy?

Pliki są używane przez wiele osób w sieci firmy i dlatego dane wprowadzane są za pomocą formatek makra aby stosowane było jednolite nazewnictwo i format. Umożliwia to poprawne przetwarzanie tych danych.
Arkusze ochraniam przez: Sheets("Arkusz1").Protect "haslo", 'Sheets("Arkusz1").Unprotect "haslo".
Czy istnieje alternatywny sposób ochrony arkuszy, taki aby z poziomu VBA nie było konieczne przy każdej zmianie w arkuszu zdejmowanie ochrony?
Dodam że, prawo do edycji arkusza jest udzielane przez porównanie z bazą, loginu osoby zalogowanej w systemie komputera.

Jeżeli z arkusza korzystają użytkownicy domenowi, to w zakładce RECENZJA, znajduje się opcja "Zezwalaj użytkownikom na edycję zakresów". Określasz zakres, hasło i użytkowników domenowych, którzy są uprawnieni do zmian w określonym zakresie.

Przed zadaniem pytania nie pomyślałem.
Wystarczy zdjąć ochronę przy uruchomieniu formatki i włączyć ją przed zamknięciem. Nie trzeba robić tego każdorazowo podczas wprowadzania czy obróbce danych bo gdy formatka jest otwarta, edycja arkuszy jest niedostępna.