Pflichtfelder rot. Jetzt, wie man speichert?

Question

Was es tut: Erfordert Felder von Benutzern. Blockiert Benutzer vom Speichern, wenn bestimmte Felder fehlen. Schaltet diese Felder rot, bis sie korrekt gespeichert werden.

Was ich brauche: Nun, wie zum Teufel soll ich das ...

retten soll, was ich möchte: Da das Arbeitsblatt leer ist. Ich kann nicht speichern. und Pflichtfelder sind rot. SELBST, wenn ich retten könnte, würde ich WIE die Zellen auf nicht füllen, bis ich es ausrollen.

View Original Post Here

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) 

Dim xlSht As Worksheet 
Dim cellsNotPopulated As Boolean 
cellsNotPopulated = False 

Set xlSht = ThisWorkbook.Worksheets("1st Call") 

    With xlSht 

     If .Range("F7") = "" Then 
      .Range("F7").Interior.Color = RGB(255, 0, 0) 
      cellsNotPopulated = True 
     Else 
      .Range("F7").Interior.ColorIndex = xlNone 
     End If 
    End With 

    If cellsNotPopulated = True Then 
     MsgBox "Please review the highlighted cells and ensure the fields are populated." 
     Cancel = True 
    End If 
End Sub 

Answer 1

Wenn Sie mitten in der Entwicklung sind und wollen „die Regeln brechen“ und Ihre derzeitigen Bemühungen speichern, dann in einem Standardmodul:

Sub MyPrivateSave() 
    Application.EnableEvents = False 
    ThisWorkbook.Save 
    Application.EnableEvents = True 
End Sub 

Natürlich Wenn Sie mit der Entwicklung fertig sind, entfernen Sie dieses kleine "Save Tool", bevor Sie die Arbeitsmappe an die Benutzer senden.

Answer 2

oder fügen Sie als die erste Zeile if environ("Username")=your username then exit sub