Pytanie : Kopia "Gacenie Szkotowy" setttings wszystkie zakładka w workbook

I mieć przodować 2007 workbook dokąd I ochraniać jeden prześcieradło z pewny położenie:
Allow wszystkie użytkownik ciąć na arkusze ciąć na arkusze:
Select blokować cells
Select otwierać cells

How I kopiować te ochrona wybór wszystkie the inny prześcieradło w the workbook (mieć różny wybór) bez ono jeden jeden?
Thanks w postęp,

Odpowiedź : Kopia "Gacenie Szkotowy" setttings wszystkie zakładka w workbook

Próbować the kod tafla w the ThisWorkbook kod tafla. Ono biegać automatycznie gdy the workbook otwierać i ochraniać każdy worksheet z hasło. The użytkownik pozwolić zamknięty i otwierać komórka.

Ten kod tafla, ALT + F11 the VBA Redaktor. W the Projekt Badacz na the lewica, doubleclick ThisWorkbook. Klajstrować the kod tam. Ono pracować wcale jeżeli instalować gdziekolwiek inny.

Ćwiek
(1):
2:
3:
4:
5:
6:
7:
8:

Intymny Okręt podwodny Workbook_Open ()
Ciemnawy ws Jako Worksheet
Ciemnawy MyPassword Sznurek
MyPassword = "abc"
Dla ActiveWorkbook.Worksheets ws W ActiveWorkbook.Worksheets
    ws. Gacenie Hasło: =MyPassword, UserInterfaceOnly: =True, Zawartość: =True
Następnie
Końcówka Okręt podwodny
Inne rozwiązania  
 
programming4us programming4us