Office: Gleichzeitig ein Objekt schützen aber Kommentare zulassen

Hallo Forumgemeinde!

Ich suche mal wieder Hilfe...

Ich möchte ein Arbeitsblatt schützen. Gleichzeitig möchte ich auch ein Objekt mit Makro schützen aber Kommentare zulassen.

Wie bekomme ich das hin?
Wenn ich unter Extras den Schreibschutz aktiviere und das Häkchen bei Objekte entferne ist diese zwar geschützt, aber ich kann wiederum auch keine Kommentare einfügen

Kann mir hier jemand bitte weiterhelfen. Gerne auch über VBA

Danke und Gruß
CaMa

 

Hi,

beides zusammen geht nicht - entweder alle Objekte bearbeiten (und damit auch Kommentare) oder keine Objekte bearbeiten (und damit auch keine Kommentare einfügen).

Man könnte es höchstens so lösen, dass man per VBA beim Doppelklick auf eine Zelle den Blattschutz auschaltet, einen Kommentar einfügt und den Blattschutz danach wieder setzt.

Bis später,
Karin

 

Hallo Karin,

danke für deine schnelle Antwort.
Das habe ich schon befürchtet. Mit dem Makro / Doppelklick ist für meine DAtei keine besonders gute Lösung.

Gibts ne andere Lösung einen Button oder eine Befehlsschaltfläche zu schützen???


Gruß
Marcel

 

Hi Marcel,

es gäbe die Möglichkeit, z.B. das Selection_Change Ereignis des Tabellenblattes zu nutzen und die Anzahl der Schaltflächen zu festzustellen - wenn 1 zuwenig ist, dann eine neue erstellen. Ob das aber Sinn und Zweck des ganzen ist?!

Frage: WESHALB ist der Doppelklick keine Lösung?

Bis später,
Karin

 

HI Karin,

ich habe das ganze nun so gelöst. dass ich bei doppelklich auf A1 das Makro starte und den Button habe ich entfernt.
Zwar auch nicht ganz das was ich wollte, aber so haut es in etwa hin.

Mich hat halt gestört das man den Button veränedrn konnte.

Das mit dem Doppelklich und schreibschutz entfernen wollte ich nicht, da es ziehmlich umständlich gewesen wäre.
(Nur bestimme Zellen dürfen frei sein, verschiedene Makros fügen daten ein usw.) hätte einiges ändern müssen....


aber wenn du so ein Makro chrack bist, da hätte ich noch eine Frahe.

Ich habe in der Spalte B10 :B384 fortlaufende DAtums. also beginnend von 1.1.12 bis 10.01.13.

nun hole ich per Makro daten vom server und lass alle zellen auf inhalt prüfen und ggf eintragen. jetzt springt mir das
nach der ausführung immer auf A1 zurück ohne das da etwas im makro steht.

nun wollte ich das so haben, dass B10:B384 per makro überprüft wird und immer auf das aktuelle datum springet.
scroll down bis today()



hast du hier eine Lösung oder ne Idee.

Ich bin viel am suchen und basteln. Benöttige dennoch ab und an Hilfe;-)

Besten Dank!

Gruß
Marcel

 

Hi Marcel,

da ich deinen Code nicht kenne, kann ich auch nicht sagen, weshalb der Cursor immer nach A1 springt. Möglicherweise ist ja nur A1 nicht geschützt und der Blattschutz so gesetzt, dass nur nicht geschützte Zellen selektiert werden können - aber, wie geasgt, ich kenne weder deinen Code noch die Arbeitsmappe selbst.
Man kann natürlich nach dem aktuellen Datum suchen und auch die betreffende Zelle anfahren - dazu muss der Blattschutz aber so eingestellt werden, dass auch geschützte Zellen ausgewählt werden dürfen. Die Suchmethode hängt davon ab, in welchem Format das Datum in den Zellen steht.

Bis später,
Karin

 

Guten Morgen Karin!

Ich habe mir nun mit folgendem Code geholfen:

Sub Datum()
Dim z As Range, sp As Range
Set sp = Range("B:B")
For Each z In sp
If z.Value = Date Then
Cells(z.Row, z.Column).Select
Exit For
End If
Next z
End Sub

Außerdem lasse ich nun die geschützten Zellen selektieren.
Nun passt alles!

Ich bedanke mich recht herzlich für deine Hilfe!!!!

Bis zum nächsten mal.

LG
Marcel

 

Hi Marcel,

das kann man auch wesentlich einfacher lösen - man muss nicht jede Zelle einzeln durchalufen, was sich bei sehr vielen Daten drastisch in der Performance bemerkbar macht. Das WIE hängt aber - wie ich schon geschrieben habe - vom Zellformat ab. Und so lange du dich dazu nicht äußerst, kann ich da leider auch nicht weiterhelfen.

Bis später,
Karin

 

Hallo Karin,

hier ein Auszug aus der Datei.
Wenn dir das weiterhílft.



Den Code könnte ich dir höchstens als persöhnlichje Nachricht senden. da dieser geschäftlich ist, und somitz nicht für das www.

Gruß
Marcel

 

Hi Marcel,

dein Zellformat scheint also ein Standardformat für Datum zu sein und kein "exotisches" - dann würde dieser Code ausreichen:

Code:

Sub Finden()
   Dim rngZelle As Range
   Set rngZelle = Columns(2).Find(Date, lookat:=xlWhole)
   If Not rngZelle Is Nothing Then
      rngZelle.Select
   Else
      MsgBox "Datum nicht gefunden"
   End If
End Sub

Bis später,
Karin

 

Hi,

vielen Dank!!


Gruß
Marcel