Excel Forum - Porady, Pomoc, Excel Help, Excel FAQ - błąd przy włączaniu ochrony

margerytka · EXCELent Man **Pomogła:** 3 razy Posty: 119

Witajcie!

Mam w swoim pliku, w ThisWorkbook taki kod:

Kod:

Private Sub Workbook_Open()
With Worksheets("oczekujące wpływ realizacja")
.Protect , UserInterfaceOnly:=True
.EnableOutlining = True
End With

Generalnie działał dobrze do tej pory, czyli plik był wielokrotnie otwierany przez różnych użytkowników i wszystko było w porządku.
Dzisiaj jeden z odbiorców dał mi znać, że makro zatrzymuje się na linii:

Kod:

.Protect , UserInterfaceOnly:=True

Wiem, że trudno coś powiedzieć więcej bez kontekstu, ale na razie nie mam szerszego. Pytanie jest, czy możemy domniemywać, że użytkownik wykonał jakieś dodatkowe działanie (nie wiem, otworzył w międzyczasie inny plik, ma jakieś ustawienia na swoim kompie)?. Wiem, że ma Office'a 2010. O co mogę go jeszcze zapytać, co wyjaśni kwestię lub jak poprawić kod? Może polskie litery w nazwie arkusza? Albo powinnam do arkusza się inaczej odwołać?

Artik · **Pomógł:** 1277 razy Posty: 3463

Ja domniemuję, że założono ręcznie hasło na dany arkusz.
Przedstawiony kod ma za zadanie tylko chronić arkusz, bez hasła.

Artik

margerytka · EXCELent Man **Pomogła:** 3 razy Posty: 119

Na pewno nie ma hasła. Jestem pewna, ponieważ plik rozesłałam do większej grupy odbiorców i zarówno u mnie, jak i u nich wszystko jest ok, a error wyskakuje tylko jednej osobie. Stąd wydaje mi się, że coś jednocześnie robi, albo ma jakieś preferencje ustawione. Nie mogę za bardzo stanąć nad nią i prześledzić, co robi, bo to przełożony wysokiego szczebla i jakoś tak nie bardzo, zwłaszcza, że nie czuję się na tyle mocna, żeby wiedzieć, co sprawdzać...

A, co więcej, ta osoba, dostawała wcześniej już raport z takim samym kodem i jej działał, teraz był przesłany tylko update danych w arkuszu.

Na razie wymyśliłam tyle, że przerzucę tę ochronę na BeforeSave i kod będzie się wykonywał tylko u mnie przy modyfikacji raportu i zapisywaniu zmian... Kod jest w sumie po to, żeby raz, przy aktualizacji nie zapomnieć o ochronie (zresztą, litości, tak zakładać codziennie ochronę na 15 arkuszach), no a druga rzecz, na arkuszu jest grupowanie.

Ale, kurcze, nie do końca to rozwiązanie mi się podoba...

A.Ponkowski · słuchacz Posty: 13

Witam

Po prostu może spróbuj to:
http://www.pcworld.pl/new...szu.Excela.html

lub

http://office.microsoft.c...P010066252.aspx

margerytka · EXCELent Man **Pomogła:** 3 razy Posty: 119

No wlasnie nie bardzo. Wlasnie po to jest makro, zeby nie robic tego recznie. Jest to raport skladajacy sie z kilkunastu zakladek, z ktorych kazda jest update'owana codziennie. Czyli musialabym codziennie zdejmowac ochrone, wprowadzac dane i zakladac. Generalnie pracochlonne...

Artik · **Pomógł:** 1277 razy Posty: 3463

Czy Workbook_Open jest jedyną odpalaną procedurą w tym pliku?
Czy docelowy użytkownik korzysta jeszcze z jakichś makr, czy tylko "ogląda" raporty?

Artik

margerytka · EXCELent Man **Pomogła:** 3 razy Posty: 119

Cytat:

Czy Workbook_Open jest jedyną odpalaną procedurą w tym pliku?

tak

Cytat:

Czy docelowy użytkownik korzysta jeszcze z jakichś makr, czy tylko "ogląda" raporty?

tylko ogląda

jak przerobiłam ten fragment, czyli żeby się nie uruchamiał przy starcie, to po odpaleniu formatki tytułowej, zaczęło mu się wywalać z kolei na

Kod:

Private Sub Image7_Click()
ThisWorkbook.Worksheets("kaskada reklamacji").Select
Unload Me

Mam wrażenie, że odpala kilka pliików w jednej istancji excela? Nie wiem, czy to słuszny trop, ale jak sama tak zrobiłam, że otworzyłam w tzw. jednym oknie dwa pliki i próbowałam uruchomić kod z formatki (ale "aktywny" jest ten inny plik) to wtedy mam błąd. Czyli szuka w aktywnym skoroszycie tego konkretnego obiektu/arkusza i go nie znajduje. Dobrze kombinuję?

A jeżeli mam rację, to jak napisać np. powyższy kod, żeby otwierał ten konkretny arkusz w tym konkretnym pliku, niezależnie od tego, ile jest otwartych i który jest "na wierzchu"?

Artik · **Pomógł:** 1277 razy Posty: 3463

Przyznam, że trudno mi rozszyfrować jak działa plik po zmianach, bo podajesz tylko strzępy informacji.

margerytka · EXCELent Man **Pomogła:** 3 razy Posty: 119

Hej

na razie nic nie odpisuję, bo mi rzeczona osoba "z problemami" na jakieś wolne wybyła i nie mam królika doświadczalnego. Jak królik wróci, napiszę co dalej było. Na razie wprowadziłam kod aktywujący arkusze przed ich wybraniem, mam nadzieję, że to rozwiąże, przynajmniej częściowo, problem.

A czym się różni:

Kod:

ThisWorkbook.Worksheets("kaskada reklamacji").Activate

od

Kod:

ThisWorkbook.Worksheets("kaskada reklamacji").Select

?

Trebor · Excel Expert **Pomógł:** 1085 razy Posty: 2319

Można aktywować arkusz ukryty, ale nie można takiegoż wybrać.
Generalnie: aktywujemy pojedynczy element kolekcji, a wybrać możemy wiele.

margerytka · EXCELent Man **Pomogła:** 3 razy Posty: 119

Dorwałam się do laptopa "pana z problemem" ;-)

Po odpaleniu pliku, otwiera się formatka startowa raportu, ale po wybraniu któregoś przycisku przenoszącego do któregoś arkusza pojawia się komunikat:

Cytat:

Can't exit design mode because Control 'Command1Button can not be created

Załączam rzeczony plik.

Faktycznie, zupełnie nie pomyślałam o tym, że ta ochrona będzie tak ulotna. Dlatego na razie "ochraniają się" tylko arkusze, na których nie ma grupowania. Grupowanie jest tylko na jednym z nich. Komunikat pojawia się przy pliku w załączonej postaci.

Odbiorca otwiera tylko plik i porusza się po nim przyciskami. Natomiast raportowiec w momencie rozpoczęcia pracy wchodzi w Arkusz --> Odkryj --> konfiguracyjny i wybiera przycisk wersji roboczej, potem przed przesłaniem do ogółu wybiera drugi przycisk wersji do prezentacji (wtedy ukrywają się wszystkie robocze arkusze, zakładają ochrony itp.)

plik.rar

Pobierz Plik ściągnięto 14 raz(y) 81.01 KB

Artik · **Pomógł:** 1277 razy Posty: 3463

Maggie, przechlapany ten "twój" błąd.
Bill używa okrągłych słówek na ten temat. W Word-zie zaleca skompilowanie kodu, w innych aplikacjach proponuje... zajrzeć do helpa. :mrgreen:

Na innych forach też nic ciekawego nie znalazłem.

Cóż, pozostaje działać po omacku. :-(

1. U mnie twój plik nie wywoływał żadnych błędów, podobnie jak u wielu twoich użytkowników. Można więc wykoncypować sobie np. że u "królika" zepsuł się Excel. Być może, że kliknięcie w Pomoc/Wykryj i napraw coś pomoże.
2. Przeglądając dostarczony "towar" ;-)

zauważyłem, że na arkuszach istnieją przyciski z paska narzędziowego "Przybornik formantów". Mają one domyślnie właściwość TakeFocusOnClick ustawioną na True. Zmień we wszystkich arkuszach, gdzie występują takie przyciski na wartość False. Znane są przypadki (na tym forum chyba dwukrotnie miałem z tym do czynienia), że ustawienie domyślne (True) powodowało problemy w działaniu kodu. Zmień i zawsze rób to w przyszłości. A najlepiej, jeśli nic nie stoi na przeszkodzie, używaj przycisków z paska Formularze, gdyż widzę z praktyki, że formanty ActiveX nie są zbyt dobrze dopracowane do współdziałania z arkuszami.
3. Jeszcze jedna myśl namolnie powraca :-)

- to uszkodzenie projektu. Co prawda u wszystkich (poza "królikiem") działa, ale nie zaszkodzi projekt oczyścić. Czyszczenie polega na wyeksortowaniu wszystkich modułów w znane ci miejsce, usunięciu całego kodu z projektu (może warto też usunąć formanty ActiveX z arkuszy), zapisaniu pliku i zaimportowaniu modułów spowrotem. Przy imporcie kod zawarty w modułach arkuszy pojawi ci się w modułach klas. Należy go ręcznie przekopiować do odpowiednich modułów arkuszy, a moduły klas usunąć. Jeżeli usunęłaś przyciski ActiveX z arkuszy, to zbuduj je ponownie lub zastąp przyciskami z paska Formularze, poprawiając też kod. Po całej operacji plik ponownie zapisać.

Powodzenia życzę.
I daj znać jak by coś pomogło.

Artik