Πώς να χρησιμοποιήσετε VBA για να ανακτήσετε τα Microsoft Windows Όνομα Χρήστη

Ευρυζωνικό Διαδίκτυο , εύκολο - to- configure routers και σχετικά φθηνό υπολογιστές έχουν οδηγήσει σε μια έκρηξη στην ανάπτυξη του σπιτιού και μικρά εταιρικά δίκτυα . Οι άνθρωποι χρησιμοποιούν τη δύναμη της σύνδεσης σε κοινή πρόσβαση και να εργαστούν σε όλους τους τύπους αρχείων - ειδικά εκείνων που δημιουργήθηκαν στα προγράμματα του Microsoft Office . Όταν μοιράζεστε τα αρχεία που δημιουργήθηκαν στο Office - ανεξάρτητα από το εάν δημιουργήθηκε με την Access, Excel , PowerPoint ή Word - είναι συχνά δύσκολο να καθοριστεί ποιος χρήστης δημιουργήσει ένα αρχείο . Ωστόσο , με κάποια σχετικά απλό κώδικα VBA , μπορείτε να προσθέσετε το τρέχον όνομα χρήστη των Windows - όχι το " Συγγραφέας ή εγγραφής Όνομα χρήστη " στο Office - του δημιουργού στο έγγραφο , αρχείο παρουσίασης μορφή ή υπολογιστικό φύλλο σε ένα θέμα λεπτών . Οδηγίες
Η

1 Ανοίξτε την εφαρμογή Microsoft Office στην οποία θέλετε να προσθέσετε τον κώδικα μακροεντολών VBA που απαιτείται για να εμφανιστεί το όνομα του τρέχοντος χρήστη . Κάντε κλικ στο μικρό κάτω βέλος δίπλα στο κόσμο του Office ή το εικονίδιο του προγράμματος στην επάνω δεξιά γωνία του παραθύρου . Κάντε κλικ στο " Περισσότερες εντολές " σύνδεσμο . 2

Κάντε κλικ στο " Προσαρμογή της Κορδέλας , " και στη συνέχεια κάντε κλικ στο κουμπί και να ενεργοποιήσετε το " Developer " στο δεξιό τμήμα του παραθύρου . Κάντε κλικ στο κουμπί " OK" .
Εικόνων 3

Ανοίξτε ένα έγγραφο στο οποίο θέλετε να προσθέσετε τον κώδικα VBA . Ανοίξτε μια κενή έκδοση του εγγράφου , έντυπο φύλλο ή παρουσίαση - ή αυτό που εσείς οι χρήστες μπορούν να προσαρμόσουν - όπως μπορείτε να αποθηκεύσετε το αντικείμενο ως πρότυπο
Η

4 Κάντε κλικ στην καρτέλα " Αρχείο" . η γραμμή εργαλείων και, στη συνέχεια "Save As ". Επιλέξτε το " πρότυπο με ενεργοποίηση μακροεντολών " στο drop-down λίστα " Αποθήκευση ως τύπου " . Πληκτρολογήστε ένα όνομα για το πρότυπο και, στη συνέχεια κάντε κλικ στο κουμπί "Αποθήκευση".
5

Κάντε κλικ στην καρτέλα "Προγραμματιστής " στη γραμμή εργαλείων και στη συνέχεια κάντε κλικ στο κουμπί " Μακροεντολές ". Πληκτρολογήστε " CurrentWindowsUser " στο πεδίο " Όνομα μακροεντολής " , στη συνέχεια, κάντε κλικ στο κουμπί " . Δημιουργία "
Η 6

Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα στα " NewMacros ( Code ) " παράθυρο :

Sub CurrentWindowsUser ( )

Dim ΤοΚείμενόΜου Όπως String

ΤοΚείμενόΜου = Environ ( " username")

Selection.TypeText ( ΤοΚείμενόΜου )

End Sub
Σελίδα 7

Κάντε κλικ στο εικονίδιο "Αποθήκευση" στη γραμμή εργαλείων VBA .
8

Κάντε κλικ στην καρτέλα "Αρχείο" , στη συνέχεια, αποθηκεύστε . Κλείστε το έγγραφο πρότυπο .
Η

9 Κάντε κλικ στο " Αρχείο ", " Νέα ", στη συνέχεια " Τα πρότυπά μου " . Επισημάνετε το νέο πρότυπο στη λίστα , στη συνέχεια, κάντε κλικ στο " OK".
Η 10

Τοποθετήστε το δρομέα στο σημείο όπου θέλετε να εισαγάγετε το τρέχον όνομα χρήστη των Windows . Κάντε κλικ στην καρτέλα "Προγραμματιστής " , στη συνέχεια " Μακροεντολές ".

11

Τονίστε το " CurrentWindowsUser " macro , στη συνέχεια, κάντε κλικ στο κουμπί " Run" . Το τρέχον όνομα χρήστη των Windows εμφανίζεται στο αρχείο αντικειμένου της Microsoft στην επιλεγμένη θέση .
Η
εικόνων