Das scheint großartig zu funktionieren, aber wenn ich die Arbeitsmappe schließe und wieder öffne, stoße ich auf das gleiche Problem – ich kann meine reduzierten Gruppen nicht erweitern.

Vielen Dank, Bruder, das funktioniert wirklich gut. Vielen Dank

Ich habe das gleiche Problem, wenn ich die Arbeitsmappe schließe. Irgendwelche Ideen, um es zu beheben?

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, _ Inhalt: =True, _ Scenarios:=True, _ AllowFiltering:=True, _ AllowFormattingCells:=True, _ userinterfaceonly:=True Next wsh End Sub

Hallo! Ich habe das erste Makro erfolgreich verwendet und hatte dann das gleiche Problem, die Arbeitsmappe zu schließen, und das Makro funktionierte nicht mehr. Ich sehe die Lösung oben, kann das aber überhaupt nicht zum Laufen bringen. Würde es Ihnen etwas ausmachen, mich durchzutreten? Kombiniere ich beide Codes oder verwende nur letzteren? Wenn mein Passwort "Hund" ist, ersetze ich einen der Werte im Code? Ich beantrage nur ein Arbeitsblatt ("Sheet1"); benutze ich das irgendwo? Vielen Dank im Voraus!!

Bitte helfen Sie mir, ich möchte einige Rollen und Spalten in einer geschützten Excel-Tabelle reduzieren und erweitern. Wie kann ich Makros dazu verwenden? Ich habe versucht, was Sie gezeigt haben, aber sie funktionieren einfach nicht in meiner Tabelle. Bitte helfen Sie.

Hallo, bitte helfen Sie mir, Rollen und Spalten in einer geschützten Excel-Tabelle zu erweitern und zu reduzieren. Ich habe versucht, die oben gezeigten zu verwenden, aber sie funktionieren nicht.

Wurde gefragt/geantwortet? Wo im Code können Sie ein persönliches Passwort festlegen / ändern?

Wie kann ich das Passwort auf einen anderen Wert ändern?

Wenn ich den Befehl verwende, sehe ich eine Fehlermeldung wie unten gezeigt:
Private Sub Workbook_Open ()
Dim wsh als Variante
Für jeden wsh in Arbeitsblättern (Array ("TD_ Phase_3", "RS_Phase_2"))
wsh.EnableOutlining = True
wsh.Protect Password:="260615", DrawingObjects:=False, _
Inhalt:=Wahr, _
Szenarien:=Wahr, _
AllowFiltering:=Wahr, _
AllowFormattingCells:=True, _
userinterfaceonly:=Wahr
Nächster Wunsch
End Sub
Laufzeitfehler '9':
Index außerhalb des Bereichs

Das funktioniert eine Weile, sobald Sie es schließen und wieder öffnen, hört es auf :(

Sub Workbook_Open()
'Update 20140603
Dim xWs als Arbeitsblatt
Legen Sie xWs = Application.ActiveSheet fest
Dim xPws als String
xPws = "rfc" ''Application.InputBox("Password:", xTitleId, "", Type:=2)
xWs.Protect Password:=xPws, Userinterfaceonly:=True
xWs.EnableOutlining = True
End Sub

Ich habe diesen Code zum Laufen gebracht. Aber wenn ich schließe und wieder öffne, muss ich zur Registerkarte "Entwickler" gehen, die Schaltfläche "Makros" auswählen, "Ausführen" auswählen und das Passwort eingeben.

Gibt es eine Möglichkeit, das Passwort aus dem Code zu entfernen ODER einen Autorun-Code, der diesen Marco automatisch ausführt und das Passwort eingibt?

Um das Problem zu beheben, dass dies in Ihrer Datei nicht funktioniert, nachdem Sie sie geschlossen und erneut geöffnet haben, müssen Sie den VBA-Code in „DieseArbeitsmappe“ unter Microsoft Excel-Objekte anstelle eines neuen Moduls einfügen. Dadurch wird das Makro dann automatisch jedes Mal ausgeführt, wenn die Datei geöffnet wird.

Haben Sie Visuals für den VBA-Code, der vor 6 Tagen besprochen wurde, um ThisWorkbook unter Microsoft Objects anstelle eines neuen Moduls zu peachyclean. Die Funktionalität geht verloren, wenn ich zurück in meine Arbeitsmappe gehe

Jemand könnte das brauchen, ich glaube, ich habe herausgefunden, wie das funktioniert.

Zunächst muss Ihr Code in „ThisWorkbook“ unter Microsoft Excel Objects geschrieben werden, wie @peachyclean vorschlägt.
Nehmen Sie zweitens den Code, den @Sravanthi geschrieben hat, und fügen Sie ihn an der oben genannten Stelle ein.

Sub Workbook_Open()
'Update 20140603
Dim xWs als Arbeitsblatt
Legen Sie xWs = Application.ActiveSheet fest
Dim xPws als String
xPws = "rfc" ''Application.InputBox("Password:", xTitleId, "", Type:=2)
xWs.Protect Password:=xPws, Userinterfaceonly:=True
xWs.EnableOutlining = True
End Sub

Die Sache ist, dass Sie sich auf dem Blatt befinden müssen, das Sie schützen möchten, aber die Verwendung der Gruppierung zulassen, und die Arbeitsmappe speichern und schließen müssen, ohne sie zu schützen. Wenn Sie es jetzt öffnen, wird das Makro automatisch gestartet, es wird das Blatt mit dem Passwort "rfc" schützen. Jetzt können Sie die Gruppierung verwenden, das Blatt ist geschützt.

Für meine Lösung habe ich das angewendete Passwort geändert, sodass Sie jedes Passwort HIER neu schreiben können:
xPws = "WRITEANYPASSWORHERE" ''Application.InputBox("Password:", xTitleId, "", Type:=2)

Außerdem wollte ich nicht, dass das zu schützende Blatt beim Öffnen der Datei aktiv ist, daher habe ich diesen Teil geändert:
Setzen Sie xWs = Application.ActiveSheet ->
Setze xWs = Application.Worksheets("WRITEANYSHEET'SNAMEHERE")

Jetzt funktioniert es wie ein Zauber, das Blatt mit dem Namen 'WRITEANYSHEET'SNAMEHERE' ist geschützt, aber die Gruppierung ist anwendbar. Auf lange Sicht denke ich, dass das Problem darin bestehen wird, dass ich, wenn ich diese Datei ändern und die Lösung behalten möchte, den Schutz dieses Blatts aufheben muss, damit es beim nächsten Öffnen funktioniert. Ich denke, Sie können ein anderes Makro schreiben, um den Schutz beim Schließen automatisch aufzuheben :)


Ich hoffe es hat geholfen.

gewaltig

Wie kann man Zeilen und Spalten in einem geschützten Arbeitsblatt gruppieren und die Gruppierung aufheben?

Scheiße, das hat später mein Excel gestohlen und das Passwort privat geändert