Blatt schützen in XP führt zu Fehler in 2000

Private Sub Worksheet_Activate() Sheet23.Unprotect Password:="123" Sheet23.Range("I45:J59").WrapText = False Sheet23.Range("E5:E60").WrapText = True 'Blatt wieder schützen gemäß Fähigkeiten der jeweiligen Excel Versionen If Application.Version Like "11*" Or Application.Version Like "10*" Then Sheet23.Protect Password:="123", DrawingObjects:=False, Contents:=True, Scenarios:=True, AllowFormattingCells:=True, AllowFormattingRows:=True Else Sheet23.Protect Password:="123", DrawingObjects:=False, Contents:=True, Scenarios:=True End If End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Activate() Sheets("23").Unprotect Password:="123" Sheets("23").Range("I45:J59").WrapText = False Sheets("23").Range("E5:E60").WrapText = True 'Blatt wieder schützen gemäß Fähigkeiten der jeweiligen Excel Versionen If Application.Version Like "11*" Or Application.Version Like "10*" Then Sheets("23").Protect Password:="123", DrawingObjects:=False, Contents:=True, Scenarios:=True, AllowFormattingCells:=True, AllowFormattingRows:=True Else Sheets("23").Protect Password:="123", DrawingObjects:=False, Contents:=True, Scenarios:=True End If End Sub

Hallo El,
Sheets("23")funktioniert nicht unter Excel XP/ 2003. Sheets(23) funktioniert, ist aber eine Referenz auf seine Position in der Mappe und nicht auf den Namen des Blattes. Mit der Benennung des Blattes hat Excel 2000 kein Problem, sondern der damals noch nicht eingeführten Zusätze zum Befehl "protect".
Ich habe inzwischen folgenden Workaround gefunden, der darauf beruht, dass der Kompilierungsfehler nur in dem Makro entsteht, das tatsächlich aufgerufen wird. Ich habe also die Protect Anweisungen für XP und 2000 in zwei verschiedene Makros platziert, die dann von der Abfrage angesteuert werden. Sieht folgendermaßen aus:


Private Sub Worksheet_Activate()
If Application.Version Like "11*" Or Application.Version Like "10*" Then
Call Protect_XP
Else
Call Protect_2000
End If
End Sub

Sub Protect_2000()
Sheet23.Protect Password:=Sheet27.Range("bp75"), DrawingObjects:=False, Contents:=True, Scenarios:=True
End Sub

Sub Protect_XP()
Sheet23.Protect Password:=Sheet27.Range("bp75"), DrawingObjects:=False, Contents:=True, Scenarios:=True, AllowFormattingCells:=True, AllowFormattingRows:=True
End Sub

Funktioniert, scheint mir aber etwas aufwendig und nicht sehr elegant. Wäre schön, wenn ich zu dieser Lösung Feedback bekommen könnte.
Gruss
Michael

Beliebteste Forumthreads (12 Monate)

Blatt schützen in XP führt zu Fehler in 2000

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Blatt schützen in XP führt zu Fehler in 2000

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread