şifre koyma

[Bekci_32]

Arkadaşlar ekte gönderdiğim MENÜ DÜZELTME kodlarına şifre konulabilirmi.Yani MENÜ DÜZELT butonuna bastığımızda bizden şifre istemesi mümkünmü şifre yazdıktan sonra menülerin aktif hale gelmesi olasılığı varmı Teşekkürler

 

[mami68]

Hatalı yapıyor olmadı.

 

[Ayhan Ercan]

Merhaba,

Mavi satırlar ilave edilen satırlardır..
Şifre = excel

Sub MENÜ_DÜZELT()
    Dim CBar As CommandBar, [COLOR=royalblue]sifre As String[/COLOR]
    On Error Resume Next
[COLOR=royalblue]sifre = InputBox("Şifrenizi girininiz..", "ŞİFRE", "*****")[/COLOR]
[COLOR=royalblue]If sifre = "excel" Then[/COLOR]
    Application.ScreenUpdating = False
    For Each CBar In Application.CommandBars
    CBar.Enabled = True
    Next
    Application.CommandBars("Standard").Visible = True
    Application.CommandBars("Formatting").Visible = True
    Application.CommandBars("Drawing").Visible = True
    Application.CommandBars("Control Toolbox").Visible = True
    With ActiveWindow
        .DisplayHorizontalScrollBar = True
        .DisplayVerticalScrollBar = True
        .DisplayWorkbookTabs = True
    End With
    With Application
        .DisplayFormulaBar = True
        .ShowWindowsInTaskbar = True
    End With
    Application.ScreenUpdating = True
[COLOR=royalblue]Else[/COLOR]
[COLOR=royalblue]MsgBox "Şifre Yalnış..."[/COLOR]
[COLOR=royalblue]End If[/COLOR]
End Sub

 

[Bekci_32]

çok teşekkürler elinize sağlık