This browser is no longer supported.
Upgrade to Microsoft Edge to take advantage of the latest features, security updates, and technical support.
![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(252.8, 49%, 34%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3EGC%3C/text%3E%3C/svg%3E)
Hi everyone,
I moved user local account to AzureAD domain on his computer.
We have Intune and Business Premium Licensing.
The user and other department need to use a Macro in Excel to push data on a device. I put the macro in attachment.
Since the machine was integrated into AzureAD, the macro no longer works with FTP error. Still working with other computers in local account.
Microsoft support tells me that this is a personal problem, not a product issue.
Have you experienced this and, if so, how can this be bypassed so that the current user can work normally?
I already check the firewall, try with administrative rights, nothing is bypassing. Even my MSP does not know how to bypass.
Thank you in advance.
![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(185.6, 61%, 27%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3EXM%3C/text%3E%3C/svg%3E)
@Geoffrey.c Hope the following suggestion can help. If the answer is helpful, please click "Accept Answer". Thanks!
I moved out the user from Azure, disable all rules with a filter for the user.
I added rules and windows config 1 by 1, and everything is working again.
No clue if the long terme will works but for 1 week now everything is fine.
The issue is likely due to AzureAD or Intune security policies blocking the macro or FTP access. Try the following steps:
These steps should help resolve the macro issue. Let me know if it works!
duplicate comment, sorry.
I don't know if it's the same way of using FTP but I try a filezilla server on my computer. and I can connect to it using the command line ftp.
I can ping with another computer but not connect to it.
I dont' know if it can help.
It sounds like the FTP issue might be related to network or firewall settings. Since you can connect locally but not from another computer, try these steps:
Check Firewall Settings: Ensure that the FTP port (default is 21) is open on both the local machine and network firewall for external connections.
Verify Passive/Active Mode in FTP: Depending on how your FTP server is configured (FileZilla supports both passive and active modes), make sure the correct mode is enabled and properly configured for external access.
Network Settings: Check if there are any restrictions on the network or VPN settings that could be blocking external FTP access.
These steps should help you resolve the connectivity issue. Let me know if you need further help!
Check Firewall Settings: network is not the use but the computer i'm sure. I Check the computer and also mine and Port 21 is open
Verify Passive/Active Mode in FTP: cheked
Network Settings: only internal to internal only.I had another case from someone connecting in FTP outside and it does works. So maybe FTP is not relating to the main issue.
if it can help the macro looks like :
'Open the Internet object
Private Declare PtrSafe Function InternetOpen _
Lib "wininet.dll" _
Alias "InternetOpenA" _
(ByVal sAgent As String, _
ByVal lAccessType As Long, _
ByVal sProxyName As String, _
ByVal sProxyBypass As String, _
ByVal lFlags As Long) As Long
'Connect to the network
Private Declare PtrSafe Function InternetConnect _
Lib "wininet.dll" _
Alias "InternetConnectA" _
(ByVal hInternetSession As Long, _
ByVal sServerName As String, _
ByVal nServerPort As Integer, _
ByVal sUsername As String, _
ByVal sPassword As String, _
ByVal lService As Long, _
ByVal lFlags As Long, _
ByVal lContext As Long) As Long
'Get a file using FTP
Private Declare PtrSafe Function FtpGetFile _
Lib "wininet.dll" _
Alias "FtpGetFileA" _
(ByVal hFtpSession As Long, _
ByVal lpszRemoteFile As String, _
ByVal lpszNewFile As String, _
ByVal fFailIfExists As Boolean, _
ByVal dwFlagsAndAttributes As Long, _
ByVal dwFlags As Long, _
ByVal dwContext As Long) As Boolean
'Send a file using FTP
Private Declare PtrSafe Function FtpPutFile _
Lib "wininet.dll" _
Alias "FtpPutFileA" _
(ByVal hFtpSession As Long, _
ByVal lpszLocalFile As String, _
ByVal lpszRemoteFile As String, _
ByVal dwFlags As Long, _
ByVal dwContext As Long) As Boolean
'Close the Internet object
Private Declare PtrSafe Function InternetCloseHandle _
Lib "wininet.dll" _
(ByVal hInet As Long) As Integer
Sub UploadFTP()
Dim hostFile As String
Dim INet As Long
Dim INetConn As Long
Dim Password As String
Dim RetVal As Long
Dim ServerName As String
Dim Success As Long
Dim UserName As String
Const ASCII_TRANSFER = 1
Const BINARY_TRANSFER = 2
ServerName = Cells.Item(1, "L")
UserName = InputBox(Prompt:="UserName", _
Title:="ENTER USERNAME", Default:="USERNAME")
If UserName = "USERNAME" Or _
UserName = vbNullString Then
Exit Sub
End If
Password = InputBox(Prompt:="Password", _
Title:="ENTER PASSWORD", Default:="PASSWORD")
If Password = "PASSWORD" Or _
Password = vbNullString Then
Exit Sub
End If
If Len(Dir("c:\tmp_CSV", vbDirectory)) = 0 Then
MkDir "c:\tmp_CSV"
End If
localfile = "c:\tmp_CSV\var_lst.csv"
hostFile = "var_lst.csv"
ExportToTextFile FName:=CStr(localfile), Sep:=CStr(";"), _
SelectionOnly:=False, AppendData:=False
RetVal = False
INet = InternetOpen("MyFTP Control", 1&, vbNullString, vbNullString, 0&)
If INet > 0 Then
INetConn = InternetConnect(INet, ServerName, 0&, UserName, Password, 1&, 0&, 0&)
If INetConn > 0 Then
Success = FtpPutFile(INetConn, localfile, hostFile, BINARY_TRANSFER, 0&)
RetVal = InternetCloseHandle(INetConn)
End If
RetVal = InternetCloseHandle(INet)
End If
If Success <> 0 Then
MsgBox ("Upload process completed")
Else
**MsgBox "FTP File Error!"**
End If
End Sub