diff --git a/src/System Application/App/Security Groups/src/SecurityGroupImpl.Codeunit.al b/src/System Application/App/Security Groups/src/SecurityGroupImpl.Codeunit.al
index 8585f53dea..4f271184d2 100644
--- a/src/System Application/App/Security Groups/src/SecurityGroupImpl.Codeunit.al	
+++ b/src/System Application/App/Security Groups/src/SecurityGroupImpl.Codeunit.al	
@@ -90,6 +90,7 @@ codeunit 9871 "Security Group Impl."
 
         FeatureTelemetry.LogUptake('0000JGO', SecurityGroupsTok, Enum::"Feature Uptake Status"::"Set up");
         Session.LogSecurityAudit(SecurityGroupsTok, SecurityOperationResult::Success, StrSubstNo(SecurityGroupAddedLbl, GroupId, SecurityGroupUser."User Security ID"), AuditCategory::UserManagement);
+        Session.LogAuditMessage(StrSubstNo(SecurityGroupAddedLbl, GroupId, SecurityGroupUser."User Security ID"), SecurityOperationResult::Success, AuditCategory::UserManagement, 2, 0);
     end;
 
     procedure Delete(GroupCode: Code[20])
diff --git a/src/System Application/App/User Permissions/src/UserSubform.Page.al b/src/System Application/App/User Permissions/src/UserSubform.Page.al
index dee79309e6..39c958f7b7 100644
--- a/src/System Application/App/User Permissions/src/UserSubform.Page.al	
+++ b/src/System Application/App/User Permissions/src/UserSubform.Page.al	
@@ -95,8 +95,10 @@ page 9801 "User Subform"
         PermissionSetLookupRecord: Record "Aggregate Permission Set";
         User: Record User;
         MultipleRoleIDErr: Label 'The permission set %1 is defined multiple times in this context. Use the lookup button to select the relevant permission set.', Comment = '%1 will be replaced with a Role ID code value from the Permission Set table';
+        PermissionSetAddedToUserLbl: Label 'The permission set %1 has been added to the user %2 by UserSecurityId %3.', Comment = '%1 - Role ID, %2 - UserSecurityId, %3 - Current UserSecurityId';
         PermissionScope: Text;
         PermissionSetNotFound: Boolean;
+        UserPermissionsTok: Label 'User Permissions', Locked = true;
 
     trigger OnAfterGetRecord()
     var
@@ -120,6 +122,8 @@ page 9801 "User Subform"
     begin
         User.TestField("User Name");
         Rec.CalcFields("App Name", Rec."Role Name");
+        Session.LogSecurityAudit(UserPermissionsTok, SecurityOperationResult::Success, StrSubstNo(PermissionSetAddedToUserLbl, Rec."Role ID", Rec."User Security ID", UserSecurityId()), AuditCategory::UserManagement);
+        Session.LogAuditMessage(StrSubstNo(PermissionSetAddedToUserLbl, Rec."Role ID", Rec."User Security ID", UserSecurityId()), SecurityOperationResult::Success, AuditCategory::UserManagement, 2, 0);
     end;
 
     trigger OnModifyRecord(): Boolean