Παραγωγή τυχαίου αριθμού & απενεργοποίηση VBA

[parara]

Καλησπέρα,
1. Υπάρχει κάποια εντολή σε VBA που να παράγει αριθμούς (γεννήτρια). Συγκεκριμμένα θέλω να μου δίνει τυχαία ένα 4-ψήφιο ακέραιο.

2. Υπάρχει κάποια εντολή που να απενεργοποιεί τον συνδιασμό Alt+F11 (εμφάνιση VBA debager)

Ευχαριστώ

[parara]

Για την παραγωγή 4-ψήφιου τυχαίου αριθμού χρησιμοποίησα τον παρακάτω κώδικα, για όποιον ενδιαφέρεται

Dim MyValue

MyValue = Int((10000 * Rnd) + 1)

για το δεύτερο κομάτι του ερωτήματος δεν βρήκα ακόμη κάποια λύση

[kapetang]

Καλημέρα

1) Για τυχαίους τετραψήφιους (1000 έως 9999) θα πρότεινα τον τύπο: 1000 + ΙΝΤ(9000*Rnd).

2) Για την απόκρυψη του κώδικα:

Στο παράθυρο του κώδικα, κάνε κλικ στο μενού Tools και την επιλογή ….Properties.

Στην καρτέλα Protection του παραθύρου, που θα εμφανιστεί, τσεκάρισε το πλαίσιο ελέγχου και όρισε Password.

Φιλικά/Γιώργος