Beitrag 14 von 139 (10%) | Antworten Beitrag schreiben | Anfang zurück weiter Ende |
|
Das die Beispieldatei unter Excel 2003 nicht funktioniert verstehe ich nicht. Bei mir gehts mit XLS 2003!?!
Alterntive?:
Dieses Makro auf die zu schützenden Tabellen kopieren und den Cursor in eine entsperrte Zelle setzen und dann den Filter benutzen.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim passWort As String
passWort = "GEHEIM"
If Target.Locked = False Then
ActiveSheet.Unprotect passWort
Else
ActiveSheet.Protect passWort
End If
End Sub