AW: Fenster Fixieren bei aktiviertem Blattschutz
29.10.2009 00:52:32
fcs
Hallo Dimidi,
da hat Microsoft in der 2007er Version in der Tat eine Änderung eingebaut.
Im Gegensatz zur 2003er Version kann hier die Fixierung des Fensters nur geändert werden, wenn der Blattschutz nicht aktiv ist.
In 98% aller Anwendungen macht dies bei geschützen Blättern wohl auch Sinn.
Für dich persönlich bleibt da leider nur -wenn du das Passwort kennst- der umständliche Weg jeweils manuel den Blattschutzstatus zu ändern. Alternativ könntest du auch mit Makros in deiner persönlichen Arbeitsmappe arbeiten, um den Komfort zu verbessern, wobei man ggf. den Makros auch Tastenkombinationen zuordnen oder Buttons auf der Schnellzugriffsleiste anlegen kann.
Gruß
Franz
Sub Fixierung_AUS()
' Fensterfixierung aufheben
' Tastenkombination: Strg+Umschalt+A
Dim varPW
varPW = Application.InputBox(Prompt:="Passwort?", _
Title:="Fixierung des Fensters aufheben", Type:=2)
If varPW = False Then Exit Sub
ActiveSheet.Unprotect Password:=varPW
ActiveWindow.FreezePanes = False
ActiveSheet.Protect Password:=varPW
End Sub
Sub Fixierung_EIN()
' Fensterfixierung einschalten
' Tastenkombination: Strg+Umschalt+F
Dim varPW
varPW = Application.InputBox(Prompt:="Passwort?", _
Title:="Fenster fixieren", Type:=2)
If varPW = False Then Exit Sub
ActiveSheet.Unprotect Password:=varPW
ActiveWindow.FreezePanes = True
ActiveSheet.Protect Password:=varPW
End Sub