diff --git a/src/Handler/ExamOffice/Exam.hs b/src/Handler/ExamOffice/Exam.hs
index 09d6222fb..7d30e4719 100644
--- a/src/Handler/ExamOffice/Exam.hs
+++ b/src/Handler/ExamOffice/Exam.hs
@@ -234,6 +234,7 @@ postEGradesR tid ssh csh examn = do
     Course{..} <- getJust examCourse
 
     isLecturer <- hasReadAccessTo $ CExamR tid ssh csh examn EUsersR
+    isExamOffice <- hasReadAccessTo $ ExamOfficeR EOExamsR
     userFunctions <- selectList [ UserFunctionUser ==. uid, UserFunctionFunction ==. SchoolExamOffice ] []
 
     userCsvExportLabel' <- E.select . E.from $ \examOfficeLabel -> do
@@ -439,10 +440,14 @@ postEGradesR tid ssh csh examn = do
           dbtCsvEncode = Just DBTCsvEncode
             { dbtCsvExportForm = ExamUserCsvExportData
               <$> apopt checkBoxField (fslI MsgExamOfficeExamUserMarkSynchronisedCsv & setTooltip MsgExamOfficeExamUserMarkSynchronisedCsvTip) (Just False)
-              <*> maybe 
-                  (aforced checkBoxField (fslI MsgExamOfficeLabelSetLabelOnExport & setTooltip MsgExamOfficeLabelSetLabelOnExportForcedTip) False)
-                  (\expLbl -> apopt checkBoxField (fslI MsgExamOfficeLabelSetLabelOnExport & setTooltip (MsgExamOfficeLabelSetLabelOnExportTip expLbl)) (Just True))
-                  ((examOfficeLabelName . entityVal) <$> userCsvExportLabel)
+              <*> bool
+                  ( pure False )
+                  ( maybe 
+                    (aforced checkBoxField (fslI MsgExamOfficeLabelSetLabelOnExport & setTooltip MsgExamOfficeLabelSetLabelOnExportForcedTip) False)
+                    (\expLbl -> apopt checkBoxField (fslI MsgExamOfficeLabelSetLabelOnExport & setTooltip (MsgExamOfficeLabelSetLabelOnExportTip expLbl)) (Just True))
+                    ((examOfficeLabelName . entityVal) <$> userCsvExportLabel)
+                  )
+                  isExamOffice
             , dbtCsvDoEncode = \ExamUserCsvExportData{..} -> C.mapM $ \(E.Value k, row) -> do
                 when csvEUserMarkSynchronised $ markSynced k
                 when csvEUserSetLabel $ maybe (return ()) (\lbl -> void $ upsert (ExamOfficeExamLabel eid lbl) [ExamOfficeExamLabelLabel =. lbl]) (entityKey <$> userCsvExportLabel)
diff --git a/src/Handler/Utils/ExternalExam/Users.hs b/src/Handler/Utils/ExternalExam/Users.hs
index a7bac7c90..056e08dec 100644
--- a/src/Handler/Utils/ExternalExam/Users.hs
+++ b/src/Handler/Utils/ExternalExam/Users.hs
@@ -195,6 +195,7 @@ makeExternalExamUsersTable mode (Entity eeId ExternalExam{..}) = do
 
   Entity uid currentUser <- requireAuth
   isLecturer <- hasReadAccessTo $ EExamR tid ssh coursen examn EEUsersR
+  isExamOffice <- hasReadAccessTo $ ExamOfficeR EOExamsR
   currentRoute <- fromMaybe (error "makeExternalExamUsersTable called from 404-handler") <$> getCurrentRoute
   MsgRenderer mr <- getMsgRenderer
   exampleTime <- over _utctDayTime (fromInteger . round . toRational) <$> liftIO getCurrentTime
@@ -370,10 +371,14 @@ makeExternalExamUsersTable mode (Entity eeId ExternalExam{..}) = do
       EEUMGrades -> Just DBTCsvEncode
         { dbtCsvExportForm = ExternalExamUserCsvExportDataGrades
           <$> apopt checkBoxField (fslI MsgExternalExamUserMarkSynchronisedCsv & setTooltip MsgExternalExamUserMarkSynchronisedCsvTip) (Just False)
-          <*> maybe
-              (aforced checkBoxField (fslI MsgExamOfficeLabelSetLabelOnExport & setTooltip MsgExamOfficeLabelSetLabelOnExportForcedTip) False)
-              (\expLbl -> apopt checkBoxField (fslI MsgExamOfficeLabelSetLabelOnExport & setTooltip (MsgExamOfficeLabelSetLabelOnExportTip expLbl)) (Just True))
-              ((examOfficeLabelName . entityVal) <$> userCsvExportLabel)
+          <*> bool
+              ( pure False )
+              ( maybe
+                (aforced checkBoxField (fslI MsgExamOfficeLabelSetLabelOnExport & setTooltip MsgExamOfficeLabelSetLabelOnExportForcedTip) False)
+                (\expLbl -> apopt checkBoxField (fslI MsgExamOfficeLabelSetLabelOnExport & setTooltip (MsgExamOfficeLabelSetLabelOnExportTip expLbl)) (Just True))
+                ((examOfficeLabelName . entityVal) <$> userCsvExportLabel)
+              )
+              isExamOffice
         , dbtCsvDoEncode = \ExternalExamUserCsvExportDataGrades{..} -> C.mapM $ \(E.Value k, row) -> do
             when csvEEUserMarkSynchronised $ externalExamResultMarkSynchronised k
             when csvEEUserSetLabel $ maybe (return ()) (\lbl -> void $ upsert (ExamOfficeExternalExamLabel eeId lbl) [ExamOfficeExternalExamLabelLabel =. lbl]) (entityKey <$> userCsvExportLabel)