اختفاء ايقونة الاكسيل من NEW

[الشربيني 123]

السلام عليكم السادة المحترمين ............. كيف يمكن استعادة الايقونة ليتم فتح الاكسيل من قائمة  جديد 

مع الشكر للجميع 

تم تعديل فبراير 7 بواسطه الشربيني 123

[عبدالله بشير عبدالله]

وعليكم السلام ورحمة الله وبركاته

جرب الطريقة التالية ربما تعيد الايقونة ولست مناكد

لوحة التحكم -البرامج والميزات -  انقر بزر الفارة اليمين على microfoft office - نغيير - اصلاح - ثم اتبع الخطوات

[الشربيني 123]

للأسف لم تنجح ........... شكرا للإهتمام و الرد 

[محمد حسن المحمد]

السلام عليكم

يرجى تطبيق الفيديو التالي على حاسوبك

علماً أن لاحقة الإكسل هي:

.xlsx 

الرابط

بالتوفيق إن شاء الله

تم تعديل فبراير 8 بواسطه محمد حسن المحمد

[hegazee]

جرب هذه الطريقة من موقع مايكروسوفت

[lionheart]

Navigate to this directory [C:\Program Files (x86)\Microsoft Office\root\vfs\Windows\SHELLNEW] and make sure the file named [EXCEL12.xlsx] exists

 If the file doesn't exist download it from the post (I will attach it for you) then copy it to the directory in the above screenshot

 

Create an excel shortuct and right-click on it and select [Run as administrator] 

 

Finally execute the following code

Sub Test()
    Const SEXCELFILE As String = "EXCEL12.xlsx"
    Dim subKeys, WshShell As Object, fso As Object, baseKeyPath As String, sFullKeyPath As String, sDestFile As String, sSourceFile As String, i As Integer
    Set WshShell = CreateObject("WScript.Shell")
    baseKeyPath = "HKEY_CURRENT_USER\Software\Classes\"
    subKeys = Array(".xlsx\", "Excel.Sheet.12\", "ShellNew\")
    sFullKeyPath = baseKeyPath
    For i = LBound(subKeys) To UBound(subKeys)
        sFullKeyPath = sFullKeyPath & subKeys(i)
        If Not RegKeyExists(WshShell, sFullKeyPath) Then WshShell.RegWrite sFullKeyPath, ""
    Next i
    sDestFile = "C:\Program Files (x86)\Microsoft Office\root\vfs\Windows\SHELLNEW\" & SEXCELFILE
    Set fso = CreateObject("Scripting.FileSystemObject")
    If Not fso.FileExists(sDestFile) Then
        sSourceFile = ThisWorkbook.Path & "\" & SEXCELFILE
        If fso.FileExists(sSourceFile) Then
            fso.CopyFile sSourceFile, sDestFile
        Else
            MsgBox "Source File '" & SEXCELFILE & "' Not Found.", vbExclamation: Exit Sub
        End If
    End If
    WshShell.RegWrite sFullKeyPath & "FileName", sDestFile, "REG_SZ"
    Set WshShell = Nothing: Set fso = Nothing
    MsgBox "Done", vbInformation
End Sub

Function RegKeyExists(WshShell As Object, regKey As String) As Boolean
    On Error Resume Next
        WshShell.RegRead regKey
        RegKeyExists = (Err.Number = 0)
    On Error GoTo 0
End Function

 

 

EXCEL12.XLSX