Hata oluyorsa alttaki gibi değiştirin.Sadece resimdeki sarıya boyadığım yerdeki boşluğu kaldırdım.

Bu gezinti seçenekleri yerini nerden aktif edeceğiz?

#If VBA7 Then

    Private Declare PtrSafe Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal wRevert As Long) As Long

    Private Declare PtrSafe Function EnableMenuItem _

          Lib "user32" (ByVal hMenu As Long, ByVal wIDEnableItem As Long, ByVal wEnable As Long) As Long

#Else

    Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal wRevert As Long) As Long

    Private Declare Function EnableMenuItem _

          Lib "user32" (ByVal hMenu As Long, ByVal wIDEnableItem As Long, ByVal wEnable As Long) As Long

#End If

Güncelleme:

ilk mesajdaki dosya güncellendi.

teşekkürler