Microsoft Excel

Herbers Excel/VBA-Archiv

Zelle sützen

Betrifft: Zelle sützen von: gerry09
Geschrieben am: 30.10.2014 22:18:35

Hallo ! Ich möchte gerne in meiner Excel-Datei die Zelle " D3 " per VBA schützen.
Kann mir jemand helfen ?
Vielen Dank im Voraus.

LG
Gerald

  

Betrifft: AW: Zelle schützen von: Peter Kloßek
Geschrieben am: 31.10.2014 01:16:53

Hallo Gerald,

wähle zunächst durch Klick auf das Feld über der Zeile 1 alle Zellen aus. Dann aus der obersten Excel-Menüleiste "Start", dann "Format", dann "Zellen formatieren" auswählen. Danach den Reiter "Schutz" und entferne das Häkchen vor der Bezeichnung "Schutz". Klicke auf "o. k." Wähle jetzt die Zelle aus, die Du schützen möchtest. Danach gehst Du wieder auf "Zellen formatieren" und auf den Reiter "Schutz". Setze nun das Häkchen für die ausgewählte Zelle. Damit die Zelle wirklich geschützt wird, muss das Blatt geschützt werden: mit "Überprüfen", "Blatt schützen" und "o. k." Dies ist der manuelle Weg.

Und hier noch der Weg per VBA:

  • Sub Makro1()
    
        Cells.Locked = False
        Range("d3").Locked = True
        ActiveSheet.Protect
        
    End Sub


  • Den Makro startest Du mit "Ansicht", "Makro", "Makro1 auswählen" und "ausführen". Danach ist die Zelle "D3" geschützt und alle anderen Zellen sind frei verfügbar.

    Mit freundlichem Gruß
    Peter Kloßek


      

    Betrifft: Das ist aber der falsche Weg, Peter ... von: Matthias L
    Geschrieben am: 31.10.2014 02:23:15

    Hallo

    Du meinst sicher eher so, oder?

    Sub Locked_D3()
    ActiveSheet.Unprotect
    'Cells.Locked = False
     Range("D3").Locked = True
    ActiveSheet.Protect
    End Sub
    
    Gruß Matthias


      

    Betrifft: Nee, Matti, das ist schon richtig, denn ... von: Luc:-?
    Geschrieben am: 01.11.2014 00:05:34

    …standardmäßig sind alle Zellen gesperrt, sobald das Blatt geschützt wird. Wenn du mal auf Format - Reiter Schutz klickst, siehst du, dass der Haken auch bei ungeschütztem Blatt bereits eingetragen ist. Es nutzt also nichts, nur eine bestimmte Zelle schützen zu wollen, denn das ist sie ja schon. Stattdessen müssen alle nicht zu schützenden Zellen entsperrt wdn, was Peters Pgm global besorgt, wodurch dann eine einzelne Zelle gezielt gesperrt wdn kann, die dann tatsächlich die einzige gesperrte auf dem Blatt ist.
    Ob das (immer) die ideale Methode ist, steht allerdings auf einem anderen Blatt… ;-)
    Gruß + schöWE, Luc :-?


      

    Betrifft: nur halb richtig, denn ... von: Matthias L
    Geschrieben am: 01.11.2014 01:19:32

    Hi Luc

    Ist mir schon klar, was Du meinst!

    Der Code entsperrt aber alle Zellen, was ich nicht möchte!

    Ich bin nicht von einer neuen Mappe ausgegangen,
    sondern von einer bereits vorhandenen Mappe
    in der bereits Zellen gesperrt und andere Zellen nicht gesperrt sind.
    Ok, ich hätte drauf kommen können, da er nicht Unprotect am Anfang stehen hatte.

    Gruß Matthias


      

    Betrifft: Deshalb meine Schlussbemerkung... ;-) owT von: Luc:-?
    Geschrieben am: 01.11.2014 03:07:01

    :-?


      

    Betrifft: AW: Zelle sützen von: gerry09
    Geschrieben am: 31.10.2014 10:37:18

    Vielen Dank für Eure Hilfe.
    Am Wochenende habe ich Zeit dann werde ich die Möglichkeiten ausprobieren

    LG
    Gerald