Ich versuche nur Zellen in einem Arbeitsblatt VBA Excel

Question

Sub ProtectAll() 

    Sheet4.Protect Password:="xx2016" 

End Sub 

Bitte helfen Code zu verbessern zu sperren, um nur ein Arbeitsblatt zu sperren

Answer 1

Es wäre toll, wenn Sie weitere Informationen über Ihre eigentliche Problem liefern könnten. Ich denke, dass Sie eine bestimmte Zelle sperren möchten, aber wenn Sie das Blatt sperren, sind alle Zellen gesperrt. Wenn das so ist, ist hier die Lösung. Wenn nicht, erkläre bitte dein Problem!

Zunächst müssen Sie das Attribut "Gesperrt" für alle Zellen auf "false" setzen (der Standardwert ist "true"). Dann wird das Attribut "Gesperrt" für alle erforderlichen Zellen auf "True" gesetzt. Dann können Sie das Blatt sperren.

Sub Makro2() 
    Cells.Select 
    Selection.Locked = False 
    Selection.FormulaHidden = False 
    Range("E6").Select 
    Selection.Locked = True 
    Selection.FormulaHidden = False 
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True 
    Range("E4").Select 
End Sub 

Edit 1: Dank Pav, hier eine bessere Lösung, die „wählt“, sondern arbeitet in der gleichen Art und Weise vermeidet:

Sub Makro2() 
    Cells.Locked = False 
    Cells.FormulaHidden = False 
    Range("E6").Locked = True 
    Range("E6").FormulaHidden = False 
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="xx2016" 
End Sub