Excel Forum - Porady, Pomoc,  Excel Help, Excel FAQ Strona Główna
 FAQ  RegulaminRegulamin  Szukaj   Użytkownicy   Grupy   Rejestracja   Profil   Twoje wiadomości   Zaloguj 


Poprzedni temat «» Następny temat
ID tematu: 64433 Skopiuj do schowka czyszczenie autofiltra na zablokowanym arkuszu
Autor Wiadomość
zikom
Starszy Forumowicz


Posty: 25
Wysłany: 14-03-2019, 16:05   czyszczenie autofiltra na zablokowanym arkuszu

witam,
co mam dopisać do tego skryptu aby działał przycisk czyszczenia autofiltra w trybie chronionym


Kod:
Private Sub Workbook_Open()
    With Worksheets("Arkusz1")
        .EnableOutlining = True
        .EnableAutoFilter = True
        .Protect "ala", UserInterfaceOnly:=True
     
    End With
End Sub


----------
zikom
ID posta: 364233 Skopiuj do schowka
 
 
zikom
Starszy Forumowicz


Posty: 25
Wysłany: 15-03-2019, 12:27   

Może trochę wyjaśnień.
Poniższy kod umożliwia prace na zabezpieczonym pliku (wprowadzanie danych) i korzystanie z grupowania i filtrowania. Wadą jego jest,że nie można "jednym kliknięciem" wyczyścić założonych filtrów. Na zwykłym zablokowanym arkuszu nie ma możliwości korzystania z grupowania (rozwijanie i zwijanie), żaden "ptaszek" w wariantach ochrony nie umożliwia korzystania z grupowania stąd powstał ten kod, który umożliwia stosowanie grupowania i filtrowania - ale..... do szczęścia brakuje mi czyszczenia filtrów jednym przyciskiem.
Może ktoś pomoże

Pozdrawiam
zikom
ID posta: 364296 Skopiuj do schowka
 
 
Artik 



Wersja: Win Office 365
Pomógł: 2644 razy
Posty: 8757
Wysłany: 20-03-2019, 12:55   

Żaden problem, by utworzyć sobie przycisk i podpiąć do niego makro, które usunie wszystkie kryteria filtrowania. Wystarczy wykorzystać metodę ShowAllData obiektu Worksheet, którą należy dodatkowo opakować ignorowaniem błędów, gdyż użycie ShowAllData na arkuszu, gdzie nie wybrano żadnego kryterium filtrowania, zakończy się błędem czasu wykonania. Ponieważ arkusz zabezpieczasz w specjalnym trybie (UserInterfaceOnly), przy czyszczeniu kryteriów filtra nie ma potrzeby od- i zabezpieczania arkusza.

Artik
_________________
Persistence is a virtue in the world of programming.
ID posta: 364606 Skopiuj do schowka
 
 
zikom
Starszy Forumowicz


Posty: 25
Wysłany: 25-03-2019, 12:02   

Dzięki Artik, tak zrobiłem i wszystko działa

Pozdrawiam

zikom
ID posta: 364877 Skopiuj do schowka
 
 
Wyświetl posty z ostatnich:   
Odpowiedz do tematu
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach
Nie możesz załączać plików na tym forum
Możesz ściągać załączniki na tym forum
Dodaj temat do Ulubionych
Wersja do druku

Skocz do:  

Powered by phpBB modified by Przemo © 2003 phpBB Group
Theme xandgreen created by spleen& Programosy modified v0.3 by warna
Opieka techniczna www.marketingNET.pl

Archiwum

Strona używa plików cookies.

Kliknij tutaj, żeby dowiedzieć się jaki jest cel używania cookies oraz jak zmienić ustawienia cookie w przeglądarce.
Korzystając ze strony użytkownik wyraża zgodę na używanie plików cookies, zgodnie z bieżącymi ustawieniami przeglądarki.
Sprawdź, w jaki sposób przetwarzamy dane osobowe