[Spirosgr]

Καλημέρα
Μια διαφορετική προσέγγιση θα μπορούσε να είναι η εξής
Ισχύει για 2007 έκδοση και μεταγενέστερη (κορδέλα)
Βάζουμε κωδικό όνομα φύλλων Sh1, Sh2 αν έχουμε Ελληνική έκδοση στην θέση Φύλλο 1,Φύλλο 2
Παράθυρο ιδιοτήτων Name (Developer)
Άλλως αφήνουμε το Sheet1, Sheet2 κωδικό όνομα φύλλων (μας εξυπηρετεί κι έτσι)
Βάζουμε τον κώδικα σε μια module και συνδέουμε ένα κουμπί (Sub test)
Ονομάζουμε ένα κελί MyCode και εκεί θα μπαίνει ο κωδικός αριθμός κλειδώματος / ξεκλειδώματος
Στο παράδειγμα 123456 (Αλλάξτε κατά το δοκούν. Αν επιλέξετε λέξη να μπει σε " ")
Αν στο κελί δεν υπάρχει ο σωστός ή καθόλου κωδικός τότε οι Columns("D:E") είναι κριμένες και η κορδέλα της excel επίσης
Βάζουμε και τον κώδικα Sub Auto_Open στην module με τις πιο κάτω προσθήκες
Κατά το άνοιγμα όλα παραμένουν κριμένα

Sub Auto_Open()
    Sh1.Activate
    Application.ExecuteExcel4Macro "show.toolbar(""Ribbon"", false)"
    Sh2.Columns("D:E").ColumnWidth = 0
End Sub

Sub test()
    If Range("MyCode").Value = 123456 Then
        Columns("D:E").EntireColumn.AutoFit
        Application.ExecuteExcel4Macro "show.toolbar(""Ribbon"", True)"
        Range("MyCode").ClearContents
        ActiveWindow.DisplayHeadings = False
    Else
        Exit Sub
    End If
End Sub

Καλό είναι οι τύποι στα κελιά των D:E να είναι της μορφής

=IF(C3<>"";IF(C3=ΑΠΑΝΤΗΣΕΙΣ!A1;"ΣΩΣΤΟ";"ΛΑΘΟΣ");"") και =IF(D3<>"";IF(D3="ΣΩΣΤΟ";2;0);"")

Αποδίδουν κενό αν δεν υπάρχει απάντηση
Βάζοντας τον σωστό κωδικό στο MyCode και πιέζοντας το κουμπί ανοίγουν οι στήλες και η κορδέλα
Επεξεργαζόμαστε και βγαίνουμε με Save