Sub setPassword(ByRef login As String) 

  login = "login"

End Sub

Sub myPassword()  

  Dim login As String  

  login = "123"  

  Application.Run "PERSONAL.XLSB!setPassword", login  

  Debug.Print login

End Sub

 Rows("4:7").Hidden = Cells(2, 3).Text <> "Да"  

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Union(Cells(4, 2), Cells(6, 2), Cells(8, 2))) Is Nothing Then
    Select Case Len(Target.Value)
        Case Is < 36
            rHeight = 15
        Case 36 To 70
            rHeight = 30
        Case 71 To 100
            rHeight = 45
        Case Is > 100
            rHeight = 60
    End Select
    Rows(Target.Row).RowHeight = rHeight
End If
If Not Intersect(Target, Union(Cells(13, 2), Cells(15, 2), Cells(17, 2))) Is Nothing Then
    Select Case Len(Target.Value)
        Case Is < 20
            rHeight = 15
        Case 20 To 40
            rHeight = 30
        Case 41 To 60
            rHeight = 45
        Case Is > 60
            rHeight = 60
    End Select
    Rows(Target.Row).RowHeight = rHeight
End If
End Sub