In VBA würde es so aussehen:
Code:
Sub Makro()
'Blattschutz aufheben
ActiveSheet.Protect Password:="test", DrawingObjects:=False, Contents:=False, Scenarios:=False
'Dialog zur Farbwahl anzeigen
Application.Dialogs(xlDialogPatterns).Show
'Nach beendigen des Dialogs Blattschutz wieder aktivieren
ActiveSheet.Protect Password:="test", DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub