diff --git a/gnucash/register/register-gnome/gnucash-sheet.c b/gnucash/register/register-gnome/gnucash-sheet.c
index 64d2b42435..520d33bbba 100644
--- a/gnucash/register/register-gnome/gnucash-sheet.c
+++ b/gnucash/register/register-gnome/gnucash-sheet.c
@@ -746,6 +746,14 @@ gnucash_sheet_redraw_block (GnucashSheet *sheet, VirtualCellLocation vcell_loc)
     gtk_widget_queue_draw_area (GTK_WIDGET(sheet), x, y, w + 1, h + 1);
 }
 
+gboolean
+gnucash_sheet_is_read_only (GnucashSheet *sheet)
+{
+    g_return_val_if_fail (sheet != NULL, TRUE);
+    g_return_val_if_fail (GNUCASH_IS_SHEET(sheet), TRUE);
+    return gnc_table_model_read_only (sheet->table->model);
+}
+
 static void
 gnucash_sheet_finalize (GObject *object)
 {
diff --git a/gnucash/register/register-gnome/gnucash-sheet.h b/gnucash/register/register-gnome/gnucash-sheet.h
index f729e8fbff..907cd34e9f 100644
--- a/gnucash/register/register-gnome/gnucash-sheet.h
+++ b/gnucash/register/register-gnome/gnucash-sheet.h
@@ -110,5 +110,7 @@ void gnucash_sheet_set_text_bounds (GnucashSheet *sheet, GdkRectangle *rect,
 gint gnucash_sheet_get_text_offset (GnucashSheet *sheet, const VirtualLocation virt_loc,
                                     gint rect_width, gint logical_width);
 
+gboolean gnucash_sheet_is_read_only (GnucashSheet *sheet);
+
 /** @} */
 #endif