Worksheet mit verbundenen Zellen komplett Sperren

  • Excel

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von petaod.

    Worksheet mit verbundenen Zellen komplett Sperren

    Hallo Zusammen,

    es geht darum das in meinem Worksheet einige Zellen miteinander verbunden sind.

    Ich möchte nun alle Zellen in diesem Worksheet sperren. Aktuell verwende ich folgenden Code:

    Visual Basic-Quellcode

    1. Public Sub LockSheet(ByVal SheetIndex As Long)
    2. Dim iSheet As Worksheet
    3. Set iSheet = ThisWorkbook.Worksheets(SheetIndex)
    5. '// Alle Zellen sperren.
    6. iSheet.Cells.Locked = True
    8. '// Restlicher code ...
    9. End Sub

    Das Problem ist der Code funktioniert nur, wenn in dem Worksheet keine verbundenen Zellen vorhanden sind. Wie bekomme ich es hin, dass Excel alle Zellen (auch Verbundzellen) sperrt?

    Noch anzumerken wäre, dass ich ohne Selections programmiere - dies sollte auch so bleiben.

    Fehlercode:

    Quellcode

    1. Laufzeitfehler '1004':
    2. Die Locked-Eigenschaft des Range-Objektes kann nicht festgelegt werden.


    Gruß, FireEmerald

    (Es wird Excel 2010 verwendet)

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „FireEmerald“ ()

    Verbundene Zellen sollten so gut wie möglich vermieden werden.
    Die machen nur Probleme in allen möglichen Situationen.

    Mögliche Lösung:

    Visual Basic-Quellcode

    1. For Each Cell in UsedRange
    2. If Cell.MergeCells Then Cell.MergeArea.Locked=True Else Cell.Locked=True
    3. Next
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

Facebook
Telefonspende