Schreibgeschützte Zweige in MindManager

schon öfter kam die Frage, ob man in MindManager einen Schreibschutz für Zweige definieren kann. Ich habe mir lange überlegt, ob man hier irgendwie in einem AddIn Ereignisse abfangen und auf Änderungen eines Zweiges entsprechend reagieren kann. Nun hat mich ein Kunde auf eine Eigenschaft im MindManager-Objektmodell gebracht, die ich bisher noch gar nicht beachtet hatte – einige Objekte können auf “ReadOnly” gesetzt werden.

Hier ein kleines Beispielmakro. Kopieren Sie die Zeilen einfach in den MindManager-Makroeditor (Menü “Extras – Makro”), speichern die Datei und binden es ggf. direkt in das Kontextmenü eines Zweiges ein (“Extras – Makro – Makros”). Dort “Hinzufügen” und im Punkt “Menü” das “Kontextmenü Zweig” auswählen.

Das Makro ist recht einfach gehalten, es setzt Zweigtext, Notizen und Anhänge auf ReadOnly. Wenn ein Zweig darüber schon schreibgeschützt ist, wird der Schutz einfach wieder abgeschalten.

Leider können Hyperlinks auf diese Weise nicht geschützt werden.

Hier das Makro:

Sub Main
Dim t As Topic
Set t = ActiveDocument.Selection.PrimaryTopic
If t Is Nothing Then
MsgBox “Bitte Zweig selektieren”
Else
If t.Title.ReadOnly = True Then
‘Zweig entsperren
t.Title.ReadOnly = False
t.Notes.ReadOnly = False
t.Attachments.ReadOnly = False
Else
‘Zweig sperren
t.Title.ReadOnly = True
t.Notes.ReadOnly = True
t.Attachments.ReadOnly = True
End If
End If
End Sub