Blattschutz + Kommentare einfügen -> aber wie ?

• Blattschutz + Kommentare einfügen -> aber wie ? von Frank vom 10.10.2003 11:14:34
  • AW: Blattschutz + Kommentare einfügen -> aber wie ? - von GerdW am 10.10.2003 13:20:40
    • AW: Blattschutz + Kommentare einfügen -> aber wie ? - von Frank am 10.10.2003 14:11:51
      • AW: Blattschutz + Kommentare einfügen -> aber wie ? - von Frank am 10.10.2003 19:33:09
        • AW: Blattschutz + Kommentare einfügen -> aber wie ? - von Frank am 10.10.2003 19:39:46
          • AW: Blattschutz + Kommentare einfügen -> aber wie ? - von GerdW am 10.10.2003 23:20:57

Betrifft: Blattschutz + Kommentare einfügen -> aber wie ?
von: Frank

Geschrieben am: 10.10.2003 11:14:34

Hallo,

ich habe folgedendes Makro:

Sub Worksheet_Activate()
ActiveSheet.Protect userinterfaceonly:=True
ActiveSheet.EnableAutoFilter = True
ActiveSheet.EnableOutlining = True
End Sub

Nun sind einige Zellen über den Balttschutz als gesperrt deklariert und einige sind noch eingabebereit. Die Autofilterfunktion und die Gruppierung funktioeren ja durch das oben genannte Makro.

Frage: In den Zellen, in denen das "gesperrt" nicht gesetzt ist, möchte ich jedoch noch Kommentare einfügen können. Wie kann ich das realisieren.

Schonmal ein DICKES Danke im voraus.

MfG


Betrifft: AW: Blattschutz + Kommentare einfügen -> aber wie ?
von: GerdW
Geschrieben am: 10.10.2003 13:20:40

Nur mit VBA, interaktiv nicht.

Gerd




Betrifft: AW: Blattschutz + Kommentare einfügen -> aber wie ?
von: Frank
Geschrieben am: 10.10.2003 14:11:51

####################
Nur mit VBA, interaktiv nicht.

Gerd
####################

Ja das konnte ich mir schon denke, nur leider weiss ich nicht wie.




Betrifft: AW: Blattschutz + Kommentare einfügen -> aber wie ?
von: Frank
Geschrieben am: 10.10.2003 19:33:09

Hallo

Sub Worksheet_Activate()
ActiveSheet.Protect UserInterfaceOnly:=True
ActiveSheet.EnableAutoFilter = True
ActiveSheet.EnableOutlining = True
With ActiveSheet()
.EnableSelection = xlNoRestrictions
.Unprotect ("euerpasswort")
.Protect ("euerpasswort"), DrawingObjects:=True, Contents:=True, Scenarios:=True, UserInterfaceOnly:=True
End With

Nur leider kan man nun in allen Zellen Kommentare einfügen. Dies soll jedoch nur in den nicht gesperrten Zellen möglich sein. Sorry aber in VBA bin ich einfach mal Anfänger. Besseer gesagt habe ich ehute angefangen :p Wäre über eure Hilfe sehr erfreut.




Betrifft: AW: Blattschutz + Kommentare einfügen -> aber wie ?
von: Frank
Geschrieben am: 10.10.2003 19:39:46

Das "xlNoRestrictions" auch "xlUnlockedCells" sein könnte weiss ich.

Eine Frage ncoh wie kann ich nun noch Format (Bsp. Hintergrundfarben erlauben)?




Betrifft: AW: Blattschutz + Kommentare einfügen -> aber wie ?
von: GerdW
Geschrieben am: 10.10.2003 23:20:57

Die Syntax kannst du mit dem Rekorder aufzeichnen.

Gerd

Excel-Beispiele zum Thema " Blattschutz + Kommentare einfügen -> aber wie ?"

Kennwort für Blattschutz		Blattschutz aufheben
Blattschutzdialog über VBA aufrufen		Blattschutz für eine Serie von Tabellen setzen und aufheben
Blattschutz beim Speichern setzen		Blattschutz setzen und dennoch mit AutoFiltern
Blattschutz aufheben, Daten eintragen, Blattschutz setzen		Blattschutz für VBA-Einträge ausschließen
Blattschutz mit und ohne Passwort aufheben und setzen		Spaltenweiser Blattschutz in Abhängigkeit des Anwendernamens
Blattschutz für alle Arbeitsblätter setzen oder aufheben		Kommentare in geschützte Tabellen einfügen
Bereichsnamen ermitteln und als Kommentare anzeigen		Kommentare löschen und deren Texte in Zellen übernehmen
Tabellenblattdaten einschließlich Kommentare in Textdatei		Hyperlinkadressen zu Kommentaren konvertieren
Grafiken in Zellkommentaren anzeigen