Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
18.04.2024 17:45:21
Shellkommando ausführen, stderr auslesen
18.04.2024 17:41:41
Summe: Bestimmter Bereich mit sverweis
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
852to856
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
852to856
852to856
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Einzelne Funktionen Entsperren bei Blattschutz

Einzelne Funktionen Entsperren bei Blattschutz
14.03.2007 10:20:58
Frenchmann

Guten Morgen,
ich habe eine Excel Datei in der in Gruppierungen habe.
Nun habe ich das Blattgeschützt damit nur bestimmte Felder beschrieben werden können, allerdings ist auch die Funktion der Gruppierung (einblenden ausblenden) nicht verfügbar.
Wie kann ich die Funktion wieder freigeben.
Evtl per Makro die Sperre auf diese Funktion komplett aussschalten ?
Gruss
Pascal

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Einzelne Funktionen Entsperren bei Blattschutz
14.03.2007 10:41:52
Frenchmann
ich habe nun eine Lösung gefunden 

Sub BlattSchutz()
Tabelle1.EnableOutlining = True
Tabelle1.Protect userinterfaceonly:=True
End Sub

KAnn mir einer sagen (ich kenne mich in VBA nicht aus) wie ich dies so umschreiben dass er auf einmal alle Blätter der Datei schützt, und evtl auch ein passwort vergibt.
Danke
Pascal
AW: Einzelne Funktionen Entsperren bei Blattschutz
14.03.2007 10:55:58
regina
Hallo
probiers mal so 

Sub AlleTAB()
Dim i As Integer
For i = 1 To Sheets.Count  'über alle WB von 1 bis ende
worksheets(i).Protect "Passwort"   'schützen mit Pw
Worksheets(i).Unprotect "Passwort" 'Schutz aufheben mit PW
Next
End Sub

Gruß Regina
Anzeige
AW: Einzelne Funktionen Entsperren bei Blattschutz
14.03.2007 10:59:08
Frenchmann
ich habe nun diese Lösung erarbeitet.....
für die, die vielleicht hier nach suchen.
Option Explicit

Private Sub Workbook_Open()
Dim objBlatt As Object
For Each objBlatt In Sheets
If TypeName(objBlatt) = "Worksheet" Then
With objBlatt
.Protect Password:="12345", UserInterfaceOnly:=True
.EnableOutlining = True
.EnableAutoFilter = True
End With
End If
Next
End Sub
Sub Schützen()
Dim objBlatt As Object
For Each objBlatt In Sheets
If TypeName(objBlatt) = "Worksheet" Then
With objBlatt
.Protect Password:="12345", UserInterfaceOnly:=True
.EnableOutlining = True
.EnableAutoFilter = True
End With
End If
Next
End Sub

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige