В свойстве UserName
хранится имя текущего
пользователя. Оно допускает как
чтения, так и установки. Значение
данного свойства по умолчанию
равно содержимому поля Имя
пользователя (User Name),
находящего во вкладке Общие
(General) диалогового окна Параметры
(Options) (для открытия данного
диалоговог окна выберите команду
Сервис | Параметры).
Sub
FileNameMe ()
Dim sUserName As String
Dim sMsgBoxPrompt As String
Dim sFileName As String
Dim iResponse As Integer
sUserName = Application.UserName
sMsgBoxPrompt = "Имя файла :"
& sUserName & vbCrLf
sMsgBoxPrompt = sMsgBoxPrompt & "
Использовать данное имя файла
?"
iResponse = MsgBox(sMsgBoxPrompt, vbYesNo)
If iResponse = vbNo Then
sUserName =
InputBox("Введите свое имя :")
End If
sFileName = Application.Path &
Application.PathSeparator & sUserName
ActiveWorkbook.SaveAs FileName := sFileName
End Sub