Mal wieder Formelschutz

Computer: Software & Programmierung Office Software
1

Hallo zusammen,

sorry, wenn ich nerve,
kann man die Gruppierung und die Makroausführung aktiv lassen
und trotzdem die Formeln schützen?

Ich habe den Haken aus ZELLEN FORMATIEREN --> SCHUTZ
bei den Eingabefeldern deaktiviert und dann den Blattschutz
aktiviert.

Jetzt läßt er mich aber nicht mehr an die gruppierten Zeilen (+/-)
und meine Makros zum Ein- und Ausblenden laufen auch nicht mehr?

Gibt es da eine Lösung?

Gruß

Rolf

2

kann man die Gruppierung und die Makroausführung aktiv lassen
und trotzdem die Formeln schützen?
Ich habe den Haken aus ZELLEN FORMATIEREN --> SCHUTZ
bei den Eingabefeldern deaktiviert und dann den Blattschutz
aktiviert.
Jetzt läßt er mich aber nicht mehr an die gruppierten Zeilen
(+/-)
und meine Makros zum Ein- und Ausblenden laufen auch nicht
mehr?

Hi Rolf,
anstatt +/- musst du nun Makros nehmen:

Sub ein()
eing = InputBox(„Passwort“)
If eing „xyz“ Then Exit Sub
ActiveSheet.Unprotect Password:=„xyz“
Rows(„1:100“).Group
ActiveSheet.Protect Password:=„xyz“
End Sub

Sub aus()
eing = InputBox(„Passwort“)
If eing „xyz“ Then Exit Sub
ActiveSheet.Unprotect Password:=„xyz“
Rows(„1:100“).Ungroup ’ oder ActiveSheet.Cells.ClearOutline
ActiveSheet.Protect Password:=„xyz“
End Sub

Protect hat noch mehrere Parameter, schau mal in der Hilfe.
In deinen Ein/Ausblendmakros musst du wie oben den Schutz aufheben usw.
Gruß
Reinhard

3

Hallo Reinhard,

das sehe ich mir Montag genauer an. Das „usw“ bereitet mir allerdings
noch Kopfzerbrechen :wink:

Danke erstmal.

Gruß

Rolf

Danke erstmal

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

4

Nachtrag

kann man die Gruppierung und die Makroausführung aktiv lassen
und trotzdem die Formeln schützen?
Ich habe den Haken aus ZELLEN FORMATIEREN --> SCHUTZ
bei den Eingabefeldern deaktiviert und dann den Blattschutz
aktiviert.
Jetzt läßt er mich aber nicht mehr an die gruppierten Zeilen
(+/-)
und meine Makros zum Ein- und Ausblenden laufen auch nicht
mehr?

Hi Rolf,
anstatt +/- musst du nun Makros nehmen:

Sub ein()
eing = InputBox(„Passwort“)
If eing „xyz“ Then Exit Sub
ActiveSheet.Unprotect Password:=„xyz“
Rows(„1:100“).Group
ActiveSheet.Protect Password:=„xyz“
End Sub

Sub aus()
eing = InputBox(„Passwort“)
If eing „xyz“ Then Exit Sub
ActiveSheet.Unprotect Password:=„xyz“
Rows(„1:100“).Ungroup ’ oder ActiveSheet.Cells.ClearOutline
ActiveSheet.Protect Password:=„xyz“
End Sub

Protect hat noch mehrere Parameter, schau mal in der Hilfe.
In deinen Ein/Ausblendmakros musst du wie oben den Schutz
aufheben usw.
Gruß
Reinhard

Moin zusammen,

nur um das abzuschließen, damit klappts:

 Private Sub Workbook\_Open()
 With Tabelle(1
 .Protect UserInterfaceOnly:=True
 .EnableOutlining = True
 End With
End Sub

Der Blattschutz ist aktiviert und trotzdem kann ich mit
der Gruppierung und den Ein/Ausblendmakros arbeiten.

Gruß

Rolf