diff --git a/source/usermanager.pas b/source/usermanager.pas
index 784233c1..38507886 100644
--- a/source/usermanager.pas
+++ b/source/usermanager.pas
@@ -504,6 +504,7 @@ const
 var
   u: TUser;
 begin
+  PageControlUser.ActivePage := tabSettings;
   // Avoid duplicates.
   u := Users.FindUser(name, '%');
   if u <> nil then begin