diff --git a/applications/spready/smain.lfm b/applications/spready/smain.lfm
index e4cb33f6a..ff28b7897 100644
--- a/applications/spready/smain.lfm
+++ b/applications/spready/smain.lfm
@@ -347,7 +347,7 @@ object MainForm: TMainForm
       Width = 130
       WorkbookSource = WorkbookSource
       DropDownCount = 24
-      ItemIndex = 44
+      ItemIndex = 46
       TabOrder = 0
       Text = 'Arial'
     end
@@ -1905,6 +1905,13 @@ object MainForm: TMainForm
       OnExecute = AcWorksheetProtectionExecute
       OnUpdate = AcWorksheetProtectionUpdate
     end
+    object AcSettingsReadFormulas: TAction
+      Category = 'Settings'
+      AutoCheck = True
+      Caption = 'Read formulas'
+      Checked = True
+      OnExecute = AcSettingsReadFormulasExecute
+    end
   end
   object ImageList: TImageList
     left = 176
@@ -4708,6 +4715,13 @@ object MainForm: TMainForm
       object MenuItem108: TMenuItem
         Action = AcSettingsCurrency
       end
+      object MenuItem179: TMenuItem
+        Caption = '-'
+      end
+      object MenuItem180: TMenuItem
+        Action = AcSettingsReadFormulas
+        AutoCheck = True
+      end
     end
     object MnuHelp: TMenuItem
       Caption = 'Help'
diff --git a/applications/spready/smain.pas b/applications/spready/smain.pas
index 6a95299f3..9fc985b48 100644
--- a/applications/spready/smain.pas
+++ b/applications/spready/smain.pas
@@ -37,6 +37,7 @@ type
     AcSortColAsc: TAction;
     AcRowHeight: TAction;
     AcColWidth: TAction;
+    AcSettingsReadFormulas: TAction;
     AcWorksheetProtection: TAction;
     AcWorksheetRTL: TAction;
     AcViewInspector: TAction;
@@ -79,6 +80,8 @@ type
     MenuItem176: TMenuItem;
     MenuItem177: TMenuItem;
     MenuItem178: TMenuItem;
+    MenuItem179: TMenuItem;
+    MenuItem180: TMenuItem;
     MenuItem2: TMenuItem;
     MenuItem3: TMenuItem;
     MenuItem4: TMenuItem;
@@ -431,6 +434,7 @@ type
     procedure AcRowAddExecute(Sender: TObject);
     procedure AcRowDeleteExecute(Sender: TObject);
     procedure AcRowHeightExecute(Sender: TObject);
+    procedure AcSettingsReadFormulasExecute(Sender: TObject);
     procedure AcSortColAscExecute(Sender: TObject);
     procedure AcSortExecute(Sender: TObject);
     procedure ActionListUpdate(AAction: TBasicAction; var Handled: Boolean);
@@ -805,6 +809,14 @@ begin
   end;
 end;
 
+procedure TMainForm.AcSettingsReadFormulasExecute(Sender: TObject);
+begin
+  if AcSettingsReadFormulas.Checked then
+    WorkbookSource.Options := WorkbookSource.Options + [boReadFormulas]
+  else
+    WorkbookSource.Options := WorkbookSource.Options - [boReadFormulas];
+end;
+
 procedure TMainForm.AcShowGridLinesExecute(Sender: TObject);
 begin
   WorksheetGrid.ShowGridLines := AcShowGridLines.Checked;
@@ -1130,6 +1142,10 @@ begin
     b := ini.ReadBool('Inspector', 'Visible', false);
     AcViewInspector.Checked := b;
     AcviewInspectorExecute(nil);
+
+    AcSettingsReadFormulas.Checked := ini.ReadBool('Settings', 'ReadFormulas', true);
+    AcSettingsReadFormulasExecute(nil);
+
   finally
     ini.Free;
   end;
@@ -1206,6 +1222,8 @@ begin
     ini.WriteInteger('Inspector', 'Width', InspectorTabControl.Width);
     ini.WriteString('Inspector', 'Page', InspectorTabControl.Tabs[InspectorTabControl.TabIndex]);
     ini.WriteBool('Inspector', 'Visible', InspectorTabControl.Visible);
+
+    ini.WriteBool('Settings', 'ReadFormulas', AcSettingsReadFormulas.Checked);
   finally
     ini.Free;
   end;