Excel beállítás probléma

Szia!

Elsőként indítsd el SAFE módban az Excel-t.
Tartsd lenyomva ctrl billentyűt, mikor indítod
Ez letiltja az esetleges beépülő modulokat.
Nézd meg, hogy így elérhető-e a menüben a cucc!
Ha igen, akkor valami lakó van az Excelben.

Telepítettél mostanában rá bármilyen add-on-t?
Powerquery, PowerPivot, vagy bármi, ami az excelbe beépülő lenne?
Esetleg ez a problémás fájl tartalmaz makrókat, amik futás közben lefagytak, vagy bármi miatt nem fejezték be a dolgukat?

Kerestél már a neten a probléma után?

Ha tudsz makrókat futtatni, akkor próbáld ki ezt:

Sub ResetCellMenus()
    Dim cbr As CommandBar
    For Each cbr In Application.CommandBars
        If cbr.Name = "Cell" Then cbr.Reset
    Next cbr
End Sub

Ha ez nem, akkor az Immediate ablakban futtatsd ezt:

Commandbars("Cell").Reset

Jelezz vissza, hogy mi lett!

Imre

• A hozzászólás módosításra került: 8 years, 1 month telt el-horvimi.

Szia Imre!

Nekem is ez a problémám a 13-a verzióban. futtattam a megadott makrot, de semmi. A másikat nem tudom, hol kell futtatni.
Gyanítom, hogy valami központi frissítés akadás az okozója, ja és win10 alatt amit nem igazán furcsállok, mert elég gagyi a 7-hez képest. Az első függvényprogramom padlóra vágta, de aztán helyreállt.
A múltkor ez futtattam:
Sub PasswordBreaker()
‘Author unknown but submitted by brettdj of http://www.experts-exchange.com

Dim i As Integer, j As Integer, k As Integer
Dim l As Integer, m As Integer, n As Integer
Dim i1 As Integer, i2 As Integer, i3 As Integer
Dim i4 As Integer, i5 As Integer, i6 As Integer
On Error Resume Next
For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126

ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & _
Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
If ActiveSheet.ProtectContents = False Then
MsgBox „One usable password is ” & Chr(i) & Chr(j) & _
Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
ActiveWorkbook.Sheets(1).Select
Range(„a1”).FormulaR1C1 = Chr(i) & Chr(j) & _
Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
Exit Sub
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next

End Sub,
de sajnos az általam kitalált karaktersor nem tudta feltörni fél órán keresztül pörgettyűzött, aztán megszakítottam a kínlódását, sima 10 karakteres sort más variációval feltört.

Ez okozhatja ezt a jelenséget? Megpróbáltam újratelepíteni, de ugyanaz a szitu.
Amennyiben tudsz segíteni azt megköszönném.

Nekem működött, mert sikerült megnyitnom egy védett tartalmat. A mi még érdekes lehet ezzel kapcsolatban, hogy védett nézetben működik a jobb gomb, de részleges lehetőségekkel. Az offoce-t töröltem, és újratelepítettem, de semmi nem változott. Nagy a gyanúm, hogy win10 operációs rendszer hiba. Sajnos csak az xls-nél tapasztaltam ezt a problémát. Amikor 2003-as verzióban nyitom meg akkor a mentésnél előugrik az ablak, hogy hogy mentsem, viszont emiatt az sem működik, illetve csökkentett módban sem, egyszerűen elmenti felugró ablak nélkül.

Sub Enable_All_Right_Click_Menus()
‘This will enable all BuiltIn Command bars
Dim Cbar As CommandBar
For Each Cbar In Application.CommandBars
Cbar.Enabled = True
Next
End Sub

Ezt futtattam a következő képpen: Nézet: makro létrehozása, a leírás mezőbe beillesztve a fenti kódot, és F5. Ekkor még nem csinál semmit, viszont a létrehozott makrót tudod szerkeszteni, és akkor tudod a fenti kódot kicserélni a vba ablakban akkor F5. Voala működik. El kell menteni, és az indításkor már minden ok. Örülök, hogy megoldódott, remélem másnak is jól jöhet.