Office: (Office 2013) VBA: Erstellen/Editieren/Löschen von Kommentaren per VBA erlauben.

Hallo.

Bislang habe ich meine Tabellenblätter per VBA automatisch geschützt, da dies ganz gerne vergessen wird.

Folgene Routine habe ich dafür verwendet:
(Auskommentiert derzeit)

'Sub Workbook_Open()
' Dim i As Long
' For i = 1 To Worksheets.Count
' 'Sheets(i).Protect userinterfaceonly:=True
' Sheets(i).EnableOutlining = True
' Sheets(i).EnableAutoFilter = True
' Next i
'End Sub

Ich hätte eigentlich gerne, dass Blätter automatisch mit folgenden Einstellungen gesperrt werden : "Nicht gesperrte Zellen auswählen", "Objekte bearbeiten". Filtern und Gruppieren soll möglich sein.

Formatieren, hinzufügen, löschen von Zellen/Spalten usw soll nicht möglich sein.

Ich habe es mit

' 'Sheets(i).Protect userinterfaceonly:=True, DrawingObjects:=True

versucht - hat aber nicht geklappt.

Kennt jemand eine Lösung dazu?

Bonusfrage: Kann man beim Öffnen ENTWEDER automatisch "Inhalte aktivieren" oder das bearbeiten unmöglich machen, bzw. Excel wieder beenden, wenn dies nicht geschieht? Das wird nämlich ganz gerne vergessen.

Vielen Dank für eure Zeit.

 

Hallo,

schau' Dir mal bei der Protect-Methode die weiteren Parameter an (VBA-Hilfe, Objektkatalog). Dort sind alle möglichen Optionen aufgeführt, z.B. AllowFormattingCells. Und, solange Makros nicht aktiviert sind werden auch keine ausgeführt, wenn sich die Meldung darauf bezieht. Also, dann auch kein Schließen von Excel.

Gruß

 

Moin!
Wenn Du etwas zulassen willst, ist das im Sprachgebrauch WAHR
Wenn Du etwas NICHT schützen willst, ist dies FALSCH
Langer Rede …
Sheets(i).Protect userinterfaceonly:=True, DrawingObjects:=False

Gruß Ralf

 

Vielen Dank, Ralf, auf die Idee bin ich natürlich nicht gekommen.. .-)

So oder so, dies war die Lösung.