[ChrisGT7]

Θα πρέπει να αλλάξεις την κατάληξη του αρχείου σου σε *.xlsm, αν δεν είναι ήδη. Μ' αυτόν τον τρόπο θα μπορούν να εκτελούνται μακροεντολές.

Κάνε δεξί κλικ πάνω στο όνομα του φύλλου εργασίας σου που είναι η φόρμα και μετά Προβολή κώδικα.

Στο παράθυρο που θα ανοίξει, αριστερά κάνε διπλό κλικ στο ThisWorkbook και επικόλλησε τον παρακάτω κώδικα:

Option Explicit

Private Sub Workbook_Open()
    With ActiveSheet
        If Not IsNumeric(.[B4]) Then
            MsgBox "Ο κωδικός πρέπει να είναι αριθμός!", vbCritical, "ΣΦΑΛΜΑ"
            .[B4].Select
            Exit Sub
        End If
        
        .[B4].NumberFormat = "@"
        .[B4] = Format(.[B4] + 1, "00000")
    End With
End Sub

Τέλος, στον παραπάνω κώδικα αντικατέστησε το B4 με το κελί του κωδικού στη φόρμα σου.