Sub Example_Password()
	 'Этот пример открывает защищенный паролем файл, закрывает его 
         'и затем открывает другой защищенный паролем файл.

	ThisDrawing.Application.Documents.Open "C:\MyDrawing.dwg", , "MYPASSWORD"
	 'AutoCAD преобразовывает все пароли в верхний регистр перед применением

	ThisDrawing.Close

	ThisDrawing.Application.Documents.Open "C:\MyDrawing2.dwg", , "MYSECONDPASSWORD"
	
End Sub