04-11-10, 19:36
|
| Διαχειριστής Όνομα: Τάσος Φιλοξενιδης Έκδοση λογισμικού Office: Ms-Office 365 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική, Γερμανική | | Εγγραφή: 21-10-2009
Μηνύματα: 2.010
| |
Καλησπέρα Μάρω!
Έχεις μπει για τα καλά στα άβατα της Excel
Αν στο συνημμένο παράδειγμα μου (σε προηγούμενο μήνυμα) προσθέσεις το παρακάτω κώδικα στη λειτουργική μονάδα του φύλλου, θα μπορείς να διαγράφεις ολόκληρες γραμμές σε προστατευμένο φύλλο: Κώδικας: Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count = Columns.Count * Target.Rows.Count Then
Me.Unprotect Password:="0000"
Else
If Not Me.ProtectContents Then
Me.Protect Password:="0000", UserInterfaceOnly:=True
End If
End If
End Sub
Μπορείς να το δεις έτοιμο στο παρακάτω συνημμένο.
Φιλικά
Τάσος
__________________ Ms-Office Development Team Ανάπτυξη επαγγελματικών εφαρμογών |