Hej.

Har ett excelblad som skapas slumpvis med hjälp av vba kod.

När det är klart exporteras det som ett nytt excelblad.

Innan det skulle jag vilja att alla ifyllda celler (en del är fyllda med text, andra med färg), blev låsta, så att ingen inmatning kan göras på dessa.

Däremot skulle jag vilja att man i alla tomma fält kan mata in värden/text och sedan spara igen.

Hur gör man detta? :) 

Hej

Detta kan vara lite trixigt då default inställningen för varje cell är just låst. Alltså måste vi öppna upp alla celler som inte har färger eller värden i sig och därefter låsa de celler som ska vara låsta.

Enklast är att låsa upp ett angivet område, och därefter modifiera din färdiga kod. Öppnar vi upp hela bladet ner till rad 1048576 ock kolumn: XFD så kommer din arbetsbok bli onödigt stor, samt att det kommer ta ganska lång tid att köra programmet.
Då är det bättre att begränsa sig... Nedan kod öppnar upp alla celler från cell(1,1) till cell(1000, 30), (rad, kolumn).

Sub Macro1()

Dim rng As Range: Set rng = ActiveSheet.Range(Cells(1, 1), Cells(1000, 30))

rng.locked = false

End Sub

För att kunna hjälpa dig att modifiera din färdiga kod så behöver du dela med dig av den. Annars är det .locked = true som du är ute efter om du kan göra det själv.
Det sista du behöver göra i den färdiga koden är att låsa bladet: Activesheet.protect = true Samt att se till att koden även öppnar upp bladet innan den körs. Det går även att låsa bladet med lösenord om detta skulle önskas: Activesheet.protect = true "password"

PS. se till att först öppna upp cellerna, därefter köra dina andra kod. Det går även utmärkt att slå ihop min kod med din..

Mvh
Christian