Как защитить рабочий лист от ввода с клавиатуры, но не от действий макроса?

Worksheets(1).Protect UserInterfaceOnly:=True

При необходимости можно указать нужные аргументы, в том числе и пароль:

Worksheets(1).Protect Password:="Excel", DrawingObjects:=True, Contents:=True, Scenarios:=True, UserInterfaceOnly:=True

Примечание:

• Не забывайте, что ввод данных с клавиатуры невозможен, только при условии, что ячейки заблокированы.
• При использовании аргумента UserInterfaceOnly возможность изменения в заблокированных ячейках сохраняется только до закрытия рабочей книги.

Актуально для MS Excel 97, 2000, XP