Ввод пароля

[Ваки]

Уважаемые специалисты!
Не подскажите , как сделать так, чтоб при вводе пароля открытия листа
не видно бы было какой пароль вводят.
Строчка ввода пароля :
strPassword = InputBox("Введите пароль:", "Ввод пароля", "....")
Ну чтоб забивалось точками или звездочками.

И еще вопрос : у меня копируются все данные с одного листа на другой след. оператором :
Range("A1").CurrentRegion.Copy _
Sheets("Финансы").Range("A1")
Копирует все верно, но ширина колонок не соответствует . Как это исправить?

[EducatedFool]

как сделать так, чтоб при вводе пароля открытия листа не видно бы было какой пароль вводят.

При помощи InputBox этого можно добиться, но надо использовать WinAPI
(это сложно, короче)

Проще сделать пользовательскую форму - там, в текстбоксе, легко закрыть вводимые символы звёздочками - при помощи свойства PasswordChar, равного *

Пример можно посмотреть здесь: http://excelvba.ru/tools/Authentication

Копирует все верно, но ширина колонок не соответствует . Как это исправить?

Например, так:

Sub test()
    Range("A1").CurrentRegion.Copy
    Sheets("Финансы").Range("A1").PasteSpecial xlPasteAll
    Sheets("Финансы").Range("A1").PasteSpecial xlPasteColumnWidths
    Application.CutCopyMode = False
End Sub

Или же в цикле перебирать столбцы, и изменять ширину столбцов на листе Финансы

[Ваки]

Спасибо большое!