كيفية حذف البيانات الوصفية (المعلومات الشخصية) من Excel و Word وغيرها دفعة واحدة باستخدام PowerShell

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19

# بدء تطبيق Excel في الوضع المخفي
$excel = New-Object -ComObject Excel.Application
$excel.Visible = $false
$excel.DisplayAlerts = $false

# فتح الملف (*يجب تحديد مسار مطلق)
$filePath = "C:\Path\To\Your\File.xlsx"
$wb = $excel.Workbooks.Open($filePath)

# تفعيل إعداد حذف البيانات الوصفية (المعلومات الشخصية)
$wb.RemovePersonalInformation = $true

# حفظ التغييرات والإغلاق
$wb.Save()
$wb.Close($false)

# إنهاء Excel وتحرير الذاكرة
$excel.Quit()
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($excel) | Out-Null

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30

$targetFolder = "C:\Path\To\Your\Folder"

# الحصول على جميع ملفات .xlsx و .xls في المجلد
$excelFiles = Get-ChildItem -Path $targetFolder -Include "*.xlsx", "*.xls" -Recurse

if ($excelFiles.Count -eq 0) {
    Write-Host "لم يتم العثور على ملفات Excel."
    exit
}

$excel = New-Object -ComObject Excel.Application
$excel.Visible = $false
$excel.DisplayAlerts = $false

foreach ($file in $excelFiles) {
    Write-Host "جاري حذف البيانات الوصفية للملف $($file.Name)..."
    
    # فتح الملف
    $wb = $excel.Workbooks.Open($file.FullName)
    
    # حذف البيانات الوصفية وحفظ التغييرات
    $wb.RemovePersonalInformation = $true
    $wb.Save()
    $wb.Close($false)
}

$excel.Quit()
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($excel) | Out-Null

Write-Host "اكتملت جميع العمليات!"

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11

$word = New-Object -ComObject Word.Application
$word.Visible = $false
$word.DisplayAlerts = 0

$doc = $word.Documents.Open("C:\Path\To\Your\File.docx")
$doc.RemovePersonalInformation = $true
$doc.Save()
$doc.Close()

$word.Quit()
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($word) | Out-Null

 1
 2
 3
 4
 5
 6
 7
 8
 9
10

$ppt = New-Object -ComObject PowerPoint.Application

# فتح العرض التقديمي بتحديد الوضع المخفي (msoFalse) وغيرها في الوسائط من الثاني إلى الرابع
$presentation = $ppt.Presentations.Open("C:\Path\To\Your\File.pptx", $false, $false, $false)
$presentation.RemovePersonalInformation = $true
$presentation.Save()
$presentation.Close()

$ppt.Quit()
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($ppt) | Out-Null