[kapetang]

Καλημέρα

Σάκη θα πρότεινα να χρησιμοποιήσεις τον παρακάτω κώδικα:

Public Sub HiddenUnHidden()
    If ActiveSheet.ProtectContents Then
        ActiveSheet.Unprotect 'συμπληρώνεται και το password αν το κλείδωμα γίνεται με password
        Columns("M:O").Hidden = Not Columns("M:O").Hidden
        ActiveSheet.Protect   'συμπληρώνεται και το password αν το κλείδωμα γίνεται με password
    Else
        Columns("M:O").Hidden = Not Columns("M:O").Hidden
    End If
End Sub

Ο κώδικας εφαρμόζεται στο ενεργό φύλλο και κάνει τα εξής:

Αν είναι κλειδωμένο
1) Το ξεκλειδώνει για να μπορεί να το αλλάξει.
2) Κρύβει τις στήλες αν φαίνονται ή τις εμφανίζει αν δε φαίνονται.
3) Ξανακλειδώνει το φύλλο.

Αν είναι ξεκλείδωτο
Κρύβει τις στήλες αν φαίνονται ή τις εμφανίζει αν δε φαίνονται.