22.01.2015, 21:22
Hallo,
Du kannst das Blatt ruhig geschützt lassen.
Man kann in Uwes Code den Schutz aufheben und setzen lassen.
Hier Uwes Code mit der Ergänzung den Blattschutz am Anfang aufzuheben und am Ende wieder zu setzen:
Wenn der Blattschutz ein Passwort hat, dann muss Du im Code an den Stellen an denen Passwort steht diese mit Deinem Passwort ersetzen und das Hochkomma (nicht die Anführungszeichen) vor Passwort löschen.
Du kannst das Blatt ruhig geschützt lassen.
Man kann in Uwes Code den Schutz aufheben und setzen lassen.
Hier Uwes Code mit der Ergänzung den Blattschutz am Anfang aufzuheben und am Ende wieder zu setzen:
Code:
Private Sub Worksheet_Activate()
Dim intSpalte As Integer, intZeile As Integer
Dim intBlock As Integer, intBlockgroesse As Integer
Dim oWs As Worksheet
Me.Unprotect ' "Passwort"
Me.UsedRange.Clear
intSpalte = 1
intZeile = 1
For Each oWs In Worksheets
If oWs.Name <> Me.Name Then
Cells(intZeile, 1).Hyperlinks.Add _
Anchor:=Cells(intZeile, 1), Address:="", _
SubAddress:=oWs.Name & "!A1", _
ScreenTip:="Klicken Sie auf den Hyperlink", _
TextToDisplay:=oWs.Name
intZeile = intZeile + 1
End If
Next oWs
Columns(1).Sort Cells(1)
intBlockgroesse = 40
For intBlock = intBlockgroesse + 1 To intZeile Step intBlockgroesse
intSpalte = intSpalte + 2
Cells(intBlock, 1).Resize(intBlockgroesse).Cut Cells(1, intSpalte)
Next intBlock
Me.Protect ' "Passwort"
End SubWenn der Blattschutz ein Passwort hat, dann muss Du im Code an den Stellen an denen Passwort steht diese mit Deinem Passwort ersetzen und das Hochkomma (nicht die Anführungszeichen) vor Passwort löschen.