Macros Prontas Excel VBA

Ajustar automaticamente um formulário ao tamanho da tela.
Colar a macro dentro do formulário.

Private Sub Workbook_Open()
    UserForm1.Show
End Sub

Private Declare Function GetSystemMetrics32 Lib "User32" _
    Alias "GetSystemMetrics" (ByVal nIndex&) As Long

Private Sub UserForm_Initialize()
    Dim nFator As Single
    nFator = 0.75
    Me.Width = GetSystemMetrics32(0) * nFator
    Me.Height = GetSystemMetrics32(1) * nFator
End Sub

Abrir janela do windows para buscar arquivo, com opção de abrir o arquivo selecionado.
Basta criar um formulário e inserir um textbox e dois botões e nomear a textbox com o nome "textbbox1". Inserir o código abaixo dentro do formulário.

Dim local_Arquivo As String
Private Sub CommandButton1_Click()

 local_Arquivo = Application.GetOpenFilename(filefilter:="Plan Files,*.xlsx;*.xlsm;*.xls")
 TextBox1 = local_Arquivo

End Sub

Private Sub CommandButton2_Click()
Call Workbooks.Open(Filename:=local_Arquivo, _
        Password:="123", WriteResPassword:="456", ReadOnly:=True)
End Sub