Sperren/entsperren von Zellen, VBA

Bin ich auf der Suche nach einem code sperren, um alle Zellen in einem Blatt, aber einen, und ich fand diesen code:

Worksheets("SW").Range("D2").Locked = False
Worksheets("SW").Protect UserInterfaceOnly:=True

es wirklich geklappt, bis ich es gespeichert und geschlossen/geöffnet wird die Datei wieder, dann ist Sie keine Makros, die ich hatte, waren laufen.

Ich denke, es ist, weil in diesem sheet habe ich verschiedene Makros und auch ich habe das makro, das ausgeführt wird, wenn eine Zelle geändert wird:

Private Sub Worksheet_Change(ByVal Target As Range)

Haben Sie eine Idee, wie es funktionieren?

Eine weitere Sache, diese Arbeitsmappe wird freigegeben werden, so dass ich nicht weiß, wirkt sich das auf die Makros.

sorry, vielleicht war ich zu unklar.

Ja ich will verhindern, dass andere zu ändern de-Wert der Zellen.

Möchte ich, dass nur eine Zelle könnte so geändert werden, dass alle anderen ändern sich mit dem Makros.

Nochmals vielen Dank für all Ihre Hilfe

PS: ja, Ahmad Al-Mutawa, ich will unmöglich chang das Blatt auch nach dem Projekt gespeichert, geschlossen und geöffnet.

Wenn Ihr mehr Infos braucht einfach sagen Sie mir, ich werde versuchen genauer zu sein.

  • Ich denke, dass du vergessen hast die Hälfte deiner Erklärung 😉
  • Es ist nicht klar, was Sie erreichen möchten. Wollen Sie verhindern, dass Menschen zu ändern das Blatt auch nach dem speichern schließen/neu öffnen
InformationsquelleAutor themolestones | 2012-11-08
  1. 0

    Hat deine Datei irgendwelche Makros machen die anderen Operationen als dieses lock-unlock-code, den Sie versuchen zu erreichen?

    Wenn das so ist schlage ich vor, dass Sie einen code in vba. Ansonsten können Sie einfach sperren Sie die Blätter, um zu verhindern, dass Benutzer ändern jährigen oder anytime at all ohne code.

    glauben Sie, könnte dies besser für Sie als ein [code][1]?

    [ http://office.microsoft.com/en-us/excel-help/lock-or-unlock-specific-areas-of-a-protected-worksheet-HA010096837.aspx ][1]

    Aus Neugier: DURCH ZUFALL haben Sie ein Problem, nicht zu wissen, wo und wie der Auslöser dieses code-Stück?

    Bearbeiteten code:-
    Ihr Kommentar ist nicht klar, nonethless ich glaube, Sie möchten ein makro verwenden.
    Angenommen, Sie wollen zu schützen/sperren oder entsperren/entsperren Tabelle1, versuchen Sie bitte Folgendes. :-

    Fügen Sie diesen code in Workbook open-Ereignis in DieseArbeitsmappe:-

    Private Sub Workbook_Open()
  Dim shtSheet As Worksheet
  Dim strPassword As String

    strPassword = "stack"
    Set shtSheet = Worksheets("Sheet1")
    shtSheet.Protect Password:=strPassword, UserInterfaceOnly:=True
End Sub

    Als Nächstes fügen Sie die folgenden in das Modul. Und Sie rufen nach der Ausführung Ihres Makros.

     Sub ProtectSheet()
  Dim shtSheet As Worksheet
  Dim strPassword As String

     strPassword = "stack"
     Set shtSheet = Worksheets("Sheet1")
     shtSheet.Protect strPassword
 End Sub
    • ja, das ist das problem, das ich ausführen von Makros, ändern Sie die Werte der Zellen gesperrt, so dass ich einige code, um es zu klären. Ich dachte, dass vielleicht mit meinem oberen code könnte es funktionieren, und es dit, bis ich Sie geschlossen und wieder geöffnet.
    • Nein, das ist nicht mein problem, das problem ist, dass meine Makros nicht, wenn ich gesperrt das Blatt, gerade zum ersten mal ausgeführt, wenn die Arbeitsmappe geschlossen und geöffnet ist, wenn das problem angezeigt. sorry, vielleicht ist mein Englisch nicht so klar, aber ich wünschte, ich könnte es besser erklären, sorry und danke
    • Sorry, dass ich nicht verstehe Ihre Frage. Perhas der Titel ist irreführend. Wir ändern diesen code ein bisschen: stellen Sie sich das erste aufheben Stück code in Ihre Arbeitsmappe öffnen-Ereignis mit UserInterfaceOnly auf true. Dann fügen Sie Schützen sub in das Ende des main-Modul. Wenn Ihre Makros sind abgeschlossen, Blatt wird geschützt voll. Ich habe bearbeitet den code.
    • Ich werde es versuchen und poste das Ergebnis, vielen Dank
    InformationsquelleAutor bonCodigo
Schreibe einen Kommentar