Office: Kommentar einfügen bzw. bearbeiten trotz Blattschutz

rooki_1 · 14. Februar 2012

Hy@all

ich habe eine geschützte Tabelle in der einiges an Makros und VBA integriert ist.
Gewisse Zellen dürfen bearbeitet werden andere wiederum nicht.
Es sind einige Autofilter vorhanden bei denen per VBA der Blattschutz entfernt und auch wieder gesetzt wird.
Ich möchte nun, daß ab Telle M14 bis M20000 Kommentare eingefügt bzw. diese auch bearbeitet werden können.

Ich habe Versucht dies über die Einstellung "Objekte bearbeiten" hinzubekommen, das scheitert aber, da wie gesagt über VBA der Blattschutz Automatisch gesetzt wird wenn irgendein Filter bemüht wird. Wenn dieser Blattschutz gesetzt wird, ist "Objekte bearbeiten" wieder weg.

Hat jemand ne Idee

Gruß
Rooki

:)

hary · 15. Februar 2012

Moin Rooki
versuchs mal so. siehe auch in der VBA-Hilfe unter "Protect"
Code:

Private Sub Workbook_Open()
Sheets("Tabelle1").Protect DrawingObjects:=False
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

gruss hary

rooki_1 · 15. Februar 2012

Hy hary,

haut nicht hin. Ich habe eingefügt:

PHP:

Private Sub Workbook_Open() Sheets("Tabelle2 (Laufzeitübersicht)").Protect DrawingObjects:=False End Sub

EarlFred · 15. Februar 2012

Hallo Rooki,

wenn Du einen Blattschutz aufhebst und dann wieder (ohne Angabe von Optionen) setzt, wird dieses Blatt mit den Standardoptionen geschützt. Zudem besteht die Gefahr, dass Du das Blatt ungeschützt hinterlässt, sollte sich der Code "verabschieden", z. B. wegen eines unbehandelten Fehlers.

Um dies zu umgehen, gibt es die Möglichkeit, das Blatt mit der Option "UserInterfaceOnly" zu schützen, so dass Änderungen per Code trotz Blattschutz möglich sind.
Ich habe mir mal eine kleine Funktion geschrieben, die diese Option setzt (oder zurücknimmt), ohne die anderen Schutzoptionen zu verändern:
Code:

Option Explicit
Function func_Protect_UserinterfaceOnly _
(ByRef ws As Worksheet, _
ByRef blnUIO As Boolean, _
Optional ByRef strPW As String) _
As Boolean
'Folgende Funktion setzt den Blattschutz auf
'UserInterfaceOnly= True / False
'und behält die bereits gesetzten Optionen des
'Blattschutzes ansonsten bei.
'Übergabewerte:
' ws := betreffendes Blatt (Worksheet)
' blnUIO := Option Userinterfaceonly (Boolean)
' an:=True aus:=False
' strPW := (optional) Passwort (String)
'Rückgabewert:
' fehlerfreier Ablauf? Ja = True (Boolean)
On Error Resume Next
With ws.Protection
ws.Protect _
Password:=strPW, _
DrawingObjects:=ws.ProtectDrawingObjects, _
Contents:=ws.ProtectContents, _
Scenarios:=ws.ProtectScenarios, _
UserinterfaceOnly:=blnUIO, _
AllowFormattingCells:=.AllowFormattingCells, _
AllowFormattingColumns:=.AllowFormattingColumns, _
AllowFormattingRows:=.AllowFormattingRows, _
AllowInsertingColumns:=.AllowInsertingColumns, _
AllowInsertingRows:=.AllowInsertingRows, _
AllowDeletingColumns:=.AllowDeletingColumns, _
AllowDeletingRows:=.AllowDeletingRows, _
AllowSorting:=.AllowSorting, _
AllowFiltering:=.AllowFiltering, _
AllowUsingPivotTables:=.AllowUsingPivotTables
End With
func_Protect_UserinterfaceOnly = (Err.Number = 0)
On Error GoTo 0
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Grüße
EarlFred

Office: Kommentar einfügen bzw. bearbeiten trotz Blattschutz

Kommentar einfügen bzw. bearbeiten trotz Blattschutz

Kommentar einfügen bzw. bearbeiten trotz Blattschutz

Kommentar einfügen bzw. bearbeiten trotz Blattschutz

Kommentar einfügen bzw. bearbeiten trotz Blattschutz - Similar Threads - Kommentar einfügen trotz

Kommentare

Kommentar einfügen

Einfügen von Kommentaren und Notizen

Einfügen von Kommentaren und Notizen in Excel

Einfügen oder Löschen eines Kommentars

Einfügen von Kommentaren in einem Dokument

Grafik in Kommentar lässt sich nicht einfügen