Det här verkar fungera utmärkt, men när jag stänger och öppnar arbetsboken igen stöter jag på samma problem - jag kan inte utöka mina kollapsade grupper.

Tack så mycket brorsan detta fungerar riktigt nice.Thanks mycket

Jag har samma problem när jag stänger arbetsboken. Några idéer för att fixa det?

Private Sub Workbook_Open() Dim wsh Som variant för varje wsh In Worksheets(Array("TD_ phase_3", "RS_Phase_2")) wsh.EnableOutlining = True wsh.Protect Password:="260615", DrawingObjects:=False, _ contents: =True, _ Scenarios:=True, _ AllowFiltering:=True, _ AllowFormattingCells:=True, _ userinterfaceonly:=True Next wsh End Sub

Hallå! Jag använde det första makrot med framgång och hade sedan samma problem med att stänga arbetsboken och makrot fungerade inte längre. Jag ser lösningen ovan men kan inte få det att fungera alls. Skulle du kunna kliva igenom mig? Kombinerar jag båda koderna eller använder jag bara den senare? Om mitt lösenord är "hund" byter jag ut ett av värdena i koden? Jag ansöker bara om ett arbetsblad ("Sheet1"); använder jag det någonstans? Stort tack på förhand!!

Snälla hjälp mig, jag vill komprimera och utöka några rullar och kolumner i ett excel-kalkylblad som är skyddat. Hur kan jag använda makron för att göra detta? Jag har provat det du visade men de fungerar helt enkelt inte på mitt kalkylark. Snälla hjälp.

Hej, hjälp mig att expandera och komprimera rullar och kolumner i excel-kalkylark som är skyddat. Jag försökte använda de du visade ovan men de fungerar inte.

Har det blivit frågat/besvarat? Var i koden kan man ange/ändra ett personligt lösenord?

Hur kan jag ändra lösenordet till ett annat värde?

När jag använder kommandot ser jag ett felmeddelande som visas nedan:
Privat Sub Workbook_Open ()
Dim wsh som variant
För varje wsh i kalkylblad(Array("TD_ phase_3", "RS_Phase_2"))
wsh.EnableOutlining = Sant
wsh.Protect Password:="260615", DrawingObjects:=False, _
contents:=Sant, _
Scenarier:=Sant, _
Tillåtna filtrering: = true, _
TillåtsformatingCells: = true, _
userinterfaceonly:=Sant
Nästa wsh
End Sub
Körtidsfel '9':
Subscript utanför sortimentet

det här fungerar ett tag, när du väl stänger och öppnar igen så slutar det :(

Sub Workbook_Open()
'Uppdatering 20140603
Dim xWs Som arbetsblad
Ställ in xWs = Application.ActiveSheet
Dim xpws som sträng
xPws = "rfc" ''Application.InputBox("Lösenord:", xTitleId, "", Typ:=2)
xWs.Protect Password:=xPws, Userinterfaceonly:=True
xWs.EnableOutlining = Sant
End Sub

Jag har fått den här koden att fungera. Men när jag stänger och öppnar igen måste jag gå till utvecklarfliken, välj makroknappen, välj kör och ange lösenordet.

Finns det något sätt att ta bort lösenordet från koden ELLER en autokörningskod som automatiskt kör denna marco och anger lösenordet?

För att åtgärda problemet med att detta inte fungerar i din fil efter att du har stängt den och öppnat den igen, måste du klistra in VBA-koden i "ThisWorkbook" under Microsoft Excel Objects istället för en ny modul. Detta kommer sedan automatiskt att köra makrot varje gång filen öppnas.

har du bilder för VBA-koden som diskuterades för 6 dagar sedan för att peachyclean om ThisWorkbook under Microsoft Objects istället för en ny modul. Funktionaliteten går förlorad när jag går tillbaka till min arbetsbok

Någon kanske behöver det här, jag tror att jag har kommit på hur man får det här att fungera.

Först måste din kod skrivas i "ThisWorkbook" under Microsoft Excel Objects, som @peachyclean föreslår.
För det andra, ta koden som @Sravanthi skrev och klistra in på ovan nämnda plats.

Sub Workbook_Open()
'Uppdatering 20140603
Dim xWs Som arbetsblad
Ställ in xWs = Application.ActiveSheet
Dim xpws som sträng
xPws = "rfc" ''Application.InputBox("Lösenord:", xTitleId, "", Typ:=2)
xWs.Protect Password:=xPws, Userinterfaceonly:=True
xWs.EnableOutlining = Sant
End Sub

Saken är att du måste vara på arket som du vill skydda men tillåta att använda gruppering, och spara arbetsboken och stänga, utan att skydda. Om du nu öppnar det, startar makrot automatiskt, det kommer att göra arket skyddat med lösenordet "rfc". Nu kan du använda grupperingen, arket är skyddat.

För min lösning har jag ändrat lösenordet, så att du kan skriva om vilket lösenord som helst HÄR:
xPws = "WRITEANYPASSWORDHERE" ''Application.InputBox("Lösenord:", xTitleId, "", Typ:=2)

Dessutom ville jag inte att arket som skulle skyddas var aktivt när jag öppnade filen, därför har jag ändrat den här delen:
Ställ in xWs = Application.ActiveSheet ->
Ställ in xWs = Application.Worksheets("WRITEANYSHEET'SNAMEHERE")

Nu fungerar det som charm, arket "WRITEANYSHEET'SNAMEHERE" är skyddat men grupperingen är tillämplig. På lång sikt tror jag att problemet kommer att vara att om jag vill modifiera den här filen och behålla lösningen måste jag avskydda det här arket för att få det att fungera vid nästa öppning. Jag antar att du kan skriva ett annat makro för att automatiskt ta bort skyddet när du stänger :)


Jag hoppas att det hjälpte.

formidabel

Hur grupperar man och delar upp rader och kolumner i ett skyddat arbetsblad?

fan, detta stal mitt excel senare och bytte lösenord privat