Dette ser ud til at fungere godt, men når jeg lukker og genåbner projektmappen, støder jeg på det samme problem - jeg kan ikke udvide mine sammenklappede grupper.

Tusind tak, bro, det fungerer rigtig godt. Mange tak

Jeg har det samme problem, når jeg lukker projektmappen. Nogle ideer til at rette det?

Private Sub Workbook_Open() Dim wsh Som Variant For Hver wsh In Worksheets(Array("TD_ phase_3", "RS_Phase_2")) wsh.EnableOutlining = True wsh.Protect Password:="260615", DrawingObjects:=False, _ contents: =True, _ Scenarier:=True, _ AllowFiltering:=True, _ AllowFormattingCells:=True, _ userinterfaceonly:=True Next wsh End Sub

Hej! Jeg brugte den første makro med succes og havde derefter det samme problem med at lukke projektmappen, og makroen virkede ikke længere. Jeg ser løsningen ovenfor, men kan slet ikke få det til at virke. Vil du have noget imod at træde mig igennem? Skal jeg kombinere begge koder eller bare bruge sidstnævnte? Hvis mit kodeord er "hund", skal jeg erstatte en af ​​værdierne i koden? Jeg ansøger kun på ét arbejdsark ("Sheet1"); bruger jeg det nogen steder? På forhånd mange tak!!

Hjælp mig venligst, jeg ønsker at skjule og udvide nogle ruller og kolonner i et excel-regneark, der er beskyttet. Hvordan kan jeg bruge makroer til at gøre dette? Jeg har prøvet det du viste, men de virker bare ikke på mit regneark. Hjælp venligst.

Hej, hjælp mig venligst med at udvide og kollapse ruller og kolonner i excel-regneark, der er beskyttet. Jeg prøvede at bruge dem, du viste ovenfor, men de virker ikke.

Er det blevet spurgt/besvaret? Hvor i koden kan du angive/ændre en personlig adgangskode?

Hvordan kan jeg ændre adgangskoden til en anden værdi?

Når jeg bruger kommandoen, ser jeg en fejlmeddelelse som vist nedenfor:
Privat underarbejdsbog_Åben()
Dim wsh som variant
For hver wsh i regneark(Array("TD_ phase_3", "RS_Phase_2"))
wsh.EnableOutlining = Sand
wsh.Protect Password:="260615", DrawingObjects:=False, _
indhold:=Sandt, _
Scenarier:=Sandt, _
AllowFiltering:=Sandt, _
AllowFormattingCells:=True, _
userinterfaceonly:=Sandt
Næste wsh
End Sub
Kørselstidsfejl '9':
Abonnement uden for rækkevidde

dette virker lidt, når du lukker og åbner igen, stopper det :(

Sub Workbook_Open()
'Opdatering 20140603
Dim xWs Som arbejdsark
Indstil xWs = Application.ActiveSheet
Dim xPws som streng
xPws = "rfc" ''Application.InputBox("Password:", xTitleId, "", Type:=2)
xWs.Protect Password:=xPws, Userinterfaceonly:=True
xWs.EnableOutlining = Sand
End Sub

Jeg har fået denne kode til at virke. Men når jeg lukker og åbner igen, skal jeg gå til udviklerfanen, vælge makro-knappen, vælge kør og indtaste adgangskoden.

Er der en måde at fjerne adgangskoden fra koden på ELLER en automatisk kørekode, som automatisk kører denne marco og indtaster adgangskoden?

For at løse problemet med, at dette ikke virker i din fil, efter du har lukket den og åbnet den igen, skal du indsætte VBA-koden i "ThisWorkbook" under Microsoft Excel Objects i stedet for et nyt modul. Dette vil så automatisk køre makroen hver gang filen åbnes.

har du visuals til VBA-koden diskuteret for 6 dage siden for at peachyclean om ThisWorkbook under Microsoft Objects i stedet for et nyt modul. Funktionaliteten går tabt, når jeg går tilbage til min projektmappe

Nogen har måske brug for dette, jeg tror, ​​jeg har fundet ud af, hvordan man får det til at fungere.

Først skal din kode skrives i "ThisWorkbook" under Microsoft Excel Objects, som @peachyclean foreslår.
For det andet, tag koden, som @Sravanthi skrev, og indsæt til ovennævnte placering.

Sub Workbook_Open()
'Opdatering 20140603
Dim xWs Som arbejdsark
Indstil xWs = Application.ActiveSheet
Dim xPws som streng
xPws = "rfc" ''Application.InputBox("Password:", xTitleId, "", Type:=2)
xWs.Protect Password:=xPws, Userinterfaceonly:=True
xWs.EnableOutlining = Sand
End Sub

Sagen er, at du skal være på det ark, du vil beskytte, men tillade at bruge gruppering, og gemme projektmappen og lukke uden at beskytte. Hvis du nu åbner den, starter makroen automatisk, den vil gøre arket beskyttet med adgangskoden "rfc". Nu kan du bruge grupperingen, arket er beskyttet.

Til min løsning har jeg ændret den anvendte adgangskode, så du kan omskrive enhver adgangskode HER:
xPws = "WRITEANYPASSWORDHERE" ''Application.InputBox("Password:", xTitleId, "", Type:=2)

Desuden ønskede jeg ikke, at arket, der skal beskyttes, var aktivt, når jeg åbnede filen, derfor har jeg ændret denne del:
Indstil xWs = Application.ActiveSheet ->
Indstil xWs = Application.Worksheets("WRITEANYSHEET'SNAMEHERE")

Nu fungerer det som charme, ark med navnet 'WRITEANYSHEET'SNAMEHERE' er beskyttet, men grupperingen er gældende. På lang sigt tror jeg, at problemet vil være, at hvis jeg vil ændre denne fil og beholde løsningen, skal jeg fjerne beskyttelsen af ​​dette ark for at få det til at fungere ved næste åbning. Jeg gætter på, at du kan skrive en anden makro for automatisk at fjerne beskyttelsen, når du lukker :)


Jeg håber det hjalp.

formidabel

Hvordan grupperes og opdeles rækker og kolonner i beskyttet regneark?

f*ck, dette stjal mit excel senere og ændrede adgangskode privat