Sperren Sie leere Zellen und entsperren Sie freie Zellen

Error Message Ich bin neu in Excel und ich versuche, Code zu schreiben, der leere Zellen sperrt und entsperrt die mit Werten, jede Hilfe wird sehr geschätzt. Dies ist, was ich habe und es gibt mirSperren Sie leere Zellen und entsperren Sie freie Zellen

Laufzeitfehler '1004': Methode 'Bereich des Objekts'_Global'failed.

Sub test() 
    Dim rngTemp As Range 

    For Each rngTemp In Range("grey").Cells 
     With rngTemp 
      If .Value > 0 Or Len(.Value) > 0 Then 
       .Locked = False 
      End If 
     End With 
    Next 
End Sub

Quelle

2017-04-20 sa7

Sie Ihren rngTemp einen Bereich zum Beispiel geben muss („A1: X“) – Ionut

ich die Strecke geändert: Range („A1: B2“). Die Zellen und nahm den Fehler weg, aber wenn ich zu übertreffen gehen nichts ist verschlossen. Gibt es einen anderen Weg, von dem du denkst, dass ich das schreiben kann? Es tut mir leid, das ist mein erstes Mal und ich habe eine wirklich harte Zeit damit. – sa7

Um eine Zelle zu sperren, müssen Sie auch Ihr Blatt mit einem Passwort schützen und nur dann können Sie nichts in die leeren Zellen Ihres Bereichs schreiben – Ionut

Ihr Code funktioniert gut für mich. Sind Sie sicher, dass Sie eine Reichweite haben, die "Grau" genannt wird?

Quelle

2017-04-20 06:53:21 Zsmaster

Ja, ich habe grau, ist da. Ich habe genau das gleiche, was du hast, aber es gibt mir diesen Entfernungsfehler. Ich versuche, einen Screenshot davon zu posten, aber es lässt mich nicht in das Kommentarfeld – sa7

Versuchen Sie, Ihre Frage zu bearbeiten, ich denke, Sie können dort einen Screenshot anhängen. – Zsmaster

Gibt es einen anderen Weg, von dem du denkst, ich könnte das schreiben? Es tut mir leid, das ist mein erstes Mal und ich habe eine wirklich harte Zeit damit. – sa7

Sperren Sie leere Zellen und entsperren Sie freie Zellen

Antwort

Verwandte Themen