Hallo thiagojonas,
das funktioniert eigentlich genauso wie mit VBA in Excel.
Delphi-Quellcode:
XLApp.ActiveSheet.Unprotect(Password:= 'Test'); // Blattschutz freigeben mit Passwort
XLApp.ActiveSheet.Range['B2','C4'].Select; // Diese Zellen sind nicht gesperrt.
XLApp.Selection.Locked:= FALSE;
XLApp.Selection.Interior.ColorIndex:= 15; // Die freien Zellen einfärben
XLApp.ActiveSheet.Protect(Password:= 'Test'); // Blattschutz einstellen mit Passwort.
XLApp.ActiveSheet.EnableSelection:= xlUnlockedCells;
Bis bald Chemiker