Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
888to892
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
888to892
888to892
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Blattschutz mit Passwort Excel 02 -> Excel 97

Blattschutz mit Passwort Excel 02 -> Excel 97
19.07.2007 10:47:08
Marco
Hallo zusammen
Ich habe auf Excel 2002 (XP) folgenden Blattschutz "programmiert":

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Protect "passwort", UserInterfaceOnly:=True, Contents:=True,
Scenarios:=True _  , AllowInsertingRows:=True, AllowDeletingRows:=True
End Sub


Ziel ist es, das Blatt zu schützen und trotzdem Makros auszuführen, ohne bei diesen jeweils den
Blattschutz separat aufzuheben.
Unter Excel 02 funktionniert alles bestens - auf Excel 97 läuft dieses Makro jedoch nicht und gibt
einen Fehler aus. An was kann das liegen?
Grüsse
Marco

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Blattschutz mit Passwort Excel 02 -> Excel 97
19.07.2007 10:49:41
Hajo_Zi
Hallo Marco,
vielleicht solltest Du den Schutz in 2002 aufheben und in der Version 97 einrichten?

AW: Blattschutz mit Passwort Excel 02 -> Excel 97
19.07.2007 12:03:01
Rudi
Hallo,
du kommst über Aufheben und wieder Einschalten nicht herum, da XL97 u.a. UserInterfaceOnly nicht kennt
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

AW: Blattschutz mit Passwort Excel 02 -> Excel 97
19.07.2007 15:30:40
Marco
Hallo Hajo, Hallo Rudi
Danke für eure inputs. Habe entsprechend Korrekturen direkt im Excel 97 vorgenommen. Die Aussage betreffend UserInterfaceOnly=True stimmt übrigens nicht - Excel 97 kennt diese Funktion sehr wohl. In der Zwischenzeit habe ich heraus gefunden, dass es an den zusätzlichen Ausprägungen "AllowInsertingRows:=True" etc. gelegen hat - diese kennt Excel 97 tatsächlich nicht.
Hier der richtige Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
ActiveSheet.Protect password:="passwort", UserInterfaceOnly:=True, DrawingObjects:=True
Contents:=True, Scenarios:=True
End Sub


Grüsse
Marco

Anzeige

308 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige