Sperren, Bearbeiten, in einigen Zellen aber keinen weiteren Schutz

Ich zu schützen versuche, meine Excel-Blatt in einer Weise, die verhindert, dass die Bearbeitung in bestimmten Zellen, hat aber all die anderen Schutz-Optionen deaktiviert. Anders gesagt, die Platte sollte das Verhalten nach einem ungeschützten Blatt nur mit einer Zelle Bearbeiten in einigen Zelle deaktiviert.

ActiveSheet.Range(Cells(4, 3), Cells(OldRowCount, 7)).Locked = False
ActiveSheet.Protect Contents:=True

Ich würde wahrscheinlich benötigen, um ein paar andere Eigenschaften für die .Protect oder vielleicht sollte ich wählen Sie eine andere Methode insgesamt...

Vielen Dank im Voraus!

  • Es gibt viele Möglichkeiten, in die "Blatt Schützen" - dialog - haben Sie schaute auf die? Wenn Sie verhindern möchten, dass die Bearbeitung, dann schützt das Blatt ist wahrscheinlich der zuverlässigste Weg zu gehen (unterliegt den üblichen Bedingungen über die Stärke des Schutzes, etc, etc).
  • OP will disable all the other protection options. Ist das möglich?
  • Ich würde sagen, die Optionen sind Ihrer Natur nach immer freiwillig ;-). Es sei denn, es ist etwas mehr, bestimmten die OP hinzufügen will, seine schwer zu erraten, genau das, was Sie suchen. Das heißt, wenn alle "X" - Optionen werden überprüft, was kann Ende-Benutzer immer noch nicht tun was Sie sollten in der Lage sein zu tun?
  • Habe meine Lösung helfen? Wenn dem so ist, ein akzeptieren wäre schön.
  • Jook, ich danke Ihnen sehr für Ihre Antwort und sorry für meine sehr verspätete Antwort: ich habe viele andere Dinge dazwischen. Ich werde testen Sie Ihre Lösung so schnell wie möglich (1-2 Tage).
InformationsquelleAutor Daan | 2012-11-19
  1. 1

    Ich denke, die Frage war nur, wie, um das setup dieses Verhalten in VBA richtig.

    Einen schnellen Einsatz F1 bietet fast alles, was notwendig ist. Was falsch war, war die Verwendung von Locked, weil es true für einige Zellen und false für alle anderen, um sich zu Verhalten wie die geplante.

    Hier ist meine Lösung:

    Public Sub Demo()
  With ActiveSheet
    'Deactivate lock for all cells, so they don't be blocked by protection
    .Cells.Locked = False
    'Activate lock for some cells
    'Range(Cells(4, 3), Cells(OldRowCount, 7)).Locked = True
    .Cells(6, 4).Locked = True
    If .ProtectContents Then
      .Unprotect
    Else
      'only contents:=true is really important
      .Protect _
        Password:="", _
        Contents:=True, _
        DrawingObjects:=False, _
        Scenarios:=False, _
        UserInterfaceOnly:=True, _
        AllowDeletingColumns:=True, _
        AllowDeletingRows:=True, _
        AllowFiltering:=True, _
        AllowFormattingCells:=True, _
        AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, _
        AllowInsertingColumns:=True, _
        AllowInsertingHyperlinks:=True, _
        AllowInsertingRows:=True, _
        AllowSorting:=True, _
        AllowUsingPivotTables:=True
    End If
  End With
End Sub
    InformationsquelleAutor Jook
Schreibe einen Kommentar