Forum

Forum (https://www.ms-office.gr/forum/)
-   Excel - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/)
-   -   [Excel07] Δημιουργία κουμπιού (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/4939-dimioyrgia-koympioi.html)

stam75 07-08-18 20:44

Καλησπέρα σας! Πιστεύω να είστε καλά!
Επανέρχομαι στο συγκεκριμένο θέμα λόγω του ότι αντιμετώπισα ένα θεματάκι.
Δεν έχω πειράξει τίποτα στον κώδικα, καμία αλλαγή.
Έχω προσθέσει προστασία με κωδικό σε κάποια φύλλα, με αποτέλεσμα όταν λειτουργώ την userform να μου εμφανίζει ένα παράθυρο και να μου κιτρινίζει την σειρά με τα κόκκινα γράμματα.
(ενώ στου Γιώργου το φύλλο δεν συναντώ αυτό το πρόβλημα)
Όταν την βγάζω δουλεύει κανονικά.

Κώδικας:

Private Sub Lst_NmRng_Click()
    shSel.Activate
        Application.GoTo Range(Me.Lst_NmRng.Value), False
End Sub

Μπορώ με κάποιον τρόπο να έχω και προστασία στα φύλλα αλλά και να μη μου εμφανίζει το παράθυρο με το σφάλμα;

Σας ευχαριστώ πολύ!



Edit

το κατάφερα με το παρακάτω
Κώδικας:

Private Sub Lst_NmRng_Click()
Application.ScreenUpdating = False
Sheets("ΑΡΧΙΚΟ").Unprotect Password:="Password"
Sheets("ΤΕΛΙΚΟ").Unprotect Password:="Password"
    shSel.Activate
        Application.GoTo Range(Me.Lst_NmRng.Value), False
Sheets("ΑΡΧΙΚΟ").Protect Password:="Password"
Sheets("ΤΕΛΙΚΟ").Protect Password:="Password"
        Application.ScreenUpdating = True
End Sub

Το πάω καλά για όσα φύλλα έχουν προστασία;


Η ώρα είναι 20:11.

Ms-Office.gr - ©2000 - 2026, Jelsoft Enterprises Ltd.


Search Engine Optimization by vBSEO 3.3.2