diff --git a/SDL/kunden/usrCntlOfferte.vb b/SDL/kunden/usrCntlOfferte.vb
index f27a47c3..460ebb17 100644
--- a/SDL/kunden/usrCntlOfferte.vb
+++ b/SDL/kunden/usrCntlOfferte.vb
@@ -133,7 +133,7 @@ Public Class usrCntlOfferte
                 .Columns("BGebMinBetrag").Width = 60
                 .Columns("BGebMinBetrag").HeaderText = "BGebMinBetr."
                 .Columns("BGebMinBetrag").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
-                .Columns("Eingegeben am").Visible = False
+                .Columns("Eingegeben am").Visible = VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTE_DATIEREN", "SDL")
                 ' .Columns("Sachbearbeiter").Visible = False
                 '  .Columns("Geändert am").Visible = False
                 .Columns("PreisänderungProzent").Width = 70
@@ -361,7 +361,7 @@ Public Class usrCntlOfferte
 
             If loaded = True Then
                 dgvOfferteDetails.Rows(e.RowIndex).Cells("Sachbearbeiter").Value = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
-                dgvOfferteDetails.Rows(e.RowIndex).Cells("Geändert am").Value = Now
+                If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTE_DATIEREN", "SDL") Then dgvOfferteDetails.Rows(e.RowIndex).Cells("Geändert am").Value = Now
                 DGVHasChaged = True
                 'saveCurrentOffert()
                 If isNew Then
@@ -613,8 +613,26 @@ Public Class usrCntlOfferte
                                 c.ReadOnly = True
 
                             End If
+
+                            If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTE_DATIEREN", "SDL") Then
+
+                                If (c.Name = "Eingegeben am") Then
+                                    If edit Then
+                                        c.ReadOnly = False
+                                        handleEditMode(edit)
+                                    Else
+                                        c.ReadOnly = True
+                                        handleEditMode(edit)
+                                    End If
+                                Else
+                                    c.ReadOnly = True
+
+                                End If
+
+                            End If
                         End If
 
+
                     Next
                     dgvOfferteDetails.AllowUserToDeleteRows = edit
                 End If