[pakos]

Τάσο ευχαριστώ για την λύση

γηράσκω αει διδασκόμενος

πληροφοριακα

η CommandBars.ExecuteMso ("MinimizeRibbon") κανει τη ribbon ελαχιστοποιηση (ειναι ορατο το μενου) ενω

η DoCmd.ShowToolbar "RIBBON", acToolbarNo κανει τη ribbon αποκρυψη (δεν ειναι ορατο το μενου)

ο συνδιασμος στο if εχει το αποτελεσμα που επιδιωκα



και με μικρη αλλαγη

If CommandBars("Ribbon").visible=true Then
exit sub
else
end if