diff --git a/messages/uniworx/categories/courses/sheet/de-de-formal.msg b/messages/uniworx/categories/courses/sheet/de-de-formal.msg
index c10f81e0c..5ab5fc427 100644
--- a/messages/uniworx/categories/courses/sheet/de-de-formal.msg
+++ b/messages/uniworx/categories/courses/sheet/de-de-formal.msg
@@ -155,3 +155,5 @@ SheetGradingPassAlways: Automatisch bestanden, sobald korrigiert
 SheetAuthorshipStatement: Eigenständigkeitserklärung
 SheetAuthorshipStatementRequired: Eigenständigkeitserklärung einfordern?
 SheetAuthorshipStatementRequiredTip: Soll jeder Abgebende (bei Abgabegruppen jedes Mitglied der Abgabegruppe) aufgefordert werden, eine Eigenständigkeitserklärung zu akzeptieren?
+SheetAuthorshipStatementIsRequiredTrue: Erforderlich
+SheetAuthorshipStatementIsRequiredFalse: Keine
diff --git a/messages/uniworx/categories/courses/sheet/en-eu.msg b/messages/uniworx/categories/courses/sheet/en-eu.msg
index 4b04a2380..e7434d7f0 100644
--- a/messages/uniworx/categories/courses/sheet/en-eu.msg
+++ b/messages/uniworx/categories/courses/sheet/en-eu.msg
@@ -154,3 +154,5 @@ SheetGradingPassAlways: Automatically passed when corrected
 SheetAuthorshipStatement: Statement of Authorship
 SheetAuthorshipStatementRequired: Require Statement of Authorship for submissions?
 SheetAuthorshipStatementRequiredTip: Should each submittor (in case of submission groups each group member) be required to accept a Statement of Authorship?
+SheetAuthorshipStatementIsRequiredTrue: Required
+SheetAuthorshipStatementIsRequiredFalse: None
diff --git a/src/Handler/Sheet/Show.hs b/src/Handler/Sheet/Show.hs
index 045d8d631..772649a4e 100644
--- a/src/Handler/Sheet/Show.hs
+++ b/src/Handler/Sheet/Show.hs
@@ -20,7 +20,10 @@ getSShowR tid ssh csh shn = do
   now <- liftIO getCurrentTime
   muid <- maybeAuthId
   Entity sid sheet <- runDB $ fetchSheet tid ssh csh shn
+
   seeAllModificationTimestamps <- hasReadAccessTo $ CSheetR tid ssh csh shn SIsCorrR -- ordinary users should not see modification dates older than visibility
+  mayEdit <- hasWriteAccessTo $ CSheetR tid ssh csh shn SEditR
+  maySubmit <- hasWriteAccessTo $ CSheetR tid ssh csh shn SubmissionNewR
 
   let sftVisible :: IsDBTable m a => SheetFileType -> DBCell m a
       sftVisible sft | Just dts <- sheetFileTypeDates sheet sft
diff --git a/templates/sheetShow.hamlet b/templates/sheetShow.hamlet
index 4f18e2ab9..e7915deca 100644
--- a/templates/sheetShow.hamlet
+++ b/templates/sheetShow.hamlet
@@ -70,6 +70,11 @@ $maybe descr <- sheetDescription sheet
       _{MsgTableSheetType}
     <dd .deflist__dd>
       ^{sTypeDesc tr}
+    $if mayEdit || maySubmit
+      <dt .deflist__dt>
+        _{MsgSheetAuthorshipStatement}
+      <dd .deflist__dd>
+        _{maybe MsgSheetAuthorshipStatementIsRequiredFalse (const MsgSheetAuthorshipStatementIsRequiredTrue) (sheetAuthorshipStatement sheet)}
 
 $maybe marktxt <- markingText
   <section>