Wydaje się, że to działa świetnie, ale kiedy zamykam i ponownie otwieram skoroszyt, napotykam ten sam problem — nie mogę rozwinąć moich zwiniętych grup.

Dziękuję bardzo, bracie, to działa naprawdę nieźle. Wielkie dzięki

Mam ten sam problem, kiedy zamykam skoroszyt. Jakieś pomysły, aby to naprawić?

Private Sub Workbook_Open() Dim wsh As Variant For Each Wsh In Worksheets(Array("TD_ phase_3", "RS_Phase_2")) wsh.EnableOutlining = True wsh.Protect Password:="260615", DrawingObjects:=False, _ content: =Prawda, _ Scenariusze:=Prawda, _ AllowFiltering:=Prawda, _ AllowFormattingCells:=Prawda, _ userinterfaceonly:=Prawda Następny wsh Koniec Sub

Witam! Użyłem pierwszego makra z powodzeniem, a potem miałem ten sam problem z zamknięciem skoroszytu i makro już nie działało. Widzę powyższe rozwiązanie, ale nie mogę go w ogóle uruchomić. Czy mógłbyś mnie przeprowadzić? Czy łączę oba kody, czy po prostu używam tego drugiego? Jeśli moje hasło to „pies”, czy mam zastąpić jedną z wartości w kodzie? Aplikuję tylko do jednego arkusza roboczego ("Arkusz1"); czy używam tego gdziekolwiek? Z góry bardzo dziękuję!!

Pomóż mi, chcę zwinąć i rozwinąć niektóre role i kolumny w chronionym arkuszu kalkulacyjnym programu Excel. Jak mogę użyć do tego makr? Próbowałem tego, co pokazałeś, ale po prostu nie działają w moim arkuszu kalkulacyjnym. Proszę pomóż.

Witam, proszę o pomoc w rozwijaniu i zwijaniu rolek i kolumn w chronionym arkuszu kalkulacyjnym programu Excel. Próbowałem użyć tych, które pokazałeś powyżej, ale nie działają.

Czy zostało zadane pytanie / odpowiedź? Gdzie w kodzie możesz określić/zmienić osobiste hasło?

Jak zmienić hasło na inną wartość?

Kiedy używam polecenia, widzę komunikat o błędzie, jak pokazano poniżej:
Private Sub Workbook_Open ()
Dim wsh Jako wariant
Dla każdego wsh In Arkusze(Array("TD_faza_3", "RS_Phase_2"))
wsh.EnableOutlining = Prawda
wsh.Protect Password:="260615", DrawingObjects:=Fałsz, _
zawartość:=Prawda, _
Scenariusze:=Prawda, _
Zezwalaj na filtrowanie:=Prawda, _
AllowFormattingCells:=True, _
userinterfaceonly:=True
Następny wsz
End Sub
Błąd wykonania „9”:
Indeks dolny poza zakresem

to działa przez chwilę, po zamknięciu i ponownym otwarciu zatrzymuje się :(

Skoroszyt pomocniczy_Otwórz()
„Aktualizacja 20140603”
Dim xWs jako arkusz roboczy
Ustaw xWs = Application.ActiveSheet
Dim xPws jako ciąg
xPws = "rfc" ''Application.InputBox("Hasło:", xTitleId, "", Typ:=2)
xWs.Protect Hasło:=xPws, Userinterfaceonly:=True
xWs.EnableOutlining = Prawda
End Sub

Mam ten kod do działania. Ale kiedy zamykam i ponownie otwieram, muszę przejść do zakładki programisty, wybrać przycisk makr, wybrać uruchom i wprowadzić hasło.

Czy istnieje sposób na usunięcie hasła z kodu LUB kod automatycznego uruchamiania, który automatycznie uruchomi to marco i wprowadzi hasło?

Aby rozwiązać problem, który nie działa w twoim pliku po zamknięciu go i ponownym otwarciu, musisz wkleić kod VBA w „ThisWorkbook” w obszarze Microsoft Excel Objects zamiast nowego modułu. Spowoduje to automatyczne uruchomienie makra za każdym razem, gdy plik zostanie otwarty.

czy masz wizualizacje dla kodu VBA omówionego 6 dni temu, aby peachyclean o ThisWorkbook pod Microsoft Objects zamiast nowego modułu. Funkcjonalność zostaje utracona, gdy wracam do skoroszytu

Ktoś może tego potrzebować, myślę, że wymyśliłem, jak to działa.

Po pierwsze, twój kod musi być napisany w „ThisWorkbook” pod obiektami Microsoft Excel, jak sugeruje @peachyclean.
Po drugie, weź kod, który napisał @Sravanthi, i wklej go do wyżej wymienionej lokalizacji.

Skoroszyt pomocniczy_Otwórz()
„Aktualizacja 20140603”
Dim xWs jako arkusz roboczy
Ustaw xWs = Application.ActiveSheet
Dim xPws jako ciąg
xPws = "rfc" ''Application.InputBox("Hasło:", xTitleId, "", Typ:=2)
xWs.Protect Hasło:=xPws, Userinterfaceonly:=True
xWs.EnableOutlining = Prawda
End Sub

Chodzi o to, że musisz znaleźć się na arkuszu, który chcesz chronić, ale zezwalając na grupowanie, i zapisać skoroszyt i zamknąć, bez ochrony. Teraz jeśli go otworzysz, makro uruchomi się automatycznie, dzięki czemu arkusz będzie chroniony hasłem „rfc”. Teraz możesz korzystać z grupowania, arkusz jest chroniony.

W moim rozwiązaniu zmodyfikowałem zastosowane hasło, więc możesz przepisać dowolne hasło TUTAJ:
xPws = "WRITEANYPASSWORDHERE" ''Application.InputBox("Hasło:", xTitleId, "", Typ:=2)

Ponadto nie chciałem, aby arkusz, który ma być chroniony, był aktywny podczas otwierania pliku, dlatego zmodyfikowałem tę część:
Ustaw xWs = Application.ActiveSheet ->
Ustaw xWs = Application.Worksheets("TUTAJ NAZWA KARTY WRITEAN")

Teraz działa jak zaklęcie, arkusz o nazwie 'WRITEANYSHEET'SNAMEHERE' jest chroniony, ale grupowanie ma zastosowanie. Myślę, że na dłuższą metę problem będzie polegał na tym, że jeśli chcę zmodyfikować ten plik i zachować rozwiązanie, muszę odbezpieczyć ten arkusz, aby działał przy następnym otwarciu. Myślę, że możesz napisać kolejne makro, które automatycznie odblokuje ochronę podczas zamykania :)


Mam nadzieję, że to pomogło.

wielki

Jak grupować i rozgrupowywać wiersze i kolumny w chronionym arkuszu roboczym?

Kurwa, to później ukradło mi Excela i zmieniło hasło prywatnie