Gliederung, Filter und Spalten bearbeiten bei Blattschutz

[Rabe]

Hi Veit,

Sub BereichLöschen()
With Worksheets("ERisk Preise ")
    .Range(.Cells(4, 3), .Cells(9, 10)).ClearContents
    .Range(.Cells(11, 3), .Cells(16, 10)).ClearContents
    .Range(.Cells(18, 3), .Cells(23, 10)).ClearContents
    .Range(.Cells(25, 3), .Cells(30, 10)).ClearContents
    .Range(.Cells(32, 3), .Cells(37, 10)).ClearContents
    .Range(.Cells(39, 3), .Cells(44, 10)).ClearContents
    .Range(.Cells(46, 3), .Cells(2439, 10)).ClearContents
    .Range(.Cells(4, 14), .Cells(9, 21)).ClearContents
    .Range(.Cells(11, 14), .Cells(16, 21)).ClearContents
    .Range(.Cells(18, 14), .Cells(23, 21)).ClearContents
    .Range(.Cells(25, 14), .Cells(30, 21)).ClearContents
    .Range(.Cells(32, 14), .Cells(37, 21)).ClearContents
    .Range(.Cells(39, 14), .Cells(44, 21)).ClearContents
    .Range(.Cells(46, 14), .Cells(2438, 21)).ClearContents
   
End With
End Sub

Das könnte so auch gehen:

Code:

Sub BereichLöschen()
   With Worksheets("ERisk Preise ")
      For I = 4 To 46 Step 7
         For J = 9 To 44 Step 7
            .Range(.Cells(I, 3), .Cells(J, 10)).ClearContents
            .Range(.Cells(I, 14), .Cells(J, 21)).ClearContents
         Next J
      Next I
      .Range(.Cells(46, 3), .Cells(2439, 10)).ClearContents
      .Range(.Cells(46, 14), .Cells(2438, 21)).ClearContents
   End With
End Sub

[Veit]

Moinsen Rabe,

danke für die Info. Das war aber nicht mein Problem. Ich habe es nur angefügt, damit bekannt ist was noch alles hinterlegt und entsprechend genutzt wird. Vielleich hat es ja damit etwas zu tun.
Danke trotzdem

[schauan]

Hallo Veit,

dass Du beim Öffnen 3x nach dem Schutz gefragt wirst, liegt nicht an diesem Makro. In Deiner Datei muss dann noch irgendwo etwas stehen, was auf irgendeinem Blatt was ändern will. Hast Du denn in DieseArbeitsmappe einen Code? Eventuell müssen einige Blätter ohne Blattschutz bleiben?

Wenn Du in Deiner Mappe Blätter mit unterschiedlichem Passwort bzw auch ohne hast, musst DU das im Code differenzieren. Allerdings bräuchte man dann auch das Passwort dazu.

Wenn das Makro aus dem Beitrag von 16:26 funktioniert hat, muss das eigentlich auch funktionieren. Bei den Blattschutzeinstellungen ist jedenfalls nix anders. Ansonsten müsste man sich mal die Datei anschauen.

Hier mal ein Prinzipbeispiel

Code:

Sub Makro1()
'Variablendeklaation
'String
Dim strPass As String
'Sheet
Dim blaetter As Worksheet
'Schleife ueber alle Tabellenblaetter
For Each blaetter In ThisWorkbook.Worksheets
  'Passwort definieren
  If blaetter.Name = "Tabelle1" Then strPass = "0815" Else strPass = ""
  'Blattschutz aufheben
  blaetter.Unprotect Password:=strPass
  'Blattschutz mit neuen Einstellungen setzen
  blaetter.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
  , AllowFormattingCells:=True, AllowFormattingColumns:=True, _
  AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
  :=True, AllowSorting:=True, AllowFiltering:=True, Password:=strPass
  'Tabelleneigenschaft Selction zuweisen
  blaetter.EnableSelection = xlNoRestrictions
  blaetter.EnableOutlining = True 'ermöglicht Gruppierung/Gliederung
'Ende Schleife ueber alle Tabellenblaetter
Next
End Sub

[Veit]

Moin, Moin André,

ich gebe es auf, das ist mir zu hoch , irgendwie funktioniert das nicht.
Ich würde Dir die Datei gerne einmal zukommen lassen, dann kannst Du daran gerne mal testen.

Wie kann ich das machen, wenn Du daran Interesse hast?

Gruß
Veit

[schauan]

Hallo Veit,
Entweder legst Du die Datei auf die box oder Dropbox, wenn Du hast und schickst mir den l
Link per pn oder schreibst mir in der pn Deine Email - Adresse und ich schicke Dir meine...

[Veit]

Moinsen André,

habe ich Dir geschickt.

Danke

[schauan]

Hallöchen,

zur Gliederung noch ein wichtiger Hinweis. Die Datei muss beim ersten mal vor dem Setzen des Blattschutzes mit geöffneten Gliederungen gespeichert werden. Also

- Makro z.B. in DieseArbeitsmappe als WorkBook_Open einfügen
- Gliederungen vollständig öffnen (Blatt ohne Blattschutz lassen!)
- Datei speichern

Dann sollte es ab dem nächsten Öffnen klappen, natürlich nur mit aktivierten Makros ... Der Blattschutz wird gesetzt, die Gliederung ist verwendbar. Und gleich noch ein Hinweis. Die Gliederungspunkte sind nur einzeln schaltbar, jedenfalls unter 2016.