Excel mit VBA

ID #1008

Blätter mit Blattschutz versehen oder Blattschutz entfernen.

'In diesem Beispiel werden alle Blätter einer Arbeitsmappe mit einem Blattschutz versehen
'oder der Blattschutz wird wieder entfernt. Unter Erklärungen sind die Möglichkeiten
'zur Einschränkung bzw. Erlaubnis einiger Funktionen der geschützten Blätter aufgelistet.

Dim sheeets, i

Public Sub Blattschutz_auf()
sheeets = ActiveWorkbook.Sheets.Count
For i = 1 To sheeets
  ActiveWorkbook.Sheets(i).Select
   ActiveSheet.Unprotect Password:="optional"
Next i
End Sub


Public Sub Blattschutz()
sheeets = ActiveWorkbook.Sheets.Count
For i = 1 To sheeets
  ActiveWorkbook.Sheets(i).Select
   ActiveSheet.Protect Password:="optional", AllowDeletingColumns:=True, _
   AllowDeletingRows:=True, AllowFiltering:=True, AllowFormattingCells:=True, _
   AllowFormattingColumns:=True, AllowFormattingRows:=True, _
   AllowInsertingColumns:=True, AllowInsertingHyperlinks:=True, _
   AllowInsertingRows:=True, AllowSorting:=True, AllowUsingPivotTables:=True   
Next i
End Sub

'Erklärungen:

'AllowDeletingColumns = Spalten löschen
'AllowDeletingRows = Zeilen löschen
'AllowFiltering = AutoFilter
'AllowFormattingCells = Zellen formatieren
'AllowFormattingColumns = Spalten formatieren
'AllowFormattingRows = Zeilen formatieren
'AllowInsertingColumns = Spalten einfügen
'AllowInsertingHyperlinks = Hyperlinks einfügen
'AllowInsertingRows = Zeilen einfügen
'AllowSorting = Sortieroption
'AllowUsingPivotTables = pivotTabellen ändern

Tags: -

Verwandte Artikel:

Letzte Änderung des Artikels: 2006-08-18 16:22
Verfasser des Artikels: Thomas Mrozek
Revision: 1.0

Digg it! Artikel ausdrucken Artikel weiterempfehlen Als PDF-Datei anzeigen
Übersetzungsvorschlag für Übersetzungsvorschlag für
Bewertung der Nützlichkeit dieses Artikels:

Durchschnittliche Bewertung: 4.2 von 5 (10 Bewertungen)

vollkommen überflüssig 1 2 3 4 5 sehr wertvoll

Kommentieren von diesen Artikel nicht möglich